Azuveus
XLDnaute Nouveau
Bonjour,
Comme mentionné dans le titre de se sujet, je souhaiterais savoir comment je pourrais utiliser des fonctions lié du VBA Excel dans du Word.
Plus concrètement, je souhaite a travers un document Word (et donc un bouton dans ce document) ouvrir un document Excel, me positionner dans une case bien spécifique de ce tableur et y incrémenter des données qui se trouve dans le document Word.
Jusqu'à présent, j'ai réussi a ouvrir le dit fichier Excel et y a ajouter des données! Oui mais, pour l'instant Je n'arrive qu'a les ajouter en pointant sur une range bien préscise et non une variable!
En gros si je fais çà :
La çà marche...
mais si je souhaite chercher les coordonnées de la range... la ca ne marche pas... car la propriété Activecell n'est pas reconnu dans Word.
Auriez vous une astuce svp ?
Merci d'avance,
Azuveus.
Comme mentionné dans le titre de se sujet, je souhaiterais savoir comment je pourrais utiliser des fonctions lié du VBA Excel dans du Word.
Plus concrètement, je souhaite a travers un document Word (et donc un bouton dans ce document) ouvrir un document Excel, me positionner dans une case bien spécifique de ce tableur et y incrémenter des données qui se trouve dans le document Word.
Jusqu'à présent, j'ai réussi a ouvrir le dit fichier Excel et y a ajouter des données! Oui mais, pour l'instant Je n'arrive qu'a les ajouter en pointant sur une range bien préscise et non une variable!
En gros si je fais çà :
VB:
Dim xlApp As Excel.Application, xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet, strFich$
strFich = "...\2021_Fichier_DOA.xlsx"
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(strFich)
Set xlSheet = xlBook.Sheets(Month)
xlSheet.Range("B20") = "essai"
xlSheet.Range("G18") = Reasonmais si je souhaite chercher les coordonnées de la range... la ca ne marche pas... car la propriété Activecell n'est pas reconnu dans Word.
VB:
Dim rg as Range
xlSheet.Range("C1:C100").Find("INVOICE").Select
Set rg = xlSheet.ActiveCell.AddressAuriez vous une astuce svp ?
Merci d'avance,
Azuveus.