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:

Macro excel enregistrer fichier avec nom
Excel macro enregistrer sous nom fichier contenu d'une cellule - Meilleures réponses
Enregistrer un fichier excel avec le nom d'une cellule - Meilleures réponses
[macro VBA] enregistrer classeur nom cellule ✓ - Forum - VB / VBA
Enregistrer sous, un classeur avec le nom d'une cellule - Forum - Excel
Macro pour enregistrer sous, en fonction d'une cellule ✓ - Forum - VB / VBA
Creation macro ✓ - Forum - Excel
Sauvegarder un fichier avec le nom d'une cellule d'une autre feu - Forum - VB / VBA

2 réponses

Réponse 1 / 2

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

Réponse 2 / 2

guillaume7684
21 oct. 2016 à 08:04

Bonjour,

Avec ton code j'ai un message d'erreur:
Erreur d'exécution '438'
Propriété ou méthode non gérée par cet objet

J'ai toute la ligne "ActiveWorkbook ..." qui est surlignée en jaune

Merci pour ton aide.

Utilisateur anonyme
21 oct. 2016 à 20:25

Bonsoir guillaume,

Peux-tu me dire le nom exact de ta feuille : "Prestations" ou "Prestation" ?
Je te conseille "Prestations" car en général, il y a plusieurs prestations et
pas qu'une seule ! Mais c'est toi qui vois... 😉

Que retourne exactement : MsgBox "(" & ThisWorkbook.Path & ")"
Les parenthèses permettent de voir d'éventuels espaces avant ou après ;
Ta réponse devra être : "(...)", les « ... » étant ton Path.

Quel est le contenu exact de ta cellule B5 ?

Quelle est ta version d'Excel ? La 2003 ? Et veux-tu vraiment sauvegarder
tes fichiers en ".xls" ? Note qu'à partir d'Excel 2007, c'est mieux en ".xlsm"
si fichier avec macros ; ou en ".xlsx" si fichiers sans macros.

Et pour ".xlsm", il faudra utiliser le type de fichier adéquat !

À te lire. 😊

guillaume7684

Messages postés: 49
Date d'inscription: mardi 9 janvier 2007
Statut: Membre
Dernière intervention: 9 mars 2021

> Utilisateur anonyme
21 oct. 2016 à 22:06

Bonsoir,

Merci de vouloir m'aider.
Ma feuille se nomme bien "Prestation", il y en a bien plusieurs mais sur cette feuille je n'entre les infos que d'une seule prestation à la fois.

Peux-tu me contacter en MP, je souhaiterai t'envoyer mon fichier pour que tu regardes je pense que ce sera plus simple. Merci.

Je suis en excel 2007 et c'est vrai que j'aimerais bien sauvegarder en .xslm mais ça ne marche plus du tout.

Merci encore.

Newsletters