Discussion :

[vilmorpheus]

Bonjour à tous et merci pour l'accueill sur le forum,

Je demande très rarement de l'aide sur les questions informatiques, mais deux jours de prise de tête ont eu raison de moi...

je vous expose mon problème.
je possède pleins de dossiers eux même pleins de fichier excel.
Pour accéder à ces fichiers excel et récupérer le chemin, j'utilise un hyperlink. J'ai besoin de tout façon de cet hyperlink pour pouvoir accéder facilement à l'ensemble des fichiers.

La procédure que je veux mettre en plaçe valide le fichier excel si et seulement si il existe un pdf dans le même dossier où celui si se trouve.
est-ce clair?

Voilà mon code.

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
31
32
33
Function VerifHyperlink(Cellule As Range) As Boolean
 
    Dim Cible As String
    Dim pdfExiste As Boolean
    pdfExiste = False
 
    'Vérifie si la cellule contient un lien hypertexte
    If Cellule.Hyperlinks.Count = 0 Then
        VerifHyperlink = False
 
        Exit Function
    End If
 
    'Extrait l'adresse du lien
    Cible = Cellule.Hyperlinks(1).Address
 
   If Dir(Cible & "*.pdf") <> "" Then
     pdfExiste = True
     Else
     pdfExiste = False
    End If
 
    'Vérifie si le fichier existe.
    '(Ne fonctionne pas pour les liens web).
    If Cible <> "" And pdfExiste = True Then
        VerifHyperlink = True
 
        Else
        VerifHyperlink = False
 
    End If
 
End Function

La partie Dir(Cible & "*.pdf") renvoie en fait toujours null et je ne parviens pas à savoir pourquoi.

Je vous remercies par avance de votre aide.

[Minick]

Salut,

As-tu regarde ce que te retourne Cible?

A te lire

[vilmorpheus]

Cible me renvoit correctement le chemin jusqu'a dossier/fichier.xls.

Si Dir renvoie bien au dossier correspondant à ce fichier, je ne vois vraiment pas le problème...

[Minick]

Re,
Je pensais te mettre la puce a l'oreille mais apparemment non

Le probleme est simple si Cible renvoie le chemin et le fichier complet
quand tu fais Dir(Cible & "*.pdf") cela revient a rechercher Chemin\Document.xls*pdf donc tu ne trouveras jamais.

Il faut substituer xls dans Cible par pdf par exemple:

Code :

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

Dir(mid(Cible,1,len(Cible)-3) & "pdf")

[vilmorpheus]

Ohhh, j'interpretais donc n'importe comment le dir .
Merci pour tout!