Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 VBA Creer un fichier avec une cellule "dynamique"

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

trekkeur50

XLDnaute Junior
Bonjour,

A partir d'un fichier excel (fichier A), je souhaite creer un nouveau fichier (fichier B)
Le nom du fichier B devra avoir le nom d'une cellule (b1) qui se trouve dans le fichier A.
La valeur de b1 est dans une liste déroulante donc ce n'est pas une constante.
Cela donne:

Workbooks.Add.SaveAs Filename:=ThisWorkbook.Path & "\" & [B1].Value & ".csv"

Mon probleme est que je n'arrive pa,s dans la suite du code, à faire reference à ce nouveau fichier puisque que le nom du fichier change selon le choix de la cellule b1.

Windows("Fichier A.xlsx").Activate
Range("A5").Copy Destination:=Windows(" COMMENT FAIRE REFERENCE A MON FICHIER [B1].Value.csv)

En esperant avoir été clair

Merci de votre aide
 
bonjour trekkeur50 bonjour le forum
peut ètre une réponse pour te faire avancer

en début de code poser une variable
Dim WB_Principal As Workbook

récuperer le nom du nouveau classeur (mais là je ne suis pas comment faire sur ton classeur) le forum sera certainement très utile!! (certainement arpès l'enregistrement)
Set WB_Principal = ActiveWorkbook
(mais plutot Set WB_Principal = quelque chose ?)

appeler le nouveau classeur par le nom de la variable
WB_Principal.Activate
cordialement
galougalou
 
précision
si le classeur n'est pas fermé par ton code
Set WB_Principal = ActiveWorkbook va fonctionner.
si tu change de classeur actif le code WB_Principal.Activate va le rappeler.
si tu change de procédure il faut que
Dim WB_Principal As Workbook
soit en
public WB_Principal As Workbook
mais si tu ferme le classeur alors là je ne sais pas

précision 😛our excel, je suis juste un amateur éclairé .
je te donne uniquement des pistes à explorer
le forum sera certainement plus éclairé que moi
@+
galougalou
 

Merci pour tes indications, j'essaye de les mettre en place
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
40
Affichages
2 K
Réponses
3
Affichages
773
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…