Ouvrir un classeur en variable

Bonjour à tous,

Je travaille sur la réalisation d'une Macro VBA. Le but est de travailler sur deux classeurs, le classeur A étant déjà ouvert et le classeur B qui doit être ouvert par l'utilisateur, et de pouvoir passer d'un classeur à l'autre grâce au code VBA.
À ce titre j'entre une variable pour le nom de mon classeur B (puisqu'en fonction du classeur choisi, le nom de celui-ci peut varier). Cependant, une fois que j'essaye de retourner sur ce classeur B la variable ne semble pas être reconnue.


Peut-être que mon code sera plus explicite:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Ouvrir   Application.Dialogs(xlDialogOpen).Show -------> ouverture du classeur B Dim M1 As Workbook Set M1 = ThisWorkbook   End Sub   Sub test   Workbooks(M1).Activate -----> la ou ça coince Range("B5").Select ActiveCell.FormulaR1C1 = "test"     End Sub

---

merci pour vos réponses

Bonjour,

Tu déclares M1 dans la Sub Ouvrir.
Seule cette Sub va reconnaître cette variable. La Sub Test n'a aucune idée de ce qu'est M1...
Si tu la déclares en entête de module, elle sera reconnue par les 2 sub

Et ne pas oublier que ThisWorkbook est le classeur qui contient ces macros...

Bonjour,

Essayez

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit   Dim M1 As Workbook '///mettre ici pour une portée de variable au niveau Module   Sub Ouvrir() Application.Dialogs(xlDialogOpen).Show Set M1 = ActiveWorkbook '/// End Sub   Sub test() M1.Activate '/// Range("B5").Select ActiveCell.FormulaR1C1 = "test" End Sub

---

Merci pour ces réponses

Pourrais-tu me détailler un peu plus amplement la démarche à suivre? La variable M1 doit être contenue dans la "Sub Ouvrir" puisqu'elle fait suite à l'ouverture du classeur Excel par l'utilisateur n'est-ce pas? Ou dois-je la placer pour qu'elle soit reconnue par les autres Sub?

Pourrais-tu également me dire quoi mettre à la place de ThisWorkbook?

@PMO2017 : Merci pour cette réponse, cependant quand je copie colle le code dans la Macro, la partie 'Option Explicit Dim M1 As Workbook' n'est contenue dans aucune Sub donc il me l'insère directement dans la Sub précédente et le problème persiste. Avez vous une solution?

Danke schon!

D'accord il suffisait de copier la partie en question au début du module.

Merci à vous,