Bonjour,

je souhaite envoyer des workbooks a une SUB, pour pouvoir naviger entre plusieurs classeur au sein de la procedure.

j'ai procédé comme suit :

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
 
Workbooks.Open (Repertoire.SelectedItems(1))
Set wbsource = ActiveWorkbook
...
Workbooks.Add
Set wbdestination = ActiveWorkbook.Worksheets(1) 
...
Call MiseEnForme(wbsource, wbdestination)
 
'en Module
Sub MiseEnForme (WbMacro as workbook, WBdest as workbook)
 
WbMacro.activate ' !!!!!!!erreur ... objet recquis... !!!!!
...
end sub
je suis "débutant" et je souhaiterais savoir si algorithmiquement parlant, je fait correctement le transfert de variable.

si oui, pourquoi j'ai une erreur.

merci pour vos lumieres.