Transformer un document Word en Excel

[beegees]

Bonjour tout le monde,

Je me demandais si il y'avait moyen de transformer un document word en document Excel.

J'aimerais donc éviter de devoir faire des copier coller de lignes Word vers Excel.

Est-ce possible ?

Avez-vous une solution plus simple que le copier / colle ?

Avec Excel 2003 ou 2007.

Je vous en remercie d'avance.

beegees

 

[BERRACHED said]

Re : Transformer un document Word en Excel

Salut,beegees

transformer un document Word en Excel je pense pas que c'est faisable mais par contre importer un document Word en Excel c'est réalisable le sujet a été maintes fois évoqué voila la macro proposer par notre ami MichelXld qui te permet de le faire :

Sub copieTableauWordVersExcel_V02()
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Fichier As Variant

'affichage boite de dialogue pour choisir un document Word
Fichier = Application.GetOpenFilename("Text Files (*.doc*), *.doc*")
If Fichier = False Then Exit Sub

'le document Word est supposé fermé avant le lancement de la macro
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = False 'pour que word reste masqué pendant l'opération
Set WordDoc = WordApp.Documents.Open(Fichier) 'ouverture du fichier Word

If WordDoc.Tables.Count < 2 Then 'verifie si le document possede bien le tableau
WordDoc.Close False
WordApp.Quit
MsgBox "Le document sélectionné : " & Chr(10) & Chr(10) & _
Fichier & Chr(10) & Chr(10) & "ne posséde pas le tableau spécifié", , "Message"
Exit Sub
End If

WordDoc.Tables(2).Range.Copy 'copie du tableau Word
'dans Word chaque tableau est indexé
'ici l'index est à 2 car le premier index correspond au cadre autour du titre du
'document Word

Range("A1").Select
ActiveSheet.Paste 'collage des données dans Excel

WordDoc.Close False 'ferme le document Word sans sauvegarde
WordApp.Quit 'ferme l'application Word
End Sub

Cordialement

 

[beegees]

Re : Transformer un document Word en Excel

Salut Said,

Un tout grand merci pour ta réponse.

Vraiment désolé pour le retard de ma réponse, j'ai été en incapacité de travail jusqu'à maintenant.

J'ai donc copié/collé le code dans un nouveau document Word, quand je lance la procédure, il me dit "Erreur de compilation: membre de méthode ou de données introuvables".

Je présûme que je dois référencer une bibliothèque ? si oui laquelle ?

Encore un tout grand merci pour ton aide.

beegees