Discussion :

[Chris7514]

Bonjour,

je cherche à créer une macro me permettant d'enregistrer sous le fichier Excel actif.
Le nom du fichier doit être composé à partir de variables renseignés dans le fichier en cellules E7 et J11.
le code que j'utilise est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ActiveWorkbook.SaveAs "C:\Users\morinchri\Desktop\feuilles 2022 C\"variable"\" & Range("E7").Value & "_" & Range("J11").Value, xlOpenXMLWorkbook

Je chercher à rajouter une variable sur le chemin avec une information qui se trouve dans un autre classeur en cellule C2 de la feuil1. Je n'arrive pas à intégrer cette variable.

Merci de votre aide

Christophe

[Tête de chat]

Bonjour

un truc comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim MonBook as WorkBook
Set MonBook = WorkBooks("toto.xlsx") ' par exemple s'il est déjà ouvert et s'appelle toto.xlsx
ActiveWorkbook.SaveAs "C:\Users\morinchri\Desktop\feuilles 2022 C\" & MonBook.WorkSheets("Feuil1").Range("C2") & "\" & Range("E7").Value & "_" & Range("J11").Value, xlOpenXMLWorkbook

Sauf que :

1. il faut éviter d'utiliser ActiveWorkBook quand ce n'est pas spécifiquement ce qu'on veut faire (ActiveWorkBook, c'est la classeur actif ; le plus souvent on veut cibler le classeur qui contient les macros qui s'exécutent donc par défaut ThisWorkBook)
2. C'est bien d'implémenter des constantes pour tout ce qui est entre guillemets
3. Voire de nommer les cellules ou les plages utilisées dans le code (et de mettre les noms dans des constantes
4. Et perso j'ai tendance sur ce genre de calculs à les mettre dans une formule, avec par exemple un onglet "Parametres" qui contiendrait le calcul, moyennant quoi tu n'as plus qu'une cellule à récupérer