Word Ciblage et modification

risch_cyril · 12 Mars 2022

Bonjour,

Mon doc comporte le terme "E02" dans le nom de fichier

je souhaiterai de l'aide pour faire une macro qui cherche le numéro derrière "-E(numéro entre 00 et 99)-" et qu'il copie colle "E01" par exemple dans la cellule du document ci joint

Cordialement cyril

Staple1600 · 12 Mars 2022

Bonsoir

Utilises la fonction Split

VB:

Sub Test()
Chaine="TEST-E10-33838.docx"
Valeur=Split(Chaine,"-")(1)
Msgbox Valeur
End Sub

Staple1600 · 12 Mars 2022

Re

Un test plus abouti

VB:

Sub test_OK()
With ActiveDocument
.Paragraphs(1).Range.Text = Split(.Name, "-")(1)
End With
End Sub

risch_cyril · 13 Mars 2022

Staple1600 à dit:
Re

Un test plus abouti

VB:

Sub test_OK() With ActiveDocument .Paragraphs(1).Range.Text = Split(.Name, "-")(1) End With End Sub

Salut,
Je suis débutant, tu aurai la gentillesse de me l'écrire dans son intégralité ?

Staple1600 · 13 Mars 2022

Bonjour

Alors débutons
1) Il faut que tu enregistres ton document Word au format *.docm
(m comme macro) afin qu'il puisse conserver le code VBA.

2) Ouvres ton document Word puis faire ALT+F11

3) A gauche, tu dois voir ThisDocument
Tu copies/colles dans la zone blanche le code VBA ci-dessous

VB:

Private Sub Document_Open()
With ActiveDocument.Tables(2).Cell(Row:=1, Column:=2).Range
   .Delete
   .InsertAfter Text:=Split(ActiveDocument.Name, "-")(1)
  End With
End Sub

4) Tu enregistres et ferme ton document
NB: au format *.docm

5) Tu réouvres le document et normalement tu dois obtenir le résultat escompté.

PS: test OK sur mon PC avec ton fichier exemple.

risch_cyril · 13 Mars 2022

Staple1600 à dit:
Bonjour

Alors débutons
1) Il faut que tu enregistres ton document Word au format *.docm
(m comme macro) afin qu'il puisse conserver le code VBA.

2) Ouvres ton document Word puis faire ALT+F11

3) A gauche, tu dois voir ThisDocument
Tu copies/colles dans la zone blanche le code VBA ci-dessous

VB:

Private Sub Document_Open() With ActiveDocument.Tables(2).Cell(Row:=1, Column:=2).Range .Delete .InsertAfter Text:=Split(ActiveDocument.Name, "-")(1) End With End Sub

4) Tu enregistres et ferme ton document
NB: au format *.docm

5) Tu réouvres le document et normalement tu dois obtenir le résultat escompté.

PS: test OK sur mon PC avec ton fichier exemple.

Super ca marche merci.
Cependant mon docs original dispose de beaucoup de champs comme celui ci comment cibler le bon ?

Staple1600 · 13 Mars 2022

Re

Mon code se borne à faire ce que demande le message#1 et sur le fichier tel qu'il est construit.

Maintenant si le "vrai fichier" est différent alors il faudra adapter le code.

1) Déterminer combien il y a de tables dans ton document
2) Etudier une autre voie (les signets ou bookmarks)

Cette question étant résolue (*), prends le temps de faire un nouveau fichier exemple (au plus proche de ton document original mais sans données confidentielles)

Et ouvre une nouvelle discussion
(comme le conseille la charte du forum : 1 question = 1 discussion)

(*)

faire une macro qui cherche le numéro derrière "-E(numéro entre 00 et 99)-" et qu'il copie colle "E01" par exemple dans la cellule

Word Ciblage et modification

risch_cyril

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

risch_cyril

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

risch_cyril

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires