"Enregistrer sous" dans Excel par VBARésolu

Question

Bonjour,

J'ai un petit bout de code par lequel j'enregistre des fichiers Excel. J'aimerais savoir comment faire pour changer le nom automatiquement quand le fichier existe d&#233;j&#224;.
Exemple:
   J'enregistre 4 fichiers diff&#233;rents: "toto.xls", "titi.xls", "tata.xls" et "toto.xls". Evidemment pour le second fichier "toto.xls", une fen&#234;tre va me demander si je veux &#233;craser le fichier du m&#234;me nom ou pas. En fait, ce que je voudrais, c'est qu'il s'enregistre sous le nom "toto_2.xls" par exemple (soit sans m&#234;me ouvrir le fen&#234;tre, soit lorsque je r&#233;ponds "non" &#224; "voulez vous &#233;craser le fichier existant", &#231;a m'est &#233;gal).

Quelqu'un sait il comment faire ?

D'avance merci pour votre aide.


==============================================================
Si cette r&#233;ponse convient &#224; ton probl&#232;me, n'oublies pas de l'accepter

cs_nico39 · Accepted Answer

Salut Ma2004,

avant ta proc&#233;dure d'enregistrement , fais un petit test d'existence sur ton fichier:

If dir("C:\....\mon_fichier.xls") <> "" Then 
(le fichier existe)
 Workbooks(ancien_nom_du_fichier).SaveAs _ filename:=ancien_nom_du_fichier & "bis"  (changement de nom du fichier)
ActiveWorkbooks.Close
Else :  (le fichier n'existe pas encore)
         Workbooks(nom_du_fichier).Save
         ActiveWorkbooks.Close
End if

Pour le changement de nom, je n'ai pas &#233;t&#233; tr&#232;s imaginatif, mais il est tout &#224; fait possible de cr&#233;er une petite proc&#233;dure qui te permette de changer le nom (ou du moins le mum&#233;ro dans le nom de fichier), si celui-ci est d&#233;j&#224; utilis&#233;.

J'esp&#232;re avoir r&#233;pondu &#224; ta question.


Amateurement v&#244;tre...

"Enregistrer sous" dans Excel par VBA

1 réponse

Discussions similaires