G
gegebere
Guest
Bonjour,
J'utilise la macro suivante pour renvoyer la valeur de mes cellules excel dans un tableau word :
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("E:\Classeur stage\PIF1.doc")
WordDoc.Tables(1).Columns(1).Cells(1).Range.Text = Range("A2")
le problème c'est que des la première cellule il me mais le message d'erreur suivant :
" Erreur d'exécution 5992 "
" Impossible d'accéder a des colonnes individuelles de cette collection car le tableau possède des cellules de largeur différentes "
En effet mon tableau word possède des cellules fusionnée.
J'avais pensé de fractionner tous le tableau par macro et transféré les cellules après, et au final remettre en place mon tableau comme au départ.
Si quelqu'un a une info me permettant de gagner du temps car la macro risques d'etre longue ( tableau word de 10 col et 16 lig ) je suis preneur.
Merci d'avance pour vos réponse.
J'utilise la macro suivante pour renvoyer la valeur de mes cellules excel dans un tableau word :
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("E:\Classeur stage\PIF1.doc")
WordDoc.Tables(1).Columns(1).Cells(1).Range.Text = Range("A2")
le problème c'est que des la première cellule il me mais le message d'erreur suivant :
" Erreur d'exécution 5992 "
" Impossible d'accéder a des colonnes individuelles de cette collection car le tableau possède des cellules de largeur différentes "
En effet mon tableau word possède des cellules fusionnée.
J'avais pensé de fractionner tous le tableau par macro et transféré les cellules après, et au final remettre en place mon tableau comme au départ.
Si quelqu'un a une info me permettant de gagner du temps car la macro risques d'etre longue ( tableau word de 10 col et 16 lig ) je suis preneur.
Merci d'avance pour vos réponse.