Sup62
Messages postés13Date d'inscriptionmercredi 13 avril 2005StatutMembreDernière intervention22 avril 2005
-
22 avril 2005 à 01:08
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 2022
-
22 avril 2005 à 18:04
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:
Sup62
Messages postés13Date d'inscriptionmercredi 13 avril 2005StatutMembreDernière intervention22 avril 2005 22 avril 2005 à 13:27
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)
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 20223 22 avril 2005 à 18:04
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