lien hypertexte en mode protégé

[lesims1000]

lien hypertexte en mode partagé

bonjour, j'ai créer un fichier Excel: c'est un listing de différentes
affaire avec différentes info et pour chaque info je veut créer un
lien qui
renvoie vers une fiche détaillé de l'affaire sélectionné. se classeur
sera
utilisé par plusieurs personne en même temps je l'ai donc mis en mode
"partagé" ces personnes seront amené à créer de nouvelles affaire et
du coup
créer le lien vers l'affaire concerné. je voudrai donc trouver une
solution
pour qu'ils puissent insérer le lien hypertexte, je suis complètement
novice
sur VB donc que quelqu'un m'aide intensément. je suis nouveau dans
l'entreprise, mon contrat n'est pas encore signé, et en réalisant ces
tableaux je marque pas mal de point.

pour faire simple il faudrait que sa se passe comme sa:


- clique sur une macro
- ouverture de la fenêtre de choix du fichier sur l'ordinateur
- insertion du lien dans la case voulu


le tous en mode partagé.


si des personnes sont aptes (ou pas) a me faire avancer merci !!!!

 

[kjin]

Re : lien hypertexte en mode protégé

Bonjour,
Toutes mes excuses, je ne savais pas que les LH étaient désactivés
On peut contourner le pb en insérant une formule, et à priori ça fonctionne.
Le nom du classeur est récupéré via une boite de dialogue
Il faudrait préciser comment associer cette macro à tes boutons si c'est le cas, et surtout où doit être inséré le lien (pas trouvé).
En outre, il est peut-être utile de mettre le chemin vers le classeur dans une cellule, ici il est directement dans la macro; à voir

