Sauvegarder un fichier avec le nom d'une cellule d'une autre feu
guillaume7684
-
guillaume7684 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
guillaume7684 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai cette macro qui me permet de faire une copie de la feuille "Liste" et d'enregistrer le nouveau classeur dans le répertoire parent, par contre j'aimerais que le nom donné au nouveau fichier soit la cellule B5 de la feuille "Prestation", comment coder cela?
Merci.
J'ai cette macro qui me permet de faire une copie de la feuille "Liste" et d'enregistrer le nouveau classeur dans le répertoire parent, par contre j'aimerais que le nom donné au nouveau fichier soit la cellule B5 de la feuille "Prestation", comment coder cela?
Merci.
Sub Demo()
With ThisWorkbook.Worksheets("Liste")
.Copy
ActiveWorkbook.SaveAs .Parent.Path & "\" & Range("B5") & ".xls"
End With
End Sub
A voir également:
- Vba enregistrer sous un autre nom
- Audacity enregistrer son pc - Guide
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Nom de l'adresse ✓ - Forum Réseaux sociaux
- Comment enregistrer un mail - Guide
- Comment enregistrer une conversation - Guide
2 réponses
Bonjour guillaume7684,
Je crois que ce code VBA devrait aller :
Attention : le nom réel de ta feuille est peut-être au pluriel :
.Worksheets("Prestations")
Cordialement. 😊
Je crois que ce code VBA devrait aller :
Sub Demo()
With ThisWorkbook
.Worksheets("Liste").Copy
ActiveWorkbook.SaveAs .Path & "\" & .Worksheets("Prestation").[B5] & ".xls"
End With
End Sub
Attention : le nom réel de ta feuille est peut-être au pluriel :
.Worksheets("Prestations")
Cordialement. 😊
