Sauvegarder un fichier avec le nom d'une cellule d'une autre feu

Fermé
guillaume7684 - 20 oct. 2016 à 22:29
guillaume7684 Messages postés 49 Date d'inscription mardi 9 janvier 2007 Statut Membre Dernière intervention 9 mars 2021 - 21 oct. 2016 à 22:06
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.

Sub Demo()
With ThisWorkbook.Worksheets("Liste")
.Copy
ActiveWorkbook.SaveAs .Parent.Path & "\" & Range("B5") & ".xls"
End With
End Sub



A voir également:

2 réponses

Utilisateur anonyme
20 oct. 2016 à 23:52
Bonjour guillaume7684,

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.  😊
0