piloter word depuis excel

Marsh Posté le 25-12-2008 à 17:14:22

Bonjour et bonne fête pour vous

J’ai une application c’est le transfert des données de Word vers Excel pour cela je voudrais créer un programme en vba qui pilote word depuis excel et qui me permet aussi de :

1-créer une copie de document original Word.mais cette copie reste invisible .
2-conversion des données de la copie de document Word a un tableau.
3-Transfer de tableau Word vers Excel.

Je ne sais pas comment faire pour créer une copie d’un document Word
J’ai créé une macro qui me permet la conversion des données de Word en tableau.
J’ai un programme qui Transfer un tableau de Word vers Excel.
Mais je voudrais savoir s’il est possible de créer un programme qui regroupe tous les étapes 1,2 et 3
vraiment je me suis bloquée et j'ai besoin d'aide des idées des solutions....s'il est possible ou c impossible .....
Je suis debutante , c'est pour ça que je demande de l'aide. Ce n'ai absolument pas pour que l'on me fasse le travail
Merci d’avance pour vos réponses

Reply

Marsh Posté le 25-12-2008 à 17:14:22

Reply

Marsh Posté le 28-12-2008 à 19:28:34

Salut,

Une question posée le jour de Noël n'a toujours aucune réponse le 28 ? Il y a vacances dans l'air

Oui, c'est possible de créer un programme qui regroupe les 3 étapes. Dans un nouveau module, tu fais un truc du genre :

Code :

sub LesTroisProgrammes()
call programme1()
call programme2()
call programme3()
end sub

Si tu pouvais préciser les macros que tu utilises, un exemple d'organisation des données sous Word, on pourrait t'aider un peu plus !

Message cité 1 fois

Reply

Marsh Posté le 29-12-2008 à 12:41:56

Bonjour

Pour créér une copie d'un document Word, il suffit de l'ENREGISTRER SOUS un autre dossier/nom

De meme :

Kapote Nestor a écrit :

Si tu pouvais préciser les macros que tu utilises, un exemple d'organisation des données sous Word, on pourrait t'aider un peu plus !

Cordialement

---------------
Soyez malin, louez entre voisins !

Reply

Marsh Posté le 31-12-2008 à 12:30:06

merci pour vos réponses j'ai trouver la solution ce code la marche très bien c superrrrrrrr merci une autre fois pour vous :bounce:

code

Citation :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 27/12/2008 par Didier
'

'
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim ligne As Long

On Error Resume Next
Kill "C:\Users\Didier\Documents\VBA\Temp.doc" ' si jamais il existe déjà
On Error GoTo 0
FileCopy "C:\Users\Didier\Documents\VBA\etudiants.doc", "Temp.doc" ' création d'une copie du fichier Word
Set WordApp = CreateObject("word.application" ) 'ouvre une session Word
Set WordDoc = WordApp.Documents.Open("C:\Users\Didier\Documents\VBA\Temp.doc" ) 'ouvre le document Word
WordApp.Visible = False 'Word est masqué pendant l'opération
N_lignes = WordDoc.Paragraphs.Count ' Nombre de paragraphes (=nombre de lignes dans ton cas

For ligne = 1 To N_lignes
Texte = WordDoc.Paragraphs.Item(ligne).Range.Text ' récupération du texte
If InStr(1, Texte, ":" ) > 0 Then
nom = RTrim(Left(Texte, InStr(1, Texte, ":" ) - 1)) ' séparation du nom : suppression des blancs à droite
numéro = CInt(Mid(Texte, InStr(1, Texte, ":" ) + 1, Len(Texte))) ' récupération du nombre
Cells(ligne, 1) = nom ' enregistrement dans Excel
Cells(ligne, 2) = numéro
End If
Next ligne

WordApp.Visible = True 'affiche le document Word

WordDoc.Close False 'ferme le document word en sauvegardant les données
WordApp.Quit 'ferme la session Word
Kill "C:\Users\Didier\Documents\VBA\Temp.doc" ' supprime le fichier temporaire
End Sub

Reply

piloter word depuis excel

Sujets relatifs:

Leave a Replay