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

ticoco84 15 Messages postés mardi 11 septembre 2007Date d'inscription 18 avril 2008 Dernière intervention - 16 oct. 2007 à 14:17 - Dernière réponse : cs_JMO 1838 Messages postés jeudi 23 mai 2002Date d'inscription 1 avril 2018 Dernière intervention
- 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

Répondre au sujet
cs_JMO 1838 Messages postés jeudi 23 mai 2002Date d'inscription 1 avril 2018 Dernière intervention - 16 oct. 2007 à 19:54
+3
Utile
 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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_JMO

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.