XL pour MAC Liens Hypertexte VBA semi auto

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion nobodyuse
  • Date de début Date de début

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
N

nobodyuse

XLDnaute Occasionnel
Bonjour le Fil

J'ai un fichier Excel placé sur serveur qui sera utilisé par plusieurs personnes
Ce fichier qui doit contenir sur chacune des lignes (+de 1000 lignes prévisionnel) de la colonne E un lien vers un fichier (qui ne sera pas le même a chaque fois) qui sera placé toujours dans le même dossier sur le serveur
Y 'a t'il moyen a l'aide d'une macro de "pré-remplir" la cellules pour qu'il n'y ai plus qu'a ajouter le nom du fichier et que ce soit fonctionnel (plutôt de pré-remplir une formule de type🙂
VB: 
=LIEN_HYPERTEXTE("....\...\...\...\....\";"Liens à insérer")
que chaque utilisateur devra compléter afin que ce soir fonctionnel pour les autres

je n'ai rien trouvé ici qui pourrai m'aider

j’espère avoir été clair
Merci 😉
 
Solution
Bernard_XLD
re,

un truc comme ça, par exemple, tu peux même déclarer une constante pour ton chemin si tu veux.

Cordialement, @+
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    'pour tester, entrez "forum-excel.7" en cellule A1
 
    If Not Intersect(Range("A1:A1000"), Target) Is Nothing Then
        Dim File_Path$
 
        File_Path = "https://www.excel-downloads.com/forums/" 'chemin prédéfini
 
        On Error GoTo Gere_Erreurs
        ThisWorkbook.FollowHyperlink Address:=File_Path & Target.Value
        On Error GoTo 0
    End If
    Exit Sub
Gere_Erreurs:
    Err.Clear
    MsgBox "Fichier ou page web introuvable : " & File_Path & Target.Value, vbOKOnly + vbInformation
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target...
Trier par date Trier par votes
Bonjour nobodyuse, le forum

Une macro peut parfaitement créer un lien hypertexte en ayant le chemin et le nom de fichier, on peut le faire avec une événementielle qui agira sur l'entrée du nom de fichier, le chemin peut être stocké en dur ou dans une cellule. Si tes nommages de fichiers sont modélisés, on peut lier la création du lien à l'existence du fichier. Que préfères tu ? à la rigueur, mets une feuille exemple sur la façon dont tu veux organiser les données.

Bien cordialement, @+
 
Vote positif 0 Vote négatif
Yeahou à dit:
Bonjour nobodyuse, le forum

Une macro peut parfaitement créer un lien hypertexte en ayant le chemin et le nom de fichier, on peut le faire avec une événementielle qui agira sur l'entrée du nom de fichier, le chemin peut être stocké en dur ou dans une cellule. Si tes nommages de fichiers sont modélisés, on peut lier la création du lien à l'existence du fichier. Que préfères tu ? à la rigueur, mets une feuille exemple sur la façon dont tu veux organiser les données.

Bien cordialement, @+
Cliquez pour agrandir...
Yeahou à dit:
Bonjour nobodyuse, le forum

Une macro peut parfaitement créer un lien hypertexte en ayant le chemin et le nom de fichier, on peut le faire avec une événementielle qui agira sur l'entrée du nom de fichier, le chemin peut être stocké en dur ou dans une cellule. Si tes nommages de fichiers sont modélisés, on peut lier la création du lien à l'existence du fichier. Que préfères tu ? à la rigueur, mets une feuille exemple sur la façon dont tu veux organiser les données.

Bien cordialement, @+
Cliquez pour agrandir...
Bonsoir yeahou
Les fichiers sont nommé de manière aléatoire par un ordinateur.
Il n’y a donc pas de trame

l’idée serai de stocké en dur au moyen d’une macro dans les cellules de la colonne E (E4 > E1004) de façon que les utilisateurs entrant les données n’ai pas renseigner que le nom de fichier (ex: « td36rd7l.ldf »)
Pour que les lecteurs utilisateurs du fichier n’ai que à cliquer sur la cellule pour être envoyé vers le fichier en question
 
Vote positif 0 Vote négatif
Bonjour Nobodyuse, le forum

ce petit exemple tout simple lancera, sur une entrée de nom dans la plage A1:A1000, tout fichier ou page web de nom existant par rapport à un chemin prédéfini.
Essayes en entrant d'abord "forum-excel,7" en A1 puis "forum-excel.7"
Cela permet aussi de vérifier que le nom entré correspond bien à un lien accessible.
tu peux utiliser le même principe, une fois le nom créé, avec selection_change pour lancer le lien pour les utilisateurs

Bien cordialement, @+
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    
    'pour tester, entrez "forum-excel.7" en cellule A1
    
    If Not Intersect(Range("A1:A1000"), Target) Is Nothing Then
        Dim File_Path$
    
        File_Path = "https://www.excel-downloads.com/forums/" 'chemin prédéfini
    
        On Error GoTo Gere_Erreurs
        ThisWorkbook.FollowHyperlink Address:=File_Path & Target.Value
        On Error GoTo 0
    End If
    Exit Sub
Gere_Erreurs:
    Err.Clear
    MsgBox "Fichier ou page web introuvable : " & File_Path & Target.Value, vbOKOnly + vbInformation
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
re,

un truc comme ça, par exemple, tu peux même déclarer une constante pour ton chemin si tu veux.

Cordialement, @+
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    'pour tester, entrez "forum-excel.7" en cellule A1
 
    If Not Intersect(Range("A1:A1000"), Target) Is Nothing Then
        Dim File_Path$
 
        File_Path = "https://www.excel-downloads.com/forums/" 'chemin prédéfini
 
        On Error GoTo Gere_Erreurs
        ThisWorkbook.FollowHyperlink Address:=File_Path & Target.Value
        On Error GoTo 0
    End If
    Exit Sub
Gere_Erreurs:
    Err.Clear
    MsgBox "Fichier ou page web introuvable : " & File_Path & Target.Value, vbOKOnly + vbInformation
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim File_Path$

    File_Path = "https://www.excel-downloads.com/forums/" 'chemin prédéfini

    If Target.Count = 1 Then
        If Not Intersect(Range("A1:A1000"), Target) Is Nothing And Not Target.Value = "" Then
            On Error GoTo Gere_Erreurs
            ThisWorkbook.FollowHyperlink Address:=File_Path & Target.Value
            On Error GoTo 0
        End If
    End If
    Exit Sub
Gere_Erreurs:
    Err.Clear
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
Bonjour Yeahou

Je dois me planter quelque par mais quand j’intègre la macro dans ma worksheep ça n'a pas l'air de fonctionner :/
(Sachant que cette macro est précédé d'une autre pour les dates)

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
If Target.Column = 14 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
If Target.Column = 17 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
If Target.Column = 18 And Target.Row > 1 Then Target.Offset(0, 2).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date + 365)
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
   
    'pour tester, entrez "forum-excel.7" en cellule I1
   
    If Not Intersect(Range("I1:I1004"), Target) Is Nothing Then
        Dim File_Path$
   
        File_Path = "https://www.excel-downloads.com/forums/" 'chemin prédéfini
   
        On Error GoTo Gere_Erreurs
        ThisWorkbook.FollowHyperlink Address:=File_Path & Target.Value
        On Error GoTo 0
    End If
    Exit Sub
Gere_Erreurs:
    Err.Clear
    MsgBox "Fichier ou page web introuvable : " & File_Path & Target.Value, vbOKOnly + vbInformation
End Sub


et j'ai une erreur qui remonte:
"Nom ambigu détecté: Worksheet_Change"
 
Vote positif 0 Vote négatif
Yeahou à dit:
re,

un truc comme ça, par exemple, tu peux même déclarer une constante pour ton chemin si tu veux.

Cordialement, @+
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    'pour tester, entrez "forum-excel.7" en cellule A1
 
    If Not Intersect(Range("A1:A1000"), Target) Is Nothing Then
        Dim File_Path$
 
        File_Path = "https://www.excel-downloads.com/forums/" 'chemin prédéfini
 
        On Error GoTo Gere_Erreurs
        ThisWorkbook.FollowHyperlink Address:=File_Path & Target.Value
        On Error GoTo 0
    End If
    Exit Sub
Gere_Erreurs:
    Err.Clear
    MsgBox "Fichier ou page web introuvable : " & File_Path & Target.Value, vbOKOnly + vbInformation
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim File_Path$

    File_Path = "https://www.excel-downloads.com/forums/" 'chemin prédéfini

    If Target.Count = 1 Then
        If Not Intersect(Range("A1:A1000"), Target) Is Nothing And Not Target.Value = "" Then
            On Error GoTo Gere_Erreurs
            ThisWorkbook.FollowHyperlink Address:=File_Path & Target.Value
            On Error GoTo 0
        End If
    End If
    Exit Sub
Gere_Erreurs:
    Err.Clear
End Sub
Cliquez pour agrandir...
Yeahou

Bon j'ai refait sur mon Ordi Perso ca a l'air de fonctionner, l'erreur du au Nom venais du fait que les 2 macro portai un nom similaire
Je fini la mise en place et vais faire un test sur Serveur
je te dirai 😉

En tous cas merci
 
Vote positif 0 Vote négatif
Re,
nobodyuse à dit:
ca a l'air de fonctionner
Cliquez pour agrandir...
Bien sûr que ça fonctionne, par contre, on ne peut pas faire deux procédures Worksheet_Change sur la même feuille, il faut les fusionner, d'où le nom ambigu.

Cordialement, @+
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
If Target.Column = 14 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
If Target.Column = 17 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
If Target.Column = 18 And Target.Row > 1 Then Target.Offset(0, 2).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date + 365)
  
    'pour tester, entrez "forum-excel.7" en cellule I1
  
    If Not Intersect(Range("I1:I1004"), Target) Is Nothing Then
        Dim File_Path$
  
        File_Path = "https://www.excel-downloads.com/forums/" 'chemin prédéfini
  
        On Error GoTo Gere_Erreurs
        ThisWorkbook.FollowHyperlink Address:=File_Path & Target.Value
        On Error GoTo 0
    End If
    Exit Sub
