Discussion :

[matth1531]

Bonjour, je cherche de l'aide car je debute en VB 6.0 et je veux creer une macro sous word qui verifie que les fichiers (pdf) insérés dans le document word sont bien présent , or je n'arrive pas à récupérer le lien! je peux ouvrir les fichiers si ils existent mais si ils sont absent j'ai l'erreur d'execution 5930 !
au secours!Merci
j'utilise ceci : "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
nb_objet = ActiveDocument.InlineShapes.Count
Do Until i > nb_objet
ActiveDocument.InlineShapes(i).Select
ActiveDocument.InlineShapes(i).OLEFormat.Activate
i = i + 1
Loop

[ouskel'n'or]

Que veux-tu obtenir ? Que ta boucle ignore les liens absents ? Si c'est ça, tu as pensé à "On error resume next" ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
nb_objet = ActiveDocument.InlineShapes.Count
On error resume next
Do Until i > nb_objet
    ActiveDocument.InlineShapes(i).Select
    ActiveDocument.InlineShapes(i).OLEFormat.Activate
    i = i + 1
Loop
on error goto 0

Tu dis
A+

NB - N'est valable que si ton code est ok des shapes existants

[matth1531]

merci d'avoir repondu.
en fait je veux verifier que les fichiers liés existent.

ce qui pourrait me depanner c'est de recuperer l'erreur systeme dans le cas ou le fichier n'existe pas. est-ce possible?
merci

[ouskel'n'or]

Il suffit d'ajouter un message pour afficher l'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
On error resume next
Do Until i > nb_objet
    ActiveDocument.InlineShapes(i).Select
    ActiveDocument.InlineShapes(i).OLEFormat.Activate
    if err then msgbox error(err)
    i = i + 1
Loop

En fait je ne comprends pas ton pb