Discussion :

[krietj]

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 :

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

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

[parmi]

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...

[krietj]

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!

[PMO2017]

Bonjour,

Essayez

Code :

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

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

[krietj]

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

Merci à vous,