Discussion :

[bullrot94]

Bonjour à tous,
Voici mon problème.
J’ai un fichier Excel comportant un lien hypertexte vers un fichier Word.
Je souhaiterais qu’une macro :
- ouvre le fichier Word
- recherche dans ce fichier un mot bien précis (« date d’application »)
- copie un nombre de caractères qui suivent ce mot dans une cellule (dans mon cas C5)
- ferme le fichier Word.
Cette macro me permet de tenir à jour mon fichier Excel, le copier-coller par liaison n’étant pas fiable (lignes amenées à être décalées dans le fichier word).

Je vous remercie d’avance pour votre aide, ci-dessous ma macro qui bugge :

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
21
22
23
24
25
26
27
28
29
30
Sub test() 
 
Range("B5").Select 
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 
 
 
Selection.Find.ClearFormatting 
With Selection.Find 
.Text = "date d'application" 
.Replacement.Text = "" 
.Forward = True 
.Wrap = wdFindContinue 
.Format = False 
.MatchCase = False 
.MatchWholeWord = False 
.MatchWildcards = False 
.MatchSoundsLike = False 
.MatchAllWordForms = False 
End With 
Selection.Find.Execute 
Selection.MoveRight Unit:=wdCharacter, Count:=4 
Selection.MoveRight Unit:=wdCharacter, Count:=10, Extend:=wdExtend 
Selection.Copy 
ActiveWindow.Close 
Application.Quit 
 
Range("C5").Select 
ActiveSheet.Paste 
 
End Sub

Cette macro bugge une fois que la macro commence son travail sur word et plus précisemment à la ligne 3 (Selection.Find.ClearFormatting ).
Voici le message d'erreur :
"Erreur d'excécution 450"
"Nombre d'arguments incorrect ou affectation de propriété incorrect"

[JackOuYA]

bonjour,

suivre le lien, ne me semble pas une bonne idée tu devrai plutôt ouvrir ton fichier en créant une instance de word...

[bullrot94]

En faites je me sers du lien parce que le fichier word se trouve sur un logiciel de mon entreprise et je ne peux pas aller à la source de celui ci