Bonjour,
j'importe des données et les nommes Sauvegarde du suivi de formation . Ce dernier existe déjà puisque j'importe souvent ces données. Quand je lance la sauvegarde, un message me demande si je veux remplacer le fichier existant. "oui, non , annuler"
Non et Annuler provoque un bug
Je voudrais que le code réponde oui à ma place automatiquement.
En fait, j'aimerais que ce message disparaisse et que le nouvel enregistrement écrase automatiquement l'ancien. Ci-joint mon code
En vous remerciant pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Export_repertoire() ' exportation des données vers c: au format xlsx Sheets(Array("export formation", "export fmpa")).Select Sheets(Array("export formation", "export fmpa")).Copy ChDir "C:\Sauvegarde suivi de formation" ActiveWorkbook.SaveAs Filename:= _ "C:\Sauvegarde suivi de formation\Sauvegarde du suivi de formation .xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False Application.DisplayAlerts = False ActiveWorkbook.Close End Sub
Partager