XL 2010 Formule SI, LIEN_HYPERTEXTE, procédure externe fonctionnement bizarre

[Guy_M]

Bonjour,

Dans une formule de ce type, le lien hypertexte fonctionne
=SI(ConditionCandidature; LIEN_HYPERTEXTE(DossierCandidatures&IdCandidat;"Répertoire candidature");"Pas de dossier de candidature.")

alors que dans cette formule, le lien hypertexte ne fonctionne pas
=SI(ConditionCandidature;SI(Personal.xlsb!DossierExiste(DossierCandidatures&IdCandidat);LIEN_HYPERTEXTE(DossierCandidatures&IdCandidat;DossierCandidatures&IdCandidat);"Doit être créé");"Non concerné")

ConditionCandidature, DossierCandidatures et IdCandidat sont des cellules nommées.

Quelqu'un aurait-il une explication ? Aurais-je raté quelque chose ?

Par avance, je vous remercie de vos réponses.

 

[Staple1600]

Bonsoir le fil

=>Guy_M

Aurais-je raté quelque chose ?
Par avance, je vous remercie de vos réponses.

Oui, ce me semble
Je te laisse deviner quoi...

 

[Guy_M]

Bonjour,

Je te laisse deviner quoi...

C'est bien parce que je n'arrive pas à deviner que je pose la question.
Donc, je donne ma langue au chat.

 

[Staple1600]

Bonjour le fil,

=>Guy_M
Je dirais au débotté, à brûle-pourpoint: râté l'occasion de joindre un fichier exemple
(pour nous faciliter la tâche et pouvoir tester in situ)


(Depuis 13 ans que tu es inscrit sur le forum, tu as du la lire maintes et maintes fois cette supplique du fichier joint, non ? )

 

[Guy_M]

Bonjour le fil,

=>Guy_M
Je dirais au débotté, à brûle-pourpoint: râté l'occasion de joindre un fichier exemple
(pour nous faciliter la tâche et pouvoir tester in situ)


(Depuis 13 ans que tu es inscrit sur le forum, tu as du la lire maintes et maintes fois cette supplique du fichier joint, non ? )

Évidemment, il n'est pas possible de fournir le fichier confidentiel.

J'ai donc essayé de construire un fichier exemple avec :
=SI(VRAI; LIEN_HYPERTEXTE("C:";"Répertoire candidature");"Pas de dossier de candidature.")
et
=SI(VRAI;SI(Personal.xlsb!DossierExiste("C:");LIEN_HYPERTEXTE("C:";"C:");"Doit être créé");"Non concerné")

Ça marche. Je dois trouver une autre méthode pour reproduire l'erreur.

 

[Guy_M]

joindre un fichier exemple

Ci joint le fichier exemple et la fonction à insérer dans votre Personal.xlsb

Public Function DossierExiste(MonDossier As String)
   DossierExiste = Len(Dir(MonDossier, vbDirectory)) > 0
End Function

L'utilisation de la fonction personnalisée externe empêche le lien hypertexte de fonctionner.

 

[Staple1600]

Bonjour

Évidemment, il n'est pas possible de fournir le fichier confidentiel.

Evidemment tout XLDdien qui a un peu de bouteille sait (car il a lu la charte du forum) qu'on ne joint jamais le fichier original!
Le même XLDien saura qu'on créé un fichier Excel exemple dont la seule vocation est d'illustrer la problématique rencontrée.

Maintenant j'ai une question:
Quel est le contexte? et quel est le but de la manoeuvre?

 

[Guy_M]

Quel est le contexte? et quel est le but de la manoeuvre?

L'objectif est que si le dossier existe, un lien hypertexte permet d'ouvrir ce dossier depuis la cellule sinon indiquer que le dossier doit être créé.

 

[Staple1600]

Re

???
Je devais mettre des liens hypertextes dans les cellules, bien évidemment ceux-ci seraient valides dès leur création.

Trop gazééfié et trop loin de mon KISS.
Je passe le relais à mes petits camarades de jeux

 

[job75]

Bonsoir Guy_M, JM,

Téléchargez le fichier et les dossiers zippés joints dans le même répertoire (le bureau).

La macro pour créer les liens hypertextes vers les dossiers :

Sub Creer_Liens()
With Feuil1
    .Range("A2:A" & .Rows.Count).Clear 'RAZ
    .Hyperlinks.Add [A3], ThisWorkbook.Path & "\Dossier1"
    .Hyperlinks.Add [A5], ThisWorkbook.Path & "\Dossier2"
    .Hyperlinks.Add [A7], ThisWorkbook.Path & "\Dossier3"
    .Columns(1).AutoFit
End With
End Sub

Les liens sont testés à chaque ouverture du fichier :

Private Sub Workbook_Open()
Dim h As Hyperlink, x$
With Feuil1 'CodeName
    For Each h In .Hyperlinks
        x = h.Address
        If Not x Like "?:\*" Then x = Me.Path & "\" & x 'chemin complet
        h.Parent = "Ce dossier " & IIf(Len(Dir(x, vbDirectory)), "existe : ", "n'existe pas : ") & x
    Next
    .Columns(1).AutoFit
End With
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

A+

 

[Guy_M]

Je devais mettre des liens hypertextes dans les cellules, bien évidemment ceux-ci seraient valides dès leur création.

Au début j'avais commencé avec =SI(ConditionCandidature; LIEN_HYPERTEXTE(DossierCandidatures&IdCandidat;"Répertoire de candidature");"Pas de dossier de candidature.") mais au bout d'un moment, ça m'a énervé de cliquer de temps en temps sur un lien qui me balançait une erreur parce que je n'avait pas encore exécuté la commande de création du dossier (au téléchargement des fichiers que contient le dossier, écrit en R).

Donc je me suis rabattu sur l'aide mémoire "Dossier créé"/"Doit être créé". Et là, le lien hypertexte s'affiche mais ne marche pas, j'ai remplacé "Dossier crée" par le chemin pour contrôler sa valeur (où est l'erreur ?). J'ai essayé de rester KISS.

 

[Guy_M]

Merci beaucoup pour cette proposition, mais ceci n'explique pas pourquoi l'appel à "Personal.xlsb!DossierExiste" rend le lien hypertexte inopérant.

De plus j'essaye autant que possible de ne pas mettre de macro dans mes tableurs car ensuite il est difficile de les envoyer par mail (les classeurs avec macro sont interdits par la messagerie de mon boulot).

 

[job75]

Bonjour Guy_M, le forum,

De plus j'essaye autant que possible de ne pas mettre de macro dans mes tableurs car ensuite il est difficile de les envoyer par mail

Les macros que j'ai données sont là pour faire des tests uniquement.

Vous n'allez pas envoyer par mail des liens qui n'existent pas !

A+