Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Aidez moi .... Je suis desepere

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

rainbow69006

XLDnaute Occasionnel
Bonjour a tous

J'ai deja fais un post sur cela mais personne ne me repond plus et je suis desespere.

J'ai un fichier mise en annexe avec des liens hypertextes mises dans les colonnes 'D' 'E' 'F' 'G'.

J'aimerais que quand il y ait quelque chose dans les fichiers correspondants a mes liens hypertextes alors mes liens apparaissent et quand il n'y a rien dans les fichiers alors les cellules apparaissent vides ou au pire qu'il n'y ait plus les liens hypertextes.

Un internaute m'avait donne un bout de code. Celui-ci doit est quasi juste mais je ne trouve pas l'erreur.
- cela ne marche pas cela ne supprime pas les liens
- ce fichier et fais pour supprimer les liens et non mettre les cases comme vide

Ps. j'ai realiser un bout de codes pour creer les liens hypertexte automatiquement

Merci de votre aide
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Aidez moi .... Je suis desepere

A tester;

remplacer

Code: 
Sht.Cells(lig, 3 + Col).Hyperlinks.Add Anchor:=[COLOR=red]Selection[/COLOR], Address:=VDir, TextToDisplay:=VDir

par

Code: 
Sht.Cells(lig, 3 + Col).Hyperlinks.Add Anchor:=[COLOR=red]Sht.Cells(lig, 3 + Col).[/COLOR] Address:=VDir, TextToDisplay:=VDir
 
Vote positif 0 Vote négatif
Re : Aidez moi .... Je suis desepere

Jour Bon
Le fichier joint permet la recherche récursive ou non dans un Dossier d'un type de fichier ou de tous les fichiers, ainsi que la création des liens pour ces fichiers.Les 2 opérations sont séparées.
Lire les commentaires dans le module VBA pour l'adapter
En espérant faire progresser le smilblic
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Aidez moi .... Je suis desepere

Super Kiki

on ce rapproche de ce que je voudrais faire.

Mois j'aimerais que les liens apparaissent devant les noms des dossiers? comme c'est difficile a expliquer je met un fichier avec expliquation. j'ai mis aussi comment etait composer mes fichiers.

Merci de ton aide.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Aidez moi .... Je suis desepere

Euh

quand je clic sur 'cree les liens' rien ne ce passe.

Pour faire simple en fait je veu que quand on clic sur un bouton sa me cree mes liens hypertexte (exemple c:\youpi\orange\plane door\) , mais que sa ne les affiches que si il y a au moins un fichier dedant.
 
Vote positif 0 Vote négatif
Re : Aidez moi .... Je suis desepere

re, version 2
Donc si le Dossier c:\youpi\orange\plane door existe et qu'il y a au moins un fichier à l'intérieur il affiche le lien du Dossier : ceci m'amenra à une version 3
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Aidez moi .... Je suis desepere

Euh j'ai fais une petite erreur mon liens n'est pas sous la forme
c:\youpi\orange\plane door

mais sous la forme
c:\youpi\youpi orange\plane door

Quest ce que je dois modifier?

de plus mon lecteur n'est pas c:

ou dois je modifier la lettre ? juste ici ?
NomDossier = "C:\" & ShFichiers.Range("B" & i) & "\" & _
ShFichiers.Range("C" & i) & "\" & ShFichiers.Range(sLettreCol & "5")
 
Vote positif 0 Vote négatif
Re : Aidez moi .... Je suis desepere

Probleme !!

sa marche impeccable quand mon fichier et sur le bureau et que mes photos sont sur c:

le probleme c'est que mon fichier doit etre sur le reseau et mes photos aussi.

mais quand je remplace "c:\" par "\\Usi.........\.....\.....\" eh bien la sa me met une erreur
run time erreur 5
invalid procedur call or argument

et sa me surligne sa "ChDrive NomDossier" en jaune.

dit moi que c'est possible d'arranger sa
 
Vote positif 0 Vote négatif
Re : Aidez moi .... Je suis desepere

Je n'ai pas de réseau à dispo et donc le seul conseil que je puisse te donner c'est :
Clic Droit sur icône "Poste de Travail" puis sélectionner "Connecter un lecteur réseau"
 
