Excel 2007 - macro sauvegarde auto

Résolu/Fermé
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 22 juil. 2010 à 11:57
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 22 juil. 2010 à 12:30
Bonjour,

Je souhaites intégrer à une macro VB, une instruction qui me permettra de sauver mon fichier Excel 2007 en cours dans un autre répertoire tout en changeant son nom de "test.xls" à "test_datedujourcourant.xls".

Quelqu'un aurait une piste pour cette concaténation du nom ?

Merci de votre aide :)
A voir également:

3 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
22 juil. 2010 à 12:07
Bonjour,
Sub VVV()
Dim Chemin As String, D As String
    D = Replace(Date, "/", "-")
    Chemin = ThisWorkbook.Path & "\"
    ThisWorkbook.SaveCopyAs Chemin & "Test_" & D & ".xls"
End Sub

A+
1
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
22 juil. 2010 à 12:21
Bonjour et merci :)

pour bien comprendre, cette macro fait bien un "SaveAS" avec le nouveau nom sous le même répertoire que le fichier originel ?
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 22/07/2010 à 12:26
Salut,
Salut Lermitte222,
Je m'incruste 2 secondes si vous le permettez...
Dans :
Chemin = ThisWorkbook.Path & "\"

ThisWorkbook.Path signifie : chemin d'accès de ce classeur
Quant au nouveau nom, il est définit par :
"Test_" & D &
0
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
Modifié par Eaheru le 22/07/2010 à 12:31
Parfait , j'ai modifié les chemins de sauvegarde, ca marche impeccablement !

Merci à vous 2 !!! :)
0