[VBA] enregistrer et remplacer automatiquemen [Résolu/Fermé]

Signaler
-
Messages postés
6
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
26 mai 2008
-
Bonjour,

j'ai taper le code ci dessous qui me permet d'enregistrer automatiquement mon classeur dans un dossier spécifié.
seulement lorsque le fichier existe deja une fenetre apparait pour me demander si je veux le remplacer.
Je voudrai que cette fenetre n'apparaisse pas ou bien que le fichier remplace l'ancien automatiquement

merci de votre aide.

Private Sub CommandButton4_Click()


ChDir "D:\donnees\essai"


Dim MonFichier
MonFichier = Worksheets("feuil1").Cells(1, 2).Value & "_" & Worksheets("feuil1").Cells(2, 2).Value & "_" & Worksheets("feuil1").Cells(4, 2).Value


ActiveWorkbook.SaveAs Filename:=MonFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Unload Me
End Sub

1 réponse

Messages postés
433
Date d'inscription
dimanche 17 février 2008
Statut
Membre
Dernière intervention
17 octobre 2008
305
Bonjour Assin,
rajoute le code suivant (qui supprime les messages d'alerte) avant d'enregistrer :
Application.DisplayAlerts = False

A la fin de ton code, rétablis la situation initiale avec
Application.DisplayAlerts = True

I.
7
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
6
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
26 mai 2008
1
ça marche nickel merci beaucoup