Vote positif 0 Vote négatif
Re : Aidez moi .... Je suis desepere

C'est louche

En fait le reseau avait deja une lettre p:
j'ai mi cela mais quand je clique creer lien eh bien rien ne ce cree

Peut tu faire une version 4 qui m'affiche tout les liens meme si il n'y a rien dedant (pour voir si il y a un probleme de chemin)
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Aidez moi .... Je suis desepere

Ah Youpi Youpi . Je suis trop content je saute sur ma chaise au bureau (les gents doivent ce dire mais il est fou celui la)

Sa marche en fait j'ai mis une msgbox dans la version 3 et je me suis apercu que j'avais oublie un "\" quel idiot!!!

Je te remerci kiki en plus grace a toi je vais peut etre pouvoir solutionner mon probleme de creation de dossier.

Ps : comment vous faites pour etre aussi fort??

2eme PS : Le programe detecte nimporte quel fichier a l'interieur de mes dossiers ou juste les jpeg?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Aidez moi .... Je suis desepere

c'est fait dans la version 4 pour la création des dossiers
A priori tous les fichiers sont détectés mais si tu veux je modifie en conséquence ,précise-moi les types de fichiers à détecter
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Aidez moi .... Je suis desepere

Petit probleme dans la version 3 et 4.

Quand tu presse sur cree les liens il affiche les liens des fichiers qui possede une image (super)

le probleme c'est que si tu supprime cette image (donc plus d'image dans le dossier) et que tu reclique sur cree liens et ben il te remet quand meme le lien vers le dossier.

Bizarre non?
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
XL 2021 Fichier de suivi avec liens et formules
Réponses
4
Affichages
358
Mily74
M
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
366
Dégé59
D
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
381
vgendron
T
  • Question Question
XL 2019 Créer un lien hypertexte dans Excel vers un endroit spécifique d'un pdf
Réponses
3
Affichages
2 K
kiki29
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
441
sylvanu
L
  • Résolu(e)
Microsoft 365 Ratio dans un TCD
Réponses
4
Affichages
477
Laurent78
L
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
C
  • Résolu(e)
Microsoft 365 Doublons : mise en surbrillance erronée ?
Réponses
10
Affichages
774
TooFatBoy
J
  • Question Question
XL 2016 Trier des dates dans un ComboBox
Réponses
11
Affichages
741
jeff2318
J
M
  • Question Question
XL 2019 Problème ouverture lien hypertexte
2
Réponses
19
Affichages
2 K
sylvanu
N
  • Question Question
Microsoft 365 Liste déroulante (combobox) en fonction d'une séquence de valeurs
Réponses
13
Affichages
682
Neofalken
N
A
  • Question Question
XL 2013 Liaisons de données externes avec un fichier contenant un mot de passe
Réponses
14
Affichages
1 K
Staple1600
S
  • Question Question
XL 2019 Ajout de deux résultats INDEX/EQUIV
Réponses
7
Affichages
869
sofmat
S
C
  • Question Question
comment créer liens hypertexte vers dossiers ou liens vers fichiers en fonction des cellules ?
Réponses
0
Affichages
2 K
cd92600
C
Windows 10 : Plusieurs dossiers (avec tout leur contenu) disparaissent de mon disque "C"
2
Réponses
22
Affichages
2 K
Usine à gaz
T
  • Question Question
Microsoft 365 Mise à jour des liaisons externes d'un classeur sans ouvrir les classeurs sources
2
Réponses
16
Affichages
8 K
cedricobanjo
C
L
  • Résolu(e)
XL 2016 Problème liaison USF vers tableau et inversément
Réponses
1
Affichages
580
Ludo G
L
S
  • Résolu(e)
XL 2016 Problème avec la macro qui s'arrête
Réponses
4
Affichages
869
scoubidou35
S
  • Question Question
XL pour MAC Où pourrais-je trouver les icones Excel (c'est pour faire un profil Stream Deck)
Réponses
8
Affichages
2 K
dysorthographie
R
  • Question Question
XL 2019 Lien hypertexte qui s'ouvre 2 fois
Réponses
7
Affichages
3 K
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…