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

Fermé

Macro

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:

Vba enregistrer sous un autre nom
Audacity enregistrer son pc - Guide
Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
Trouver un numéro de portable avec un nom ✓ - Forum Mobile
La création de contenu sous ce nom n’est pas autorisée. essayez un autre nom. ✓ - Forum Facebook
Enregistrer en pdf - Guide

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.

Discussions similaires

Enregistrer sous, un classeur avec le nom d'une cellule

Macro pour sauvergarder sous avec le nom d'une cellule

[macro VBA] enregistrer classeur nom cellule

macro pour enregistrer sous, en fonction d'une cellule

VBA effacer contenu cellule si elle même contient...

Effacer le contenu d'une cellule