Fonction recherche VBA Excel puis Word
FM38
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
VBA --> WORD
Lorsque je clique sur le bouton de la feuille 1 je voudrai faire une recherche avec la cellule b17,C17 (Fusionné de la feuille1) sur un tableau dans la page Vendeur et ressortir sur mon document WORD la valeur de la cellule correspondant à la 2ème colonne (Telephone des vendeurs).
Exemple:
Feuil1:
B17:C17 = coco
Vendeur:
ColonneA ColonneB
coco 06 88 88 88
lapin 07 88 88 88
cola 09 88 88 88
Résultat:
06 88 88 88
Voici mon bout de programme:
Dim TéléphoneVendeur As string
TéléphoneVendeur = WorksheetFunction.VLookup(ActiveSheet.Range("B17:C17"), Worksheets("Vendeur").Range("A6:C8"), 2, 0)
DocWord.Bookmarks("TéléphoneVendeur").Range.Text = TéléphoneVendeur
Il me met comme erreur: "erreur d'execution 13"
Avez-vous une idée?
Merci bcp à tous...
VBA --> WORD
Lorsque je clique sur le bouton de la feuille 1 je voudrai faire une recherche avec la cellule b17,C17 (Fusionné de la feuille1) sur un tableau dans la page Vendeur et ressortir sur mon document WORD la valeur de la cellule correspondant à la 2ème colonne (Telephone des vendeurs).
Exemple:
Feuil1:
B17:C17 = coco
Vendeur:
ColonneA ColonneB
coco 06 88 88 88
lapin 07 88 88 88
cola 09 88 88 88
Résultat:
06 88 88 88
Voici mon bout de programme:
Dim TéléphoneVendeur As string
TéléphoneVendeur = WorksheetFunction.VLookup(ActiveSheet.Range("B17:C17"), Worksheets("Vendeur").Range("A6:C8"), 2, 0)
DocWord.Bookmarks("TéléphoneVendeur").Range.Text = TéléphoneVendeur
Il me met comme erreur: "erreur d'execution 13"
Avez-vous une idée?
Merci bcp à tous...
