Discussion :

[darkspoilt]

Bonjour,

Je reprend le code de quelqu'un et j'aimerais enlever un message du type " un fichier nommé nom.xls est déja présent dans cet emplacmeent voulez le remplacez?"

j'aimerais enlevez ce message
j'ai essayé ca mais cela ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
                ActiveWorkbook.Save
                ActiveWorkbook.Saved = True
                ActiveWindow.Close

Si quelqu'un peut m'aider merci d'avance

[Jean-Pierre49]

Bonjour,
avant ton Code : Application.DisplayAlerts = False

Apres ton Code : Application.DisplayAlerts = True

[cavo789]

Si tu veux écraser le fichier et si tu te moques de savoir si le fichier existe déjà ==> supprime-le avant de le sauve.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
On Error Resume Next
Kill "TheFile.xls"
On Error Goto 0
 
ActiveWorkbook.Save

[ouskel'n'or]

Tu peux contracter ton code en suivant le conseil de Jean-Pierre49

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.DisplayAlerts = False
ActiveWorkbook.Close True
Application.DisplayAlerts = True