Enregistrer sous un nom défini ...

  • Initiateur de la discussion Initiateur de la discussion If
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

I

If

Guest
Bonjour,

J'ai la macro (macro 1) ci-dessous qui enregistre le fichier sous le nom
de la date du lendemain (par exemple 030515.xls).
Celle-ci fonctionne très bien mais lorsque le fichier existe déjà, j'obtiens
le message suivant :
Un fichier nommé c:\030515.xls existe déjà à cet emplacement. Voulez vous le remplacer ?

Si je clique sur oui, là je n'ai pas de problème, le fichier est remplacé.
Mais si je clique su non, je souhaiterais que la macro enregistrer-sous (macro 2) apparaîsse.
J'aimerais également que lorsque cette macro s'exécute, que le chemin de la
macro 1 sois repris (c:\ en lieu et place de Mes Documents)

Merci de votre aide.

Macro 1
---------
Sub Sauver()
Dim NomFichier As String, Chemin As String

Chemin = "C:\"
NomFichier = Format(Now() + 1, "yymmdd")
ActiveWorkbook.SaveAs (Chemin & NomFichier)
End Sub


Macro 2
---------
Sub EnregistrerSous()
Dim Enregistrer
Enregistrer = Application.GetSaveAsFilename _
("Date -> AnnéeMoisJour", "Tous les fichiers (*.*), *.*," &
_"Microsoft Excel (*.xls),*.xls", _2)
End Sub
 
ce que tu peux faire c faire un test avant l'enregistrement pour voir si le fichier existe

la command c dir je crois

dir("chemin/nom.xls") renvoie true si il existe
apres tu balances sur l'une ou l'autre de t macros
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
246
Retour