Gere_Erreurs:
    Err.Clear
    MsgBox "Fichier ou page web introuvable : " & File_Path & Target.Value, vbOKOnly + vbInformation
End Sub
 
Vote positif 0 Vote négatif
Yeahou à dit:
Re,

Bien sûr que ça fonctionne, par contre, on ne peut pas faire deux procédures Worksheet_Change sur la même feuille, il faut les fusionner, d'où le nom ambigu.

Cordialement, @+
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
If Target.Column = 14 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
If Target.Column = 17 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
If Target.Column = 18 And Target.Row > 1 Then Target.Offset(0, 2).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date + 365)
   
    'pour tester, entrez "forum-excel.7" en cellule A1
   
    If Not Intersect(Range("I1:I1004"), Target) Is Nothing Then
        Dim File_Path$
   
        File_Path = "https://www.excel-downloads.com/forums/" 'chemin prédéfini
   
        On Error GoTo Gere_Erreurs
        ThisWorkbook.FollowHyperlink Address:=File_Path & Target.Value
        On Error GoTo 0
    End If
    Exit Sub
Gere_Erreurs:
    Err.Clear
    MsgBox "Fichier ou page web introuvable : " & File_Path & Target.Value, vbOKOnly + vbInformation
End Sub
Cliquez pour agrandir...

