Discussion :

[progaide]

bonjour,
j'ai besoin d'aide sur macro en vba je suis debutante j'ai essaier de le faire en vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
Dim Debut as long
Dim Fin as long
 
For i = 1 To ....
Debut = chercher le premier groupe de cellule "[x00" & i & "]"
Fin = chercher le prochain groupe de cellule "[x00" & i & "]"
 
Effacer la partie à droite de debut
Extraire "[x00" & i & "]" et le copier en [A2]
Extraire la partie centrale et le copier en [B2]
 
Next ....
End sub

qq1 peut m'aider svp

[aalex_38]

Bonjour,

Peux-tu expliquer ce que tu cherche à faire.


Ici l'explication pour parcourir une plage

[progaide]

salut d'accord

je voudrais recuperer des données comme ça ( salut les amie[x001]bonjour adan[x001]alors comment ça tu anna[x002]traès bien et vous[x002]..........)dans un document word
et avoir c resultats sur excel

x001|bonjour adan
x002|très bien et vous
.........................
.........................
seulement les données qui sont entre par exemple [x001]....et [x001]

et si je me suis pas bien expliquer vous pouvez trouvez dans la pièces jointes un petit exemple .
merci d'avance

[aalex_38]

Bon je n'ai pas le temps de tout faire, mais bon déja dans excel tu peux ouvrir ton fichier word avec quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Ouvreword()
Dim Wchemin As String
Dim wrdApp As Object
Dim wrdDoc As Object

On Error GoTo Line1

Wchemin = "...\exp.doc" => ici le chemin complet de ton fichier
Set wrdApp = CreateObject("Word.Application")
 
 Set wrdDoc = wrdApp.Documents.Open(Wchemin)
     wrdApp.Visible = True
 ' Ici le code pour rechercher dans word avec wrdApp.
' Exemple wrdApp.Selection.wholestory pour selectionner toute la page
  
 Exit Sub
Line1:


End Sub

Ensuite dans il te reste à rechercher tes balises dans word et les copier dans excel, utilise l'enregistreur de macro, adapte le code et si tu as test problèmes
tu nous les dis !

[progaide]

merci
mais je sais faire ça merci qui m'interesse maintenant c'est la macro pour copier les données de word vers excel merci

[aalex_38]

Ok,

Alors c'est simple, sur ta selection dans Word tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wrdApp.Selection.Copy

pour copier puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Paste Destination:=Worksheets("Feuil1").Range("D1")

pour coller.

J'espere que cela peut t'aider