Word et Excel

[kisskool92]

Bonjour,

je débute dans l'écriture de scripts VBA et j'aurai besoin de votre aide.

voila mon problème, j'ai un doc Word avec un tableau, et je souhaite effectuer les opérations suivantes :

1-lire les données de chaque ligne d'une colone
2-ouvrir un template excel
3-écrire la donnée récupée dans une cellule excel
4-faire un SaveAs : "suivi - ValeurCellule.xls"
5-refaire les étapes 3 et 4 autant de fois qu'il y a de lignes dans le tableau word

est ce possible ???

merci d'avance

[Heureux-oli]

Oui !

[kisskool92]

nouvelle question : par quelle méthode ??

[Heureux-oli]

Je pense qu'on va arrêter de troller !

Tu vas copier chaque donnée dans un nouveau fichier !

Tu as deux option, ouvrir le fichier Word au départ d'excel ou le contraire.

Si tu ouvres le fichier Word au départ d'excel :

Code :

1
2
3
4
5
6
7
 
Dim wApp as new Word.Application
Dim myDoc as Word.document
 
set myDoc = wApp.open ("monfichier")
 
myDoc.Tables(1).

Si tu le fais au départ de Word :

Code :

1
2
3
4
5
6
7
8
 
Dim xlApp as New Excel.Application
Dim xlSheet as Excel.Sheet
Dim xlWB as Excel.WorkBook
Dim stTemp as String
 
 
stTemp = ActiveDocument.Tables(1).....

Dans chaque cas, il fuat déclarer la bibliothèque du logiciel.

Sans bibliothèque :

Code :

1
2
3
 
Dim wApp as Object
set wApp = CreateObject("Word.Application")

Si tu nous en dit plus long, la réponse sera plus précise.