XL 2010 utiliser des variables communes à Excel et Word

[jeanmi]

Bonjour à tous,

ce que j'aimerais faire,

-1- je défini une variable A= « bonjour » dans Excel

-2- je bascule sur Word et j’utilise le contenu de cette variable A dans une macro Word, B= A donc B est égal à « Bonjour »

Quel code, comment ?

Merci pour vos réponses

Cordialement

 

[dysorthographie]

Bonjour,
Dans word tu fais un macro genre

 Sub test (var1 as string,var2 as integer)
End Sub

Et dans Excel

 application.run "test","Toto",24

 

[jeanmi]

Bonjour @dysorthographie , bonjour à tous,

merci pour la réponse,

je ne suis pas sur d'avoir compris clairement ce qu'il fallait faire .
serait-il possible d'avoir quelques explications complémentaires.

cordialement

 

[dysorthographie]

Bonjour,
Fais tout simplement ce test!
Dans Excel

'-1- je défini une variable A= « bonjour » dans Excel
Dim A As String : A= "Bonjour"
With CreateObject("Word.Application")
    .Visible = True
    With .documents.Open("C:\Myrep\Test.docm") 
        .Application.Run "TEST" ,A 'Excel.A=> Word.B
MsgBox A
        .Save 
        .Close False
    End With
    .Quit
End With
End Sub

'-2- je bascule sur Word et j’utilise le contenu de cette variable A dans une macro Word, B= A donc B est égal à « Bonjour »
Sub test (ByRef B as string)
msgbox B
B="Merci"
End Sub

 

[jeanmi]

Bonjour @dysorthographie , bonjour à tous,

merci pour cette réponse
j'ai tester et ça fonctionne très bien
je vais donc l'incorporer dans mon code afin de faire un test en "vrais grandeur"

Bien cordialement

 

[herve62]

Je t'ai mis le code insert signature en e-mail .. t'as pas vu ?

 

[jeanmi]

Bonjour @herve62 , bonjour à tous

Merci pour ta réponse, oui j'ai vu le code, je tai répondu par mail hier soir.
Je vais faire les essais à la soirée après ma journée.
Mais par habitude de l'aide que tu m'as apporté à chaque fois, ça va surement très bien fonctionné.
Merci beaucoup

cordialement