Fonction recherche VBA Excel puis Word
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...
3 réponses
-
Nous sommes unanimes, il faut vraiment éviter de fusionner des cellules dans Excel ! surtout si on doit y rechercher des valeurs.
Quand 2 cellules sont fusionnée (B17:C17), seule la première contient la valeur (B17) d'où l'erreur.
-
Merci bcpppppp ça marche ;))))
-
De rien, au plaisir de te relire sur le forum
