Vba + envoies de données de word vers excel

Signaler
Messages postés
13
Date d'inscription
mercredi 13 avril 2005
Statut
Membre
Dernière intervention
22 avril 2005
-
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
-
Bonjour,

J'essaye de trnasférer des données de word vers Excel mais avec une petite "mise en page"

Mes données word sont récupérées d'autocad et ont cette forme:

aire : 125

périmètre: 10

....



j'arrive à copier coller mes données de word vers excel mais il me met toute une ligne dans une case:

aire: 125 dans une case

...



Et jvoudrai essayer de récupérer ces données en 2 cases:

aire: (premiere case) 125 (deuxieme case)

périmètre: (premiere case) 10 (deuxieme case)



bah si quelqu un a une idée, merci d'avance

3 réponses

Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
4
Lut,
Donnes ton bout de code d'exportation que l'on vois ou le bas blesse !!

Cordialement, Jean-Paul
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé
Messages postés
13
Date d'inscription
mercredi 13 avril 2005
Statut
Membre
Dernière intervention
22 avril 2005

bah voila le code d'importation des données de word vers excel,
je sais pas si je me suis bien exprimé, mais c'est une macro sous excel
qui récupère les données d'un fichier word et qui les copie sous excel,
c'est un peu long, j avoue:)



Dim DocWord As Word.Document

Dim AppWord As Word.Application

Set AppWord = New Word.Application

AppWord.ShowMe

AppWord.Visible = False

Set DocWord = AppWord.Documents.Open("c:\Windows\system32\Dessin1.mpr", ReadOnly:=True)

With AppWord

.Selection.WholeStory

.Selection.Copy

End With

ActiveWorkbook.Parent.Visible = True

Range("A16").Select

ThisWorkbook.Worksheets("Rectangulaire").PasteSpecial Format:="Texte"

AppWord.Application.Quit

Application.CutCopyMode = False



donc je sais pas trop si ce que je tente de faire est possible
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
4
Vi, je vois c'est pas évident ton truc
Ne peux tu pas faire un import d'autocad dans un tableau ça te faciliterais la tache.
sinon t'as pas d'autre choix que de faire une recherche des ":"
suis pas calé du tout en word mais cea devrai ressembler à ça

Dim MyRange, i, j
Set MyRange = Selection.Range
MyRange.WholeStory
j = 16
For i = 1 To (MyRange.Words.Count - 1) Step 2
début = Left(Words(i).Text, InStr(Words(i).Text, ":") - 1)
fin = Right(Word(i).Text, InStrRev(Words(i).Text, ":") - 1)
'Ici range de ta feuille à modifier peutêtre
Range("A" & j).Value = début
Range("A" & j).offset(0, 1).Value = fin
j = j + 1
Next

Cordialement, Jean-Paul
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé