Enregistrer sous en ajoutant seulement un compléme

[Dieub]

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!]

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]

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

Cordialement,