Discussion :

[popi33370]

Bonjour,

Pour mes besoins associatifs j'ai développé sous Excel 2007 une application de gestion qui enregistre, au regard de chaque écriture, le numéro du justificatif. Sur click d'un bouton, j'active une macro qui va rechercher dans un répertoire si, pour chaque justificatif, il existe un fichier .jpg ou .pdf et si c'est le cas je crée un hyperlink dans la cellule où est enregistré le numéro du justificatif : en cliquant dessus j'affiche automatiquement le justif scanné.

Tout ça fonctionnait parfaitement bien en version 2007, mais depuis le passage en version 2010 ça fonctionne à moitié :
- ok pour les fichiers .pdf
- pour les fichiers .jpg il m'affiche l'erreur suivante "Aucune application n'est associée à ce fichier".

J'ai passé des heures à rechercher dans les paramétrages Windows, Excel et à rechercher sur le net sans rien trouver qui résolve ce souci.

En désespoir de cause je m'adresse à ce forum : si quelqu'un a une idée de l'origine du bug ?

Voici le code utilisé : c'est la cellule B2 de chaque ligne i qui contient le numéro du justificatif stocké dans le répertoire REPERTOIRE sous le nom FICH(j)

Code :

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

1
2
3
4
5
6
With Worksheets(FEUILLE)
      .Hyperlinks.Add Anchor:=.Range("B" & i), _
      Address:=REPERTOIRE & FICH(j), _
      ScreenTip:="", _
      TextToDisplay:=""
End With

Merci de votre aide
Popi

[Daniel.C]

Bonjour,

Il faut refaire l'association liée aux fichier jpg. Que se passe-t-il lorsque tu double-cliques sur un de ces fichiers ?

[popi33370]

Je suis en Windows 7 et si je clique sur un fichier .jpg j'ai bien la visionneuse qui affiche le fichier.

[Daniel.C]

Bouton Windows, tape "Association" et choisis "Toujours ouvrir un type de fichier avec un programme spécifique" ou quelque chose du genre. Vérifie qu'il y a bien un programme associé à "jpg".

[popi33370]

L'appli par défaut est bien configurée dans W7 pour les fichiers .jpg

Le pb est apparu après l'upgrade en v10 d'Office : avant, sur le même W7, ça fonctionnait parfaitement bien avec .jpg et .pdf, depuis l'exécution de l'hyperlien dans Excel v10 retourne l'erreur uniquement sur les .jpg

Soit quelque chose a changé dans la v10 par rapport à la v7 soit il y a un bug ou une option dans l'hyperlien à rajouter pour les images soit une sécurité dans Excel v10 (j'ai pourtant tout vérifié et je n'ai rien trouvé sur ce point).

Pas évident à débugger ...

[Daniel.C]

Essaie d'insérer le lien manuellement, pour voir si tu as la même erreur.

[Marc-L]

Bonjour,

même en version 2010 il n'y a pas de raison …

C'est bien une version 32 bits, pas fait la c… de l'installer en 64 bits ?!

Sinon le problème peut être contourné :

Code :

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

1
2
3
4
5
Sub DocOpen(Fichier$)
    On Error Resume Next
    CreateObject("WScript.Shell").Run _
    CreateObject("Scripting.FileSystemObject").GetFile(Fichier).ShortPath
End Sub

En utilisant cette procédure avec l'évènement Worksheet_FollowHyperlink …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[popi33370]

J'ai inséré l'interception de l'événement follow-hyperlink mais ça ne fonctionne qu'avec les cibles pdf et pas jpg, ce qui confirme le pb.

En fait, l'interception n'est faite qu'après ouverture de l'hyperlien car avec le pdf ça affiche d'abord le pdf puis l'action d'interception, et pour le jpg ça affiche d'abord l'erreur d'absence d'application associée au jpg et donc pas d'exécution de l'action d'interception.

Ca a l'air zibarre cette affaire ...

Précision : le message d'erreur "Aucune application n'est associée à ce fichier" est bien une erreur interne à Excel et pas à Windows 7.

C'est peut-être tout simplement un bug dans Excel qui n'arrive pas à récupérer l'association faite dans W7 pour les fichiers .jpg ???