Enregistrer sous en ajoutant seulement un compléme

Dieub · 25 Octobre 2005

Bonjour,

Voici ma question du jour

Je travail toujours sur la mise à jour d'un grand nombre de fichiers et à la fin de la mise à jour de chaque fichier je souhaiterais que le nouveau fichier soit marqué comme ci-dessous:

Nom de l'ancien fichier : Tomtom.xls
Nom du nouveau fichier : MAJ-Tomtom.xls

Etant donné que chaque fichier a un nom différent il faut que la suite de caractère 'MAJ-' vienne s'ajouter automatiquement devant chaque nom de fichier.

J'ai fait un tour dans les archives mais sans succès. En désespoir de cause je fait appel à vos lumières.

Par avance merci,

myDearFriend! · 26 Octobre 2005

Bonsoir Dieub,

Je ne suis pas sûr de répondre entièrement à ta demande, mais peut-être peux-tu essayer comme ça :

Sub Sauvegarde()
Dim CheminComplet As String
CheminComplet = ThisWorkbook.Path & '\MAJ-' & ThisWorkbook.Name
ThisWorkbook.SaveAs Filename:=CheminComplet
End Sub

Cordialement,

Dieb · 26 Octobre 2005

Merci pour le coup de main
Je vais essayer de suite la formule

Cordialement,

Enregistrer sous en ajoutant seulement un compléme

Dieub

Guest

myDearFriend!

XLDnaute Barbatruc

Dieb

Guest

Discussions similaires