Comment prendre des données d'Excel vers Word avec VBA
18 réponses
Don Juan
Bonjour!
J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec
quelques données).
En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les
données de mon document Excel dès que j'ouvre mon document word.
Bonjour. Voici comment je procède, à partir d'Excel, une instance de Word étant démarré. Dans Excel, je lance une macro qui ouvre le document Word, appelle une macro Word et lui transmet le(s) paramètres. La macro Word se positionne sur un signet prédéfini et insère la valeur du paramètre (il y a sans doute plus malin, mais ça fonctionne !) Il faut cocher "Microsoft Word xx Object Library" dans Outils / Références. 1. dans Excel : Sub test() chemin = "c:temp" Set WordObj = GetObject(, "Word.Application") WordObj.Visible = True WordObj.Documents.Open chemin & "Template.doc" On Error Resume Next WordObj.Run "MacroWord", Parametre Set WordObj = Nothing End Sub
2. dans Word :
Sub MacroWord(Parametre) With Selection .GoTo What:=wdGoToBookmark, Name:="Signet" .TypeText Text:=Parametre End With End Sub
Note : on peut démérrer l'instance de Word à l'aide de la ligne : Set appWord = CreateObject("Word.Application") Mais chez moi, ça ne fonctionne pas. Cordialement. Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Bonjour.
Voici comment je procède, à partir d'Excel, une instance de Word étant
démarré. Dans Excel, je lance une macro qui ouvre le document Word, appelle
une macro Word et lui transmet le(s) paramètres. La macro Word se positionne
sur un signet prédéfini et insère la valeur du paramètre (il y a sans doute
plus malin, mais ça fonctionne !)
Il faut cocher "Microsoft Word xx Object Library" dans Outils / Références.
1. dans Excel :
Sub test()
chemin = "c:temp"
Set WordObj = GetObject(, "Word.Application")
WordObj.Visible = True
WordObj.Documents.Open chemin & "Template.doc"
On Error Resume Next
WordObj.Run "MacroWord", Parametre
Set WordObj = Nothing
End Sub
2. dans Word :
Sub MacroWord(Parametre)
With Selection
.GoTo What:=wdGoToBookmark, Name:="Signet"
.TypeText Text:=Parametre
End With
End Sub
Note : on peut démérrer l'instance de Word à l'aide de la ligne :
Set appWord = CreateObject("Word.Application")
Mais chez moi, ça ne fonctionne pas.
Cordialement.
Daniel
"Don Juan" <juanete@gmail.com> a écrit dans le message de news:
DFAF597B-836C-4111-AFD5-66E31333E318@microsoft.com...
Bonjour!
J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec
quelques données).
En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les
données de mon document Excel dès que j'ouvre mon document word.
Bonjour. Voici comment je procède, à partir d'Excel, une instance de Word étant démarré. Dans Excel, je lance une macro qui ouvre le document Word, appelle une macro Word et lui transmet le(s) paramètres. La macro Word se positionne sur un signet prédéfini et insère la valeur du paramètre (il y a sans doute plus malin, mais ça fonctionne !) Il faut cocher "Microsoft Word xx Object Library" dans Outils / Références. 1. dans Excel : Sub test() chemin = "c:temp" Set WordObj = GetObject(, "Word.Application") WordObj.Visible = True WordObj.Documents.Open chemin & "Template.doc" On Error Resume Next WordObj.Run "MacroWord", Parametre Set WordObj = Nothing End Sub
2. dans Word :
Sub MacroWord(Parametre) With Selection .GoTo What:=wdGoToBookmark, Name:="Signet" .TypeText Text:=Parametre End With End Sub
Note : on peut démérrer l'instance de Word à l'aide de la ligne : Set appWord = CreateObject("Word.Application") Mais chez moi, ça ne fonctionne pas. Cordialement. Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Daniel.C
Bonjour. Voici comment je procède, à partir d'Excel, une instance de Word étant démarré. Dans Excel, je lance une macro qui ouvre le document Word, appelle une macro Word et lui transmet le(s) paramètres. La macro Word se positionne sur un signet prédéfini et insère la valeur du paramètre (il y a sans doute plus malin, mais ça fonctionne !) Il faut cocher "Microsoft Word xx Object Library" dans Outils / Références. 1. dans Excel : Sub test() chemin = "c:temp" Set WordObj = GetObject(, "Word.Application") WordObj.Visible = True WordObj.Documents.Open chemin & "Template.doc" On Error Resume Next WordObj.Run "MacroWord", Parametre Set WordObj = Nothing End Sub
2. dans Word :
Sub MacroWord(Parametre) With Selection .GoTo What:=wdGoToBookmark, Name:="Signet" .TypeText Text:=Parametre End With End Sub
Note : on peut démérrer l'instance de Word à l'aide de la ligne : Set appWord = CreateObject("Word.Application") Mais chez moi, ça ne fonctionne pas. Cordialement. Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Bonjour.
Voici comment je procède, à partir d'Excel, une instance de Word étant
démarré. Dans Excel, je lance une macro qui ouvre le document Word, appelle
une macro Word et lui transmet le(s) paramètres. La macro Word se positionne
sur un signet prédéfini et insère la valeur du paramètre (il y a sans doute
plus malin, mais ça fonctionne !)
Il faut cocher "Microsoft Word xx Object Library" dans Outils / Références.
1. dans Excel :
Sub test()
chemin = "c:temp"
Set WordObj = GetObject(, "Word.Application")
WordObj.Visible = True
WordObj.Documents.Open chemin & "Template.doc"
On Error Resume Next
WordObj.Run "MacroWord", Parametre
Set WordObj = Nothing
End Sub
2. dans Word :
Sub MacroWord(Parametre)
With Selection
.GoTo What:=wdGoToBookmark, Name:="Signet"
.TypeText Text:=Parametre
End With
End Sub
Note : on peut démérrer l'instance de Word à l'aide de la ligne :
Set appWord = CreateObject("Word.Application")
Mais chez moi, ça ne fonctionne pas.
Cordialement.
Daniel
"Don Juan" <juanete@gmail.com> a écrit dans le message de news:
DFAF597B-836C-4111-AFD5-66E31333E318@microsoft.com...
Bonjour!
J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec
quelques données).
En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les
données de mon document Excel dès que j'ouvre mon document word.
Bonjour. Voici comment je procède, à partir d'Excel, une instance de Word étant démarré. Dans Excel, je lance une macro qui ouvre le document Word, appelle une macro Word et lui transmet le(s) paramètres. La macro Word se positionne sur un signet prédéfini et insère la valeur du paramètre (il y a sans doute plus malin, mais ça fonctionne !) Il faut cocher "Microsoft Word xx Object Library" dans Outils / Références. 1. dans Excel : Sub test() chemin = "c:temp" Set WordObj = GetObject(, "Word.Application") WordObj.Visible = True WordObj.Documents.Open chemin & "Template.doc" On Error Resume Next WordObj.Run "MacroWord", Parametre Set WordObj = Nothing End Sub
2. dans Word :
Sub MacroWord(Parametre) With Selection .GoTo What:=wdGoToBookmark, Name:="Signet" .TypeText Text:=Parametre End With End Sub
Note : on peut démérrer l'instance de Word à l'aide de la ligne : Set appWord = CreateObject("Word.Application") Mais chez moi, ça ne fonctionne pas. Cordialement. Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Daniel.C
Bonjour. Voici comment je procède, à partir d'Excel, une instance de Word étant démarré. Dans Excel, je lance une macro qui ouvre le document Word, appelle une macro Word et lui transmet le(s) paramètres. La macro Word se positionne sur un signet prédéfini et insère la valeur du paramètre (il y a sans doute plus malin, mais ça fonctionne !) Il faut cocher "Microsoft Word xx Object Library" dans Outils / Références. 1. dans Excel : Sub test() chemin = "c:temp" Set WordObj = GetObject(, "Word.Application") WordObj.Visible = True WordObj.Documents.Open chemin & "Template.doc" On Error Resume Next WordObj.Run "MacroWord", Parametre Set WordObj = Nothing End Sub
2. dans Word :
Sub MacroWord(Parametre) With Selection .GoTo What:=wdGoToBookmark, Name:="Signet" .TypeText Text:=Parametre End With End Sub
Note : on peut démérrer l'instance de Word à l'aide de la ligne : Set appWord = CreateObject("Word.Application") Mais chez moi, ça ne fonctionne pas. Cordialement. Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Bonjour.
Voici comment je procède, à partir d'Excel, une instance de Word étant
démarré. Dans Excel, je lance une macro qui ouvre le document Word, appelle
une macro Word et lui transmet le(s) paramètres. La macro Word se positionne
sur un signet prédéfini et insère la valeur du paramètre (il y a sans doute
plus malin, mais ça fonctionne !)
Il faut cocher "Microsoft Word xx Object Library" dans Outils / Références.
1. dans Excel :
Sub test()
chemin = "c:temp"
Set WordObj = GetObject(, "Word.Application")
WordObj.Visible = True
WordObj.Documents.Open chemin & "Template.doc"
On Error Resume Next
WordObj.Run "MacroWord", Parametre
Set WordObj = Nothing
End Sub
2. dans Word :
Sub MacroWord(Parametre)
With Selection
.GoTo What:=wdGoToBookmark, Name:="Signet"
.TypeText Text:=Parametre
End With
End Sub
Note : on peut démérrer l'instance de Word à l'aide de la ligne :
Set appWord = CreateObject("Word.Application")
Mais chez moi, ça ne fonctionne pas.
Cordialement.
Daniel
"Don Juan" <juanete@gmail.com> a écrit dans le message de news:
DFAF597B-836C-4111-AFD5-66E31333E318@microsoft.com...
Bonjour!
J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec
quelques données).
En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les
données de mon document Excel dès que j'ouvre mon document word.
Bonjour. Voici comment je procède, à partir d'Excel, une instance de Word étant démarré. Dans Excel, je lance une macro qui ouvre le document Word, appelle une macro Word et lui transmet le(s) paramètres. La macro Word se positionne sur un signet prédéfini et insère la valeur du paramètre (il y a sans doute plus malin, mais ça fonctionne !) Il faut cocher "Microsoft Word xx Object Library" dans Outils / Références. 1. dans Excel : Sub test() chemin = "c:temp" Set WordObj = GetObject(, "Word.Application") WordObj.Visible = True WordObj.Documents.Open chemin & "Template.doc" On Error Resume Next WordObj.Run "MacroWord", Parametre Set WordObj = Nothing End Sub
2. dans Word :
Sub MacroWord(Parametre) With Selection .GoTo What:=wdGoToBookmark, Name:="Signet" .TypeText Text:=Parametre End With End Sub
Note : on peut démérrer l'instance de Word à l'aide de la ligne : Set appWord = CreateObject("Word.Application") Mais chez moi, ça ne fonctionne pas. Cordialement. Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Daniel.C
Euh, j'avais pas bien lu. Fallait partir de Word Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Euh, j'avais pas bien lu. Fallait partir de Word
Daniel
"Don Juan" <juanete@gmail.com> a écrit dans le message de news:
DFAF597B-836C-4111-AFD5-66E31333E318@microsoft.com...
Bonjour!
J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec
quelques données).
En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les
données de mon document Excel dès que j'ouvre mon document word.
Euh, j'avais pas bien lu. Fallait partir de Word Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Daniel.C
Euh, j'avais pas bien lu. Fallait partir de Word Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Euh, j'avais pas bien lu. Fallait partir de Word
Daniel
"Don Juan" <juanete@gmail.com> a écrit dans le message de news:
DFAF597B-836C-4111-AFD5-66E31333E318@microsoft.com...
Bonjour!
J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec
quelques données).
En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les
données de mon document Excel dès que j'ouvre mon document word.
Euh, j'avais pas bien lu. Fallait partir de Word Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Daniel.C
Euh, j'avais pas bien lu. Fallait partir de Word Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Euh, j'avais pas bien lu. Fallait partir de Word
Daniel
"Don Juan" <juanete@gmail.com> a écrit dans le message de news:
DFAF597B-836C-4111-AFD5-66E31333E318@microsoft.com...
Bonjour!
J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec
quelques données).
En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les
données de mon document Excel dès que j'ouvre mon document word.
Euh, j'avais pas bien lu. Fallait partir de Word Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Daniel.C
Utilise plutôt dans Word le code suivant :
Dim xlApp As New Excel.Application xlApp.Workbooks.Open "e:donneesdanieltoto.xls" xlApp.Visible = True For Each c In xlApp.Sheets(2).Range("A1:A10") UserForm1.ComboBox1.AddItem c Next c UserForm1.Show
Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Utilise plutôt dans Word le code suivant :
Dim xlApp As New Excel.Application
xlApp.Workbooks.Open "e:donneesdanieltoto.xls"
xlApp.Visible = True
For Each c In xlApp.Sheets(2).Range("A1:A10")
UserForm1.ComboBox1.AddItem c
Next c
UserForm1.Show
Daniel
"Don Juan" <juanete@gmail.com> a écrit dans le message de news:
DFAF597B-836C-4111-AFD5-66E31333E318@microsoft.com...
Bonjour!
J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec
quelques données).
En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les
données de mon document Excel dès que j'ouvre mon document word.
Dim xlApp As New Excel.Application xlApp.Workbooks.Open "e:donneesdanieltoto.xls" xlApp.Visible = True For Each c In xlApp.Sheets(2).Range("A1:A10") UserForm1.ComboBox1.AddItem c Next c UserForm1.Show
Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Daniel.C
Utilise plutôt dans Word le code suivant :
Dim xlApp As New Excel.Application xlApp.Workbooks.Open "e:donneesdanieltoto.xls" xlApp.Visible = True For Each c In xlApp.Sheets(2).Range("A1:A10") UserForm1.ComboBox1.AddItem c Next c UserForm1.Show
Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Utilise plutôt dans Word le code suivant :
Dim xlApp As New Excel.Application
xlApp.Workbooks.Open "e:donneesdanieltoto.xls"
xlApp.Visible = True
For Each c In xlApp.Sheets(2).Range("A1:A10")
UserForm1.ComboBox1.AddItem c
Next c
UserForm1.Show
Daniel
"Don Juan" <juanete@gmail.com> a écrit dans le message de news:
DFAF597B-836C-4111-AFD5-66E31333E318@microsoft.com...
Bonjour!
J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec
quelques données).
En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les
données de mon document Excel dès que j'ouvre mon document word.
Dim xlApp As New Excel.Application xlApp.Workbooks.Open "e:donneesdanieltoto.xls" xlApp.Visible = True For Each c In xlApp.Sheets(2).Range("A1:A10") UserForm1.ComboBox1.AddItem c Next c UserForm1.Show
Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Daniel.C
Utilise plutôt dans Word le code suivant :
Dim xlApp As New Excel.Application xlApp.Workbooks.Open "e:donneesdanieltoto.xls" xlApp.Visible = True For Each c In xlApp.Sheets(2).Range("A1:A10") UserForm1.ComboBox1.AddItem c Next c UserForm1.Show
Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Utilise plutôt dans Word le code suivant :
Dim xlApp As New Excel.Application
xlApp.Workbooks.Open "e:donneesdanieltoto.xls"
xlApp.Visible = True
For Each c In xlApp.Sheets(2).Range("A1:A10")
UserForm1.ComboBox1.AddItem c
Next c
UserForm1.Show
Daniel
"Don Juan" <juanete@gmail.com> a écrit dans le message de news:
DFAF597B-836C-4111-AFD5-66E31333E318@microsoft.com...
Bonjour!
J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec
quelques données).
En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les
données de mon document Excel dès que j'ouvre mon document word.
Dim xlApp As New Excel.Application xlApp.Workbooks.Open "e:donneesdanieltoto.xls" xlApp.Visible = True For Each c In xlApp.Sheets(2).Range("A1:A10") UserForm1.ComboBox1.AddItem c Next c UserForm1.Show
Daniel "Don Juan" a écrit dans le message de news:
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
heureux-oli
Une piste http://www.developpez.net/forums/showthread.php?
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.
Comment faire cela?
1000 mercis d'avance.
Une piste http://www.developpez.net/forums/showthread.php?t@2629
"Don Juan" <juanete@gmail.com> a écrit dans le message de news:
DFAF597B-836C-4111-AFD5-66E31333E318@microsoft.com...
Bonjour!
J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec
quelques données).
En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les
données de mon document Excel dès que j'ouvre mon document word.
Bonjour! J'ai un document Excel avec des données. (Colonne A nommée: "Nom" avec quelques données). En Word, j'ai ajouté un ComboBox et je désire remplir le combo avec les données de mon document Excel dès que j'ouvre mon document word.