Discussion :

[ahmet]

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.

[Krovax]

Bonjour,
QUestion est ce que tu déclare tes variables?
A mon avis non et ca te permettrai d'éviter des erreurs. Alors je te conseil de passer en option explicite toutes tes macro et de faire une jolie déclaration.
http://mhubiche.developpez.com/Access/variables/

Pour ton problème

Code :

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

Set wbdestination = ActiveWorkbook.Worksheets(1)

C'est une worksheet
tu déclarera donc

Code :

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

dim wbdestination  as worksheet

Mais dans la procédure appelé tu as

Code :

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

Sub MiseEnForme (WbMacro as workbook, WBdest as workbook

)

et l'appelle

Code :

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

Call MiseEnForme(wbsource, wbdestination)

Tu met en deuxième argument une worksheet alors que ta procédure demande un workbook.
Je te laisse corriger ca faire tes déclaration si tu as le courage, et ensuite regarde si ca suffit comme correction

[ahmet]

effectivement j'envoyai un worksheet alors que la procedure attendait un workbook

j'ai declaré mes variables et modifié mon code. ca marche nickel

merci beaucoup pour ton aide.