Sauvegarder un fichier avec le nom d'une cellule d'une autre feu [Fermé]

- - Dernière réponse : guillaume7684
Messages postés
59
Date d'inscription
mardi 9 janvier 2007
Statut
Membre
Dernière intervention
7 mars 2017
- 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



Afficher la suite 

2 réponses

0
Merci
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
Merci
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 -
 
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
59
Date d'inscription
mardi 9 janvier 2007
Statut
Membre
Dernière intervention
7 mars 2017
> Utilisateur anonyme -
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.