Modifier un nom de classeur dans une ligne macro.

[Pat2A]

Bonjour messieurs,
Je sollicite à nouveau votre aide pour résoudre un petit problème.
A l'aide d'un bouton du "Classeur1", j'ouvre le "Classeur2 (2012)".
Hors, le "Classeur2 (2012)" s'appellera prochainement "Classeur2 (2013)".
Est-il possible dans ma ligne de code ci-dessous de remplacer l'année par la valeur de la cellule ("A1") du "Classeur1"?

Private sub CommandButton1_Click()
 Dim Wb As Workbook
 Set Wb = Workbooks.Open (Filename:="D:\TEST\Classeur2 (2012).xls")
End Sub

Merci de votre attention.

Bonne journée

 

[tototiti2008]

Re : Modifier un nom de classeur dans une ligne macro.

Bonjour Pat,

Oui, mais il faut savoir la cellule A1 de quelle feuille

Private sub CommandButton1_Click()
 Dim Wb As Workbook
 Set Wb = Workbooks.Open (Filename:="D:\TEST\Classeur2 (" & Sheets("Feuil1").range("A1").value & ").xls")
End Sub

edit :

Bonjour messieurs

Il y a aussi des dames sur le forum, ne les oublions pas

 

[Pierrot93]

Re : Modifier un nom de classeur dans une ligne macro.

Bonjour,

peut être comme ceci :

Set Wb = Workbooks.Open(Filename:="D:\TEST\Classeur2 (" & Range("A1").Value & ").xls")

la valeur 2013 sera dans la cellule A1 de la feuille active du classeur actif, si pas le cas, préciser les objets "workbooks" et "worksheet"

Bon après midi
@+

Edition re toto

 

[Pat2A]

Re : Modifier un nom de classeur dans une ligne macro.

Merci pour vos réponses rapides, cela fonctionne parfaitement.

Bon après-midi mesdames et messieurs.