Bonjour à tous,
Voilà j'ai un petit soucis avec la création d'une fonction... ça doit certainement être idiot mais le fait que j'ai débuté depuis peu m'empêche encore de trouver la solution immédiatement
Voilà j'aimerais créer une fonction (histoire de simplifier le code) pour ouvrir un tableur excel rechercher une valeur sur une première feuille et une autre sur une seconde et retourner les deux, fermer le tableur excel et réactiver le document Word qui était ouvert avant. La fonction est le suivant :
Public Function wrdLine(Index As String, i As Long, Sheet As String, j As Long)
address = ThisWorkbook.Path
Dim indT
Dim valT
Dim compT1
Dim compT2
Set wb = Workbooks.Open(address + "\Outils\BDD_DT.xlsx")
wb.Worksheets(Index).Activate
indT = Cells(i, 1)
wb.Worksheets(Sheet).Activate
valT = Cells(i, 2)
compT1 = Cells(i, 3)
compT2 = Cells(i, 4)
wb.Close savechanges:=False
wrdDoc.Activate
End Function
J'ai mis ce code dans un module pour être plus précis.
Ensuite je fais appel à la fonction à l'aide de :
wrdLine ("Index", 2, "Compo", 2)
wrdApp.Selection.TypeText Text:=indT
wrdApp.Selection.TypeText Text:=valT
Mais lors de la compilation il me retour une erreur de syntaxe sur
wrdLine ("Index", 2, "Compo", 2)
Que fais-je de mal?