OVH Cloud OVH Cloud

Continuité du contenu d'une variable...

4 réponses
Avatar
Yvan
Bonjour,

Je souhaite me servir d'une variable définit dans une macro appelante dans
une macro appelée. Mais son contenu n'est pas reconnu dans la macro appelée.
Comment dois-je procéder ?

Le fichier Glisse est appelé, son nom est récupéré, un copier/coller est
effectué et la macro Test est appelée. C'est dans cette macro que la variable
Nom doit être réutilisée, mais son contenu n'est pas conservé lors de l'appel
de la macro Test...

ChDir "\\Gestion2\c\Professionnel\Bases de données\Extractions"
Workbooks.Open Filename:= _
"\\Gestion2\c\Professionnel\Bases de données\Extractions\Glisse.xls"
Nom = ActiveWorkbook.Name
Cells.Select
Selection.Copy
Windows("Traitements Quotidiens.xls").Activate
Sheets("Extraction").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Glisse.xls").Activate
ActiveWorkbook.Close
Windows("Traitements Quotidiens.xls").Activate

Application.Run "'Traitements Quotidiens.xls'!Test"

--
Merci pour vos réponses.

4 réponses

Avatar
GVentre
Bonjour Yvan,

Je te conseille d'aller faire un petit tour du côté du site de Misange:
http://www.excelabo.net/xl/lexique.php#variable
Tu y trouveras ton bonheur!

--
Codrialement,

Guillaume VENTRE

"Yvan" a écrit dans le message de news:

Bonjour,

Je souhaite me servir d'une variable définit dans une macro appelante dans
une macro appelée. Mais son contenu n'est pas reconnu dans la macro
appelée.

Comment dois-je procéder ?

Le fichier Glisse est appelé, son nom est récupéré, un copier/coller est
effectué et la macro Test est appelée. C'est dans cette macro que la
variable

Nom doit être réutilisée, mais son contenu n'est pas conservé lors de
l'appel

de la macro Test...

ChDir "Gestion2cProfessionnelBases de donnéesExtractions"
Workbooks.Open Filename:= _
"Gestion2cProfessionnelBases de
donnéesExtractionsGlisse.xls"

Nom = ActiveWorkbook.Name
Cells.Select
Selection.Copy
Windows("Traitements Quotidiens.xls").Activate
Sheets("Extraction").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Glisse.xls").Activate
ActiveWorkbook.Close
Windows("Traitements Quotidiens.xls").Activate

Application.Run "'Traitements Quotidiens.xls'!Test"

--
Merci pour vos réponses.


Avatar
Clément Marcotte
Bonjour,

Juste à passer les paramètres.

sub CesttuBeauCa()
'demander à la procédur carre de mettre 3 au carré
carre 3
end sub

sub carre (nombre as long) as long
lenombreaucarre = nombre * nombre
end sub


"Yvan" a écrit dans le message de
news:
Bonjour,

Je souhaite me servir d'une variable définit dans une macro
appelante dans

une macro appelée. Mais son contenu n'est pas reconnu dans la macro
appelée.

Comment dois-je procéder ?

Le fichier Glisse est appelé, son nom est récupéré, un copier/coller
est

effectué et la macro Test est appelée. C'est dans cette macro que la
variable

Nom doit être réutilisée, mais son contenu n'est pas conservé lors
de l'appel

de la macro Test...

ChDir "Gestion2cProfessionnelBases de donnéesExtractions"
Workbooks.Open Filename:= _
"Gestion2cProfessionnelBases de
donnéesExtractionsGlisse.xls"

Nom = ActiveWorkbook.Name
Cells.Select
Selection.Copy
Windows("Traitements Quotidiens.xls").Activate
Sheets("Extraction").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Glisse.xls").Activate
ActiveWorkbook.Close
Windows("Traitements Quotidiens.xls").Activate

Application.Run "'Traitements Quotidiens.xls'!Test"

--
Merci pour vos réponses.


Avatar
Yvan
Merci beaucoup.
A plus,


Bonjour Yvan,

Je te conseille d'aller faire un petit tour du côté du site de Misange:
http://www.excelabo.net/xl/lexique.php#variable
Tu y trouveras ton bonheur!

--
Codrialement,

Guillaume VENTRE

"Yvan" a écrit dans le message de news:

Bonjour,

Je souhaite me servir d'une variable définit dans une macro appelante dans
une macro appelée. Mais son contenu n'est pas reconnu dans la macro
appelée.

Comment dois-je procéder ?

Le fichier Glisse est appelé, son nom est récupéré, un copier/coller est
effectué et la macro Test est appelée. C'est dans cette macro que la
variable

Nom doit être réutilisée, mais son contenu n'est pas conservé lors de
l'appel

de la macro Test...

ChDir "Gestion2cProfessionnelBases de donnéesExtractions"
Workbooks.Open Filename:= _
"Gestion2cProfessionnelBases de
donnéesExtractionsGlisse.xls"

Nom = ActiveWorkbook.Name
Cells.Select
Selection.Copy
Windows("Traitements Quotidiens.xls").Activate
Sheets("Extraction").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Glisse.xls").Activate
ActiveWorkbook.Close
Windows("Traitements Quotidiens.xls").Activate

Application.Run "'Traitements Quotidiens.xls'!Test"

--
Merci pour vos réponses.







Avatar
michdenis
Un petite exemple : 2 macro dans 2 Classeurs différents

La macro appelante où on peut passer une variable (si c'est une variable, ne pas la mettre en guillement) ou directement
la valeur de la variable pour une procédure appelée
'---------------------
Sub toto()

Application.Run "Classeur1!exemple", "Denis"

End Sub
'---------------------

'La procédure appelée . Le fait d'utiliser "Optional" permet d'utiliser cette procédure même si cette variable n'est pas
définie.
'----------------------
Sub Exemple(Optional ByVal Nom As String)

MsgBox Nom

End Sub
'----------------------


Salutations!



"GVentre" a écrit dans le message de news: %
Bonjour Yvan,

Je te conseille d'aller faire un petit tour du côté du site de Misange:
http://www.excelabo.net/xl/lexique.php#variable
Tu y trouveras ton bonheur!

--
Codrialement,

Guillaume VENTRE

"Yvan" a écrit dans le message de news:

Bonjour,

Je souhaite me servir d'une variable définit dans une macro appelante dans
une macro appelée. Mais son contenu n'est pas reconnu dans la macro
appelée.

Comment dois-je procéder ?

Le fichier Glisse est appelé, son nom est récupéré, un copier/coller est
effectué et la macro Test est appelée. C'est dans cette macro que la
variable

Nom doit être réutilisée, mais son contenu n'est pas conservé lors de
l'appel

de la macro Test...

ChDir "Gestion2cProfessionnelBases de donnéesExtractions"
Workbooks.Open Filename:= _
"Gestion2cProfessionnelBases de
donnéesExtractionsGlisse.xls"

Nom = ActiveWorkbook.Name
Cells.Select
Selection.Copy
Windows("Traitements Quotidiens.xls").Activate
Sheets("Extraction").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Glisse.xls").Activate
ActiveWorkbook.Close
Windows("Traitements Quotidiens.xls").Activate

Application.Run "'Traitements Quotidiens.xls'!Test"

--
Merci pour vos réponses.