Bonjour à tous,

j'ai bien avance sur mon projet mais j'ai quelques soucis sur des cas particuliers et donc j'aurai besoin de votre aide.

Projet: récupérer des chaines de caractères d'un fichier Word vers excel à laide de balises en vba.

Actuel: j'arrive bien à récupérer mes chaines quand le texte se présente comme ci dessous:
[balise] blablabla [/balise]

Problème1: les chaines se présentent de temps en temps du type:
[balise]
blablabla
[/balise]
De cette manière mon code ne récupère pas la chaîne.

Je pensais résoudre ce soucis en changeant un opérateur logique (en rajoutant '=' ou 'OR'):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If InStr(1, Txt, "[/" & Bal & "]") >= 0 Then
mais le compilateur me donne une erreur 3 lignes en dessous;

Problème2: les chaines se présentent de temps en temps du type:
[balise]
blablabla [textTech] blablabla [/balise]
Dans ce cas, mon code ne récupère pas la chaîne car il y a d'autres [] entre le début et la fin de la balise. [textTech]= fait partie de la chaîne à récupérer avec blabla;


voici une partie de mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
      For Each Paragraphe In WordDoc.Paragraphs
         'pour chaque paragraphe on verifie si il y a un [ et un ]
         Txt = Paragraphe.Range.Text
         Deb = InStr(1, Txt, "[")
         Fin = InStr(1, Txt, "]")
 
         If Deb > 0 And Fin > 0 Then
            Bal = Mid(Txt, Deb + 1, Fin - 2)
            If InStr(1, Txt, "[/" & Bal & "]") > 0 Then
               Deb = InStr(1, Txt, "[" & Bal & "]") + Len("[" & Bal & "]")
               Fin = InStr(1, Txt, "[/" & Bal & "]") - Len("[/" & Bal & "]")
               Txt = Mid(Txt, Deb, Fin)
FYI: les balises ne s'appellent pas toujours 'balise' c'est pour ça que je me base sur [ et [/

Merci par avance pour votre aide.

EDIT: Je me suis trompé de topic, modo: peux tu deplacer mon post dans excel VBA ? merci