Piloter Excel à partir de word

LaurentG

XLDnaute Occasionnel
Bonjour,

Voici mon problème.

J'ai un document Word. Je dois lancer une macro à partir de word qui lance un USF. Je rentre un numéro dans un textbox et quand je clique sur OK çà ouvre un fichier excel 'exemple.xls',va rechercher le numéro indiqué dans la textbox et va définir un certain nombres de variable.

Par exemple, je cherche le numéro '1'.
Il se trouve en A4
Je veux définir les variables suivantes :
Client = range('b4').value
Description = range('C4').value
...

ces variables vont être réincorporées dans le fichier word à un endroit précis. (cette partie ne pose pas de problème)

Je sais faire une recherche à partir d'Excel. Mais à partir de Word je suppose que c'est sensiblement différent...

Quelqu'un pourrait m'aider?

Merci beaucoup

Laurent
 

LaurentG

XLDnaute Occasionnel
Re!

Bon ben j'ai bidouillé un peu, et çà a l'air de marcher donc...
Pour info voici le code utilisé :

Code:
Sub ArrondirAvecExcel()
numero = UserForm1.TextBox1.Value
Dim xlApp As Object ' Déclare la variable devant contenir la référence.
Set xlApp = CreateObject('excel.application')

With xlApp
.Visible = True
.workbooks.Open FileName:='C:\\input.xls' 
End With

Set atrouve = xlApp.workbooks('input.xls').sheets('input').Range('A:A').Find(numero)

With xlApp
.Range(atrouve.Address).Select
End With

' Définition des variables
BV = xlApp.workbooks('input.xls').sheets('input').Range(atrouve.Address).Value

clients = xlApp.workbooks('input.xls').sheets('input').Range(atrouve.Address).offset(0, 1).Value

ville = xlApp.workbooks('input.xls').sheets('input').Range(atrouve.Address).offset(0, 2).Value

' Ferme Excel
xlApp.Quit

' Insert les variables dans Word
Selection.InsertAfter (BV)
Selection.InsertAfter (' ' & clients)
Selection.InsertAfter (' ' & ville)
End Sub

Bonne soirée

Laurent
 

Discussions similaires

Statistiques des forums

Discussions
300 823
Messages
1 987 483
Membres
209 865
dernier inscrit
MALICK SENE