Création de lien hypertexte

JNP

XLDnaute Barbatruc

• 30 Novembre 2008

• #2

Re : Création de lien hypertexte

Bonjour Florian53, le forum 🙂,
Logiquement, ton lien hypertexte, tu l'as dans ta variable MyName (il manque peut-être le .xls en fonction de ce que te renvoie Get_Number_Next(10)). Mais je ne comprends pas où tu veux envoyer ton lien. Si c'est dans le classeur que tu viens d'enregistrer, quel est l'intérêt d'ouvrir un classeur déjà ouvert 😕 ?
Bonne journée en attendant 😎

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 30 Novembre 2008

• #3

Re : Création de lien hypertexte

JNP à dit:

Bonjour Florian53, le forum 🙂,
Logiquement, ton lien hypertexte, tu l'as dans ta variable MyName (il manque peut-être le .xls en fonction de ce que te renvoie Get_Number_Next(10)). Mais je ne comprends pas où tu veux envoyer ton lien. Si c'est dans le classeur que tu viens d'enregistrer, quel est l'intérêt d'ouvrir un classeur déjà ouvert 😕 ?
Bonne journée en attendant 😎

Cliquez pour agrandir...

Bonjour, merci d'avoir pris de ton temps pour essayé de résoudre mon probléme je vais t'expliquer:

Je dispose d'un classeur "Commande en cours" par l'aide d'une macro je viens ouvrir mon classeur "demande d'achat" et grâce a une macro je valide et cela enregistre et incrémente le nom de mon classeur.

Et je désirerais qu'une fois sauvegarder elle me renvoie un lien hypertexte dans une cellule de " commande en cours" pour une simplification des consultations des commandes.

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 30 Novembre 2008

• #4

Re : Création de lien hypertexte

J'ai essayé avec cette commande :
ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=adresse
mais sa ne passe pas

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 1 Décembre 2008

• #5

Re : Création de lien hypertexte

Bonjour Florian53 🙂,
C'est bizare, la commande

Code:

    ActiveSheet.Hyperlinks.Add Anchor:=Cells(2, 2), Address:= _
        "C:\Documents and Settings\All Users\Documents\Fichiers de Lucie\Nouvelle histoire.doc", TextToDisplay:= _
        "C:\Documents and Settings\All Users\Documents\Fichiers de Lucie\Nouvelle histoire.doc"

fonctionne parfaitement chez moi...
Essaie de tester le code seul avnt de le compiquer avec les variables (c'est certainement d'elles que vient le problème).
Bon courage 😎

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 1 Décembre 2008

• #6

Re : Création de lien hypertexte

En fait je voudrais que ça renvoie le lien hypertexte dans un autre classeur et non pas dans le même.

Et je voudrais que dés un lien hypertexte créer le prochain se mettra juste en dessous de l'autre et ect.....

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 1 Décembre 2008

• #7

Re : Création de lien hypertexte

Et est ce que quelque chose comme ça résoudrais mes problème mais je vois pas ou je pourrais l'intégrer:

Sub CreerLiensAutresFeuilles()
Dim I As Byte, J As Byte
Dim Val As String

For I = 1 To Sheets.Count
If Not ActiveSheet.Name = Sheets(I).Name Then
Val = "'" & Sheets(I).Name & "'!A1"
J = J + 1
Worksheets(1).Hyperlinks.Add Anchor:=Cells(J, 1), Address:="", SubAddress:=Val
End If
Next I

End Sub

Est ce que je peux mettre Call CreerLiensAutresFeuilles juste avant ThisWorkbook.SaveAs MyName?

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 1 Décembre 2008

• #8

Re : Création de lien hypertexte

j'ai essayé de le placer avant ThisWorkbook.SaveAs MyName mais cela ne fonctionne pas

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 2 Décembre 2008

• #9

Re : Création de lien hypertexte

Bonjour Florian53 🙂,
Si tu veux le mettre dans un autre classeur, il faut d'abord l'ouvrir. Ton code serait plutôt :

Code:

Workbooks.Open Filename:= _
        "C:\Documents and Settings\Jean-Noël\Bureau\Belote5.xls"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="Test.xls", _
        TextToDisplay:="Test.xls"

Bonne journée 😎

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 2 Décembre 2008

• #10

Re : Création de lien hypertexte

Merci à toi d'avoir répondu,

Le classeur dans lequel je veux copier le lien est déjà ouvert donc la la commande wokbooks.Open ne convient pas j'ai utilisé la commande Workbooks("nomclasseur.xls") mais cela ne fonctionne pas j'ai copié comme ceci:

Sub AutoSaveIncremental()
Dim MyName As String, MyNumber As Variant
' Récupération du prochain numéro
MyNumber = Get_Number_Next(10)
MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 10) & Format(MyNumber, "000")
' Mise à jour de la numerotation
Maj_numbers 10, MyNumber
' Sauvegarde
Save_numbers
Workbooks("nomclasseur.xls")
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="Test.xls", _
TextToDisplay:="Test.xls"
ThisWorkbook.SaveAs MyName
End Sub

Comment puis je bien l'intégrer pour que cela fonctionne ?

Et je voudrais savoir si c'est possible d'intégrer un variable qui me servirait qu'à chaque clique sur la macro un lien hypertexte se collerait donc sur l'autre classeur les uns en dessous des autres?

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 2 Décembre 2008

• #11

Re : Création de lien hypertexte

J'ai en parti résolu mon problème, il reste seulement a indiqué le chemin du dernier classeur enregistré:

Voila le code que j'ai rentrer pour l'instant:

Sub AutoSaveIncremental()
Dim MyName As String, MyNumber As Variant
' Récupération du prochain numéro
MyNumber = Get_Number_Next(10)
MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 10) & Format(MyNumber, "000")
' Mise à jour de la numerotation
Maj_numbers 10, MyNumber
' Sauvegarde
Save_numbers
Dim wb As Workbook
Set wb = GetObject("C:\Documents and Settings\Florian\Mes documents\essai\Commande en cours.xls")
wb.Activate
ActiveSheet.Hyperlinks.Add Anchor:=Cells(8, 13), Address:="C:\Documents and Settings\Florian\Mes documents", _
TextToDisplay:=MyName
ThisWorkbook.SaveAs MyName
Call MessageInformation
ThisWorkbook.Close
End Sub

ActiveSheet.Hyperlinks.Add Anchor:=Cells(8, 13), Address:="C:\Documents and Settings\Florian\Mes documents",
C'est vraiment ici que je bloque car mon nom de classeur change a chaque fois car il s'incrémente donc comment spécifier qu'il prenne le dernier enregistrer?

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 3 Décembre 2008

• #12

Re : Création de lien hypertexte

Bonjour Florian53 🙂,
Comme indiqué dans mon premier post, en principe :
Address:=MyName & ".xls"
devrait fonctionner.
Bonne journée 😎

 

Vote positif 0 Vote négatif