piloter word depuis excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : piloter word depuis excel

progaide

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

Publicité

Kapote Nestor

Pas né, pas mort

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

SuppotDeSaTante

Aka dje69r

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 !

progaide

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

piloter word depuis excel

Sujets relatifs
Importer textes en html sous excel pour les traiter avec vba	[C#] Insérer une ligne dans tabeau Excel
Création de ligne/ Tableau Type sous excel	[WORD/code champ] modifier nombre de pages d'un doc
macro word qui divise 1 fichier en plusieurs fichiers	transfert données Excel vers txt
piloter un fichier excel intégré dans un fichier word	piloter word depuis excel
[VBA] piloter word depuis une macro excel -- Chercher remplacer
Plus de sujets relatifs à : piloter word depuis excel

Page générée en 0.036 secondes