Comment utiliser workbook.saveas avec écrasement automatique

Dans cette section de code, Excel affiche TOUJOURS: “Le fichier existe déjà, voulez-vous écraser?”

Application.DisplayAlerts = False Set xls = CreateObject("Excel.Application") Set wb = xls.Workbooks.Add fullFilePath = importFolderPath & "\" & "A.xlsx" wb.SaveAs fullFilePath, AccessMode:=xlExclusive, ConflictResolution:=True wb.Close(True) 

Pourquoi db.SaveAs me demande-t- db.SaveAs toujours d’écraser le fichier existant si j’ai DisplayAlerts = False ?

Merci d’avance!

Pour ne pas voir l’invite définie xls.DisplayAlerts = False

ConflictResolution n’est pas une propriété true ou false, il devrait s’agir de xlLocalSessionChanges – notez que cela n’a rien à voir avec l’affichage de l’invite Overwrite!

 Set xls = CreateObject("Excel.Application") xls.DisplayAlerts = False Set wb = xls.Workbooks.Add fullFilePath = importFolderPath & "\" & "A.xlsx" wb.SaveAs fullFilePath, AccessMode:=xlExclusive,ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges wb.Close (True) 

Je recommande avant d’exécuter SaveAs, de supprimer le fichier existant.

Si Dir (“f: ull \ path \ with \ filename.xls”) <> “” Puis Kill “f: ull \ path \ with \ filename.xls” End If

Il est plus facile que d’activer et de désactiver DisplayAlerts, et si DisplayAlerts rest désactivé en raison d’un blocage du code, cela peut poser des problèmes si vous utilisez Excel dans la même session.