[VBA-Word] Bidouillage de texte [Résolu]

[perophron]

Bonjour,
J'aimerais une petite aide pour modifier du texte qui apparait comme ceci:

"le fichier se situe dans NomduDossier"

Je souhaiterais que la macro efface la fin de la phrase jusqu'à "dans", NomduDossier étant plus ou moins long, afin de pouvoir concaténer le nom du dossier par la suite.

Pouvez-vous m'aider?

[ouskel'n'or]

En VBA on ne bidouille pas, Môssieur !

Bref, tu veux bricoler ta chaîne de façon à ajouter le nom du dossier quel qu'il soit...
Si c'est ça, teste ça

Code :

msgbox "le fichier se situe dans " & NomduDossier

A+

[perophron]

Ok je voulais pas te blesser, mais à mon niveau c'est encore du bidouillage.

Ce que tu m'indiques, ce n'est pas ce que je veux faire. Le but est bien de concatener par la suite, mais le texte apparrait dans une variable. C'est à partir de cette variable que je souhaite retirer la fin de la phrase.
Je pourrais utiliser du code que tu m'as déjà aidé à développer mais cela implique de connaitre le nombre exacte de caractères à retirer, ce que je ne peux avoir comme information.
Il me faut donc développer un code qui me permette d'effacer des caractères jusqu'à...

[perophron]

Bon ça reprend un peu un sujet sur lequel j'ai déjà posé une question, mais peux-tu m'indiquer comment dans mon code je peux définir mon texte comme une sélection pour laquelle je peux utiliser le code:

Code :

Selection.MoveLeft Unit:=wdCharacter, Count:=16, Extend:=wdExtend

[ouskel'n'or]

Envoyé par Tu

Ok je voulais pas te blesser, mais à mon niveau c'est encore du bidouillage.

C'est là que tu me blesse Je plaisantais
Deux choses l'une :
Ou tu connais la longueur de ce que tu veux conserver ("le fichier se situe dans ")
Ou tu connais le nom NomduDossier
Il faut bien que tu aies l'un des deux sinon ça va être compliqué
Dans le premier cas tu fais

Code :

LaChaîneArécupérer = "le fichier se situe dans "

et ça m'étonnerait que ce soit ça
Dans le second, tu fais

Code :

LaChaîne = Left(LaChaîneDuDépart, len(LaChaîneDuDépart) - Len(NomduDossier))

Et là tu n'as plus le nom du dossier.
Tu dis

[perophron]

Mais moi aussi je plaisantais, t'en fais pas.

Sinon nickel, c'est presque ça que je voulais, mais j'ai une insulte qui me dis erreur de syntaxe!
Dans les parenthèses des len, tu mets bien des expressions, ou des chiffres?
Car le code suivant:

Code :

chemin = Documents.Application.ActiveDocument.Path

me renvoie C:/Dossier technique/03 Rapports
Donc j'écris

Code :

LaChaîne = Left(chemin, len(chemin) - Len(03 Rapports))

Et là il ne veut pas: erreur de syntaxe

[ouskel'n'or]

Ben voui, 03 Rapports est une chaîne de caractères, doit avoir des guillemets

Code :

Len("03 Rapports")

A+

[perophron]

Ah bah voilà c'étaient les guillemets.
Ca marche encore une fois nickel chrome.
Merci beaucoup