Discussion :

[reddevils]

Bonjour,
je débute en VBA alors j'aimerais un peu d'aide : j'ai créer un bouton d'enregistrement pour mon fichier excel mais je voudrais supprimer le message "ce fichier existe déjà, voulez vous le remplacer" et qu'il soit remplacer automatiquement. Voila le début du code :

Code :

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

1
2
3
4
5
6
7
Private Sub ENREGISTRER_Click()
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\All Users\bureau\ESSAI.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
xlApp.DisplayAlerts = False
End Sub

Que dois-je rajouter ?? merci

[tirex28]

Bonsoir,

Les instructions ne sont pas dans le bon ordre:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub ENREGISTRER_Click()
'D'abord
xlApp.DisplayAlerts = False
'Puis
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\All Users\bureau\ESSAI.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Cordialement,

Tirex28/

[reddevils]

Merci bcp j'ai passé du temps à chercher d'ou venez l'erreur et c'était tout bête lol merci

[kiki29]

Ne pas oublier de cloturer par un xlApp.DisplayAlerts = True

[mordrhim]

et de cloturer le message par un