Dans le doute je ne l'ai pas fusionné mais j'ai changé le NOM de Worksheet_Change en WorksheetLink et ca fonctionne 😉

Je viens de le mettre sur serveur ca a l'air d'aller maintenant il reste plus qu'a faire tester par les utilisateurs habituel

Merci Beaucoup tu m'a simplifié la tache la 😉
 
Vote positif 0 Vote négatif
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

S
  • Résolu(e)
Microsoft 365 Conserver lien hypertexte avec une fonction RechercheV
2
Réponses
19
Affichages
1 K
job75
job75
Orson83
  • Résolu(e)
XL 2010 Lien hypertexte mail + message avec saut de ligne
2
Réponses
23
Affichages
2 K
Staple1600
Staple1600
C
  • Question Question
XL 2021 EXCEL IMPORTER du texte de plusieurs fichier en 1 fichier
Réponses
6
Affichages
697
Cousinhub
Cousinhub
G
  • Question Question
XL 2019 automatiser les liens (hypertexte) entre deux fichiers
Réponses
1
Affichages
610
gestionnaire
G
A
  • Résolu(e)
XL 2019 Passage de 2013 pro à 2019 pro, Pb avec formule VBA, liens hypertexte
2 3 4
Réponses
54
Affichages
3 K
sylvanu
sylvanu
G
  • Résolu(e)
XL 2019 liens hypertexte
Réponses
6
Affichages
596
gestionnaire
G
N
  • Question Question
XL 2019 Figer valeurs d'une colonne à la fin du mois
Réponses
2
Affichages
694
Nikolagexcel
N
B
  • Résolu(e)
Microsoft 365 VBA Remplissage automatique tableau
2
Réponses
17
Affichages
1 K
BOILEAU
B
W
  • Question Question
XL 2010 Ajouter un lien hypertexte
Réponses
1
Affichages
515
AtTheOne
AtTheOne
Y
  • Question Question
XL 2019 Besoin d'aide pour une Macro pouvant doubler des lignes et remplir des colonnes
Réponses
7
Affichages
830
chris
chris
N
  • Question Question
XL pour MAC Verouillage de celulles pour eviter le remplissage intempestif
2
Réponses
20
Affichages
2 K
nobodyuse
N
C
  • Question Question
XL 2013 Sum IFs en VBA, sans sommer
Réponses
8
Affichages
1 K
clarouche33
C
Dudu2
  • Résolu(e)
XL 2016 VBA - Comment empêcher Excel de modifier les liens Hypertexte à l'enregistrement
Réponses
13
Affichages
3 K
Bernard_XLD
Bernard_XLD
J
  • Résolu(e)
XL 2019 Macro liens hypertextes automatiques
Réponses
2
Affichages
1 K
Jmhess
J
K
  • Question Question
Google Sheets Aide pour l'élaboration d'une macro sous google sheet
Réponses
2
Affichages
1 K
Kiritora
K
T
  • Question Question
Microsoft 365 Vba saisie semi automatique dyn
7 8 9
Réponses
125
Affichages
13 K
Dudu2
Dudu2
Eric C
  • Résolu(e)
Word Bouton "flottant" de déplacement au sein d'un fichier volumineux
Réponses
2
Affichages
965
Eric C
Eric C
Formula
  • Résolu(e)
Microsoft 365 VBA - Remplissage automatique des lignes
Réponses
3
Affichages
1 K
Formula
Formula
F
  • Question Question
XL 2010 Ajouter un lien hypertexte
Réponses
0
Affichages
515
FaruSZ
F
M
  • Question Question
XL 2019 copiage de données par VBA
Réponses
3
Affichages
998
MedAliS
M
Retour