Sub LiensH()
    Chemin = "C:\...\"      'mets ici le chemin sans oublier le dernier antislash
    Fichier = Application.InputBox("Indiquer le nom du classeur", "INSERTION D'UN LIEN")
    If Fichier = "" Or Fichier = 0 Then Exit Sub
    ActiveCell.Formula = "=HYPERLINK(""" & Chemin & Fichier & ".xls"",""" & Fichier & """)"
End Sub

A+
kjin

 

[lesims1000]

Re : lien hypertexte en mode protégé

sinon j'ai se code, il fonctionne mais une fois le classeur en mode "partagé" un message d'erreur s'afiche lors du choix du fichier : erreur 400

Sub hyper_lien_inserrer()
filetoopen = Application.GetOpenFilename("Tous les fichiers , *.*", 2, Title, MultiSelect = False)

If filetoopen <> False And InStrRev(filetoopen, "\") > 0 Then
nom_fichier = Mid(filetoopen, InStrRev(filetoopen, "\") + 1, Len(filetoopen) - InStrRev(filetoopen, "\"))
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=filetoopen, TextToDisplay:=nom_fichier
Else
MsgBox " Vous n'avez pas choisi de fichier"
End If

End Sub

 

[lesims1000]

Re : lien hypertexte en mode protégé

Bonjour,
Toutes mes excuses, je ne savais pas que les LH étaient désactivés
On peut contourner le pb en insérant une formule, et à priori ça fonctionne.
Le nom du classeur est récupéré via une boite de dialogue
Il faudrait préciser comment associer cette macro à tes boutons si c'est le cas, et surtout où doit être inséré le lien (pas trouvé).
En outre, il est peut-être utile de mettre le chemin vers le classeur dans une cellule, ici il est directement dans la macro; à voir

Sub LiensH()
    Chemin = "C:\...\"      'mets ici le chemin sans oublier le dernier antislash
    Fichier = Application.InputBox("Indiquer le nom du classeur", "INSERTION D'UN LIEN")
    If Fichier = "" Or Fichier = 0 Then Exit Sub
    ActiveCell.Formula = "=HYPERLINK(""" & Chemin & Fichier & ".xls"",""" & Fichier & """)"
End Sub

A+
kjin

merci kjin, le principe est bon, par contre à la place de d'ouvrir une petite fenêtre ou mettre le nom du classeur, es qu'il serait possible d'ouvrir une fenêtre où l'on peut choisir n'importe quel fichier partout sur sur le PC (une fenêtre du même style que celui pour enregistrer sous, ouvrir ou autre. désolé je ne sait pas trop comment s'appelle se genre de fenêtre) dans le même principe que le code que j'ai mis juste au dessus.

merci .

 

[kjin]

Re : lien hypertexte en mode protégé

Bonsoir,

Sub LiensH()
Fichier = Application.GetOpenFilename("Fichiers Excel(*.xls),*.xls")
If Fichier = 0 Then Exit Sub
x = InStrRev(Fichier, "\") + 1
ActiveCell.Formula = "=HYPERLINK(""" & Fichier & """,""" & Left(Mid(Fichier, x), Len(Fichier) - (x + 3)) & """)"
End Sub

A+
kjin

 

[lesims1000]

Re : lien hypertexte en mode protégé

merci beaucoup sa fonctionne du toner !!!uen derniere chose, j'aimerais que le texte écrit dans la case du lien ne se change pas par le nom du lien. ?😱

 

[kjin]

Re : lien hypertexte en mode protégé

bonjour,
Et en clair ça voudrait dire quoi, parce que là ..😕.?!
A+
kjin

 

[lesims1000]

Re : lien hypertexte en mode protégé

🙄🙁
avec ta formule, quant j'insere un lien dans une cellule, c'est le nom du fichier qui s'inscrit. je voudrai pouvoir mettre le texte de mon choix.

 

[kjin]

Re : lien hypertexte en mode protégé

Re,
A mais bien sûr, suis je bête !
La macro insérant une formule, il n'y a pas d'autre solution que de passer par la boite de dialogue
En outre, la macro insère le lien dans la cellule active au moment où tu appuies sur le bouton;c'est pas forcément l'idéal mais sans précision de ta part, je n'ai pas deviné non plus (décidemment !) où il fallait le mettre

Sub LiensH()
Fichier = Application.GetOpenFilename("Fichiers Excel(*.xls),*.xls")
If Fichier = 0 Then Exit Sub
Nom = Application.InputBox("Entrez le nom qui sera affiché", "DONNER UN NOM AU LIEN")
If Nom = "" Or Nom = 0 Then
MsgBox "Vous devez saisir un nom pour le lien", vbCritical + vbOKOnly
Exit Sub
End If
ActiveCell.Formula = "=HYPERLINK(""" & Fichier & """,""" & Nom & """)"
End Sub

A+
kjin

 

[lesims1000]

Re : lien hypertexte en mode protégé

a oui une autre chose !
voici une autre feuille et un autre problème, de date cette fois si !

 

[kjin]

Re : lien hypertexte en mode protégé

Re BONJOUR,
Un seul par jour, on en demande pas plus !
Tu n'as même pas daigné répondre au précédent message;circuler y a plus rien à voir, au suivant.
Ca fait beaucoup trop pour moi 😡
A bon entendeur
kjin

 

[lesims1000]

Re : lien hypertexte en mode protégé

Bonjour,
désolé, 🙁 je suis au boulot, et je jongle entre le tableur et plein d'autre chose!) vraiment désolé je ne m'en suis pas rendu compte et c'est pas mon genre. encore désolé.
ton dernier code fonctionne impecable c'est exactement se qu'il me fallait un GRAND MERCI 😉
pourrait tu quant même prendre un peut de ton temps pour m'aider sur ce dernier point ??😱

 

[kjin]

Re : lien hypertexte en mode protégé

Re,
A associer à ton bouton

Sub VDate
[D6] = Date 'je n'ai plus le fichier et je crois que c'est D6
End Sub

Evite les "Select" inutiles dans les macros

Range(x).Select
ActiveCell.Formula = ...

c'est la même chose que

Range(x).Formula = ...

A+
kjin

 

[lesims1000]

Re : lien hypertexte en mode protégé

c'est bon, tout est au point !!!

un grand merci !😀

 

[lesims1000]

Re : lien hypertexte en mode protégé

désidément, je suis pas très fort sur excel,
j'aimerais mettre en relation 3 cellules se touvant chaqune sur une feuille différente, de tel façon que si j'écrit quelque chose dans l'une des 3, le contenu s'affiche dans toutes.

 

[kjin]

Re : lien hypertexte en mode protégé

Re,
Le sujet n'ayant rien à avoir avec le précédent, il eut été préférable d'ouvrir un autre fil
Avec les infos transmis, pas beaucoup de solution
A+
kjin