question sur les liens hypertexte

[rainbow69006]

Bonjour

J'ai un fichier excel et dedant j'ai mis des liens hypertexte vers des dossiers.

J'aimerais que mes liens hypertexte apparaissent quand il y a quelque chose dans les dossiers et disparaissent quand il n'y a rien a l'interieur.


merci de votre aide

 

[rainbow69006]

Re : question sur les liens hypertexte

Et seconde question c'est possible de faire des liens hypertexte qu sont cree automatiquement en fonction de ce qu'on a dans des cases?

merci

 

[Compte Supprimé 979]

Re : question sur les liens hypertexte

Bonjour
J'ai un fichier excel et dedant j'ai mis des lies hypertexte vers des dossiers.
J'aimerais que mes liens hypertexte apparaissent quand il y a quelque chose dans les fichiers et disparaissent quand il n'y a rien a l'interieur.
ou alors qu'il y est une case qui me disent si il y a quelaue chose dans mon fichier ou pas.

Pour avoir des liens hypertext qui apparaissent ou disparaissent, je suis parti du principe que dans une colonne tu as l'emplacement du/des répertoires !

Tu trouveras le fichier joint avec du code dans la Feuil1

J'ai fait l'essai avec deux dossiers sur le "C:\" Dossier1 et Dossier2, l'un contient au moins un fichier l'autre non !

A+

 

[rainbow69006]

Re : question sur les liens hypertexte

Euh je sais pas mais quand j'ouvre ton fichier
j'ai une erreur
run time error 52
bad file name or number

Pourtant j'ai cree 2 dossiers sur c:
- dossier1
- dossier2

que dois je faire?

 

[Compte Supprimé 979]

Re : question sur les liens hypertexte

Re,
Tu me parles de FICHIER et moi je te parle de DOSSIER 😕

J'aimerais que mes liens hypertexte apparaissent quand il y a quelque chose dans les fichiers et disparaissent quand il n'y a rien a l'interieur.

Qu'entends tu par "quelque chose dans les fichiers" !?
J'avais traduit par "quelque chose dans le dossier" !

A+

 

[rainbow69006]

Re : question sur les liens hypertexte

Euh oui autant pour moi s'etait bien de dossiers dont je parlais.

Mais cela ne change rien quand j'ouvre ton fichier excel il y a quand meme une erreur

peut tu m'aider?

 

[rainbow69006]

Re : question sur les liens hypertexte

Je me permet de relancer mon post j'ai absolument besoin d'une solution

merci de votre aide

 

[Compte Supprimé 979]

Re : question sur les liens hypertexte

Salut Rainbow69006,

Désolé je n'avais pas testé mon code jusqu'au bout 😱

Il faut sortir de la sub si aucune valeur dans la cellule, ce qui donne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim VDir As String, HLink As String, FlgFic As Boolean
  ' Récupère le chemin du dossier
  VDir = ActiveSheet.Range("A" & Target.Row).Value
  ' On sort de la procédure si aucun nom de dossier dans la cellule
  ' Empèche le message d'erreur 52
  If VDir = "" Then Exit Sub
  ' Vérifie l'antislash de fin
  If Right(VDir, 1) <> "\" Then VDir = VDir & "\"
  ' Met à VRAI le Flag de Fichier si le dossier en contient au moins un
  FlgFic = Dir(VDir & "\") <> ""
  ' Suivant la valeur du FLAG
  If FlgFic = True Then
    Target.Hyperlinks.Add Anchor:=Selection, Address:=VDir, TextToDisplay:=VDir
  Else
    Target.Hyperlinks.Delete
  End If
End Sub

Ca devrait aller mieux 😉

 

[rainbow69006]

Re : question sur les liens hypertexte

Oui maintenant plus d'erreur.

Par contre c'est pas tout a fais ce que j'aurais voulu moi j'aurais voulu que
par exemple le lien vers le dossiers 1 soit placer en A1 .
Mais qui apparaissent ou disparraissent en A1 (automatiquement)

alors que dans ton fichier on doit cliquer en A2 , A3 etc.. pour savoir si il y a quelque chose dans le dossier 1 ? (ou alors on clique en A1 mais la premiere fois on peu y aller meme si aucun fichier n'est a l'interieur)


Peu tu arranger ca ?

PS: les mecs sur ce forum sont vraiment trop fort !!!

 

[Compte Supprimé 979]

Re : question sur les liens hypertexte

Re,

Par contre c'est pas tout a fais ce que j'aurais voulu moi j'aurais voulu que
par exemple le lien vers le dossiers 1 soit placer en A1 .
Mais qui apparaissent ou disparraissent en A1 (automatiquement)

Quand tu dis automatiquement, à quel moment exactement !?
A l'ouverture du fichier ?
En cliquant sur un bouton ?
En changeant une valeur ?

A+

 

[rainbow69006]

Re : question sur les liens hypertexte

Soit en cliquant sur un bouton soit a l'ouverture du fichier.

Mais le mieu serait a l'ouverture du fichier.

courtoisement

 

[Compte Supprimé 979]

Re : question sur les liens hypertexte

Salut Rainbow69006,

Est-ce que dans une colonne tu as bien le chemin de tes dossiers ?

Si oui dans qu'elle colonne ?

A+

 

[rainbow69006]

Re : question sur les liens hypertexte

Oui en fait j'ai fais un macro qui me cree automatiquement tout mes liens hypertextes.

J'ai des liens hypertexte dans les colonnes "D", "E", "F", "G"
les nombres de lignes sont variables mais au minimum 512 lignes

soit un total de 2048 liens hypertextes!!!

 

[Compte Supprimé 979]

Re : question sur les liens hypertexte

Re,

Voilà un fichier avec du code dans ThisWorkbook, qui se lance à l'ouverture du fichier 😉

A+

 

[rainbow69006]

Re : question sur les liens hypertexte

Est tu sur qu'il y a du code sur ton fichier?

il n'y a rien dans macro et rien dans visual basic editor

Si il est present tu peu me dire comment y acceder?

merci