Word Ciblage et modification

[risch_cyril]

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]

Bonsoir

Utilises la fonction Split

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

 

[Staple1600]

Re

Un test plus abouti

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

 

[risch_cyril]

Re

Un test plus abouti

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]

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

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]

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

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]

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