Transfert de données vers fichier word préétabli [Résolu]

Messages postés
15
Date d'inscription
mardi 11 septembre 2007
Statut
Membre
Dernière intervention
18 avril 2008
- - Dernière réponse : cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
- 16 oct. 2007 à 19:54
Bonjour,

J'ai un fichier excel avec des données dans des cellules et des textboxs. Je souhaiterais exporter les données receuillies(des textboxs ou de cellules) dans un fichier word possédant une présentation préétablie et placer ces données à des endroits bien précis du fichier word.
Auriez vs des codes pour m'aider?
merci d'avance
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
23
3
Merci
 Bonsoir,

C'est possible.
Pour du reporting, j'utilise un .doc avec plusieurs tableaux.

Ex:
Set objWord = CreateObject("Word.Application")
objWord.DisplayAlerts = wdAlertsNone
Set objDoc = objWord.Documents.Open(strFile, True)
MsgBox objDoc.Tables.Count ' Nbre de Tableau(x) dans le fichier
MsgBox objDoc.Tables(3).Rows.Count ' Nbre de lignes dans le 3ème Tableau
MsgBox objDoc.Tables(3).Columns.Count ' Nbre de colonnes dans le 3ème Tableau
'
For i=3 To objDoc.Tables(2).Rows.Count
    objDoc.Tables(2).Cell(i, 4).Range.Font.ColorIndex = 2 ' 2=Bleu,6=Rouge
    objDoc.Tables(2).Cell(i, 4).Range.Font.Bold = True
    objDoc.Tables(2).Cell(i, 4).Range.Text = "OK"
Next

Qui dit tableau, dit signet, paragraphe, etc...

jean-marc

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 205 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_JMO