Discussion :

[dmoluc]

Bonjour à tous,

J'ai bien trouver des tutos sur le sujet mais je n'arrive pas à m'en dépêtrer

Je reproduit une feuille excel existante à la fin du classeur qui à pour nom une date en format texte, du moins c'est ce que j'ai tenté de faire
noms est déclarer en string

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
noms = Sheets("Feuil1").Range("G2").Text
Range("A1:U72").Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = noms
    Sheets(Sheets.Count).Range("A1").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

A la fin du code j'essais de créer un lien hypertext sur vers la feuille nouvellement créer sans y parvenir.
Je retrouve bien dans ma cellule un lien hypertext qui fait référence au nom de ma feuille mais qui n'y mène pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
With Sheets("Suivi")
        Ligne = .Range("A500").End(xlUp).Row + 1
        .Cells(Ligne, 1) = noms
         .Cells(Ligne, 1).Hyperlinks.Add Anchor:=.Cells(Ligne, 1), Address:="", SubAddress:=Sheets(Sheets.Count).Name

Merci pour votre aide

cordialement

J'ai modifier un peu la ligne de code en m'inspirant des tutos que j'ai trouvé sur le forum mais j'obtien toujours "référence non valide" quand je clique sur le lien hypertext

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.Cells(Ligne, 1).Hyperlinks.Add Anchor:=.Cells(Ligne, 1), Address:="", SubAddress:="Sheets(Sheets.Count).Name!A1", TextToDisplay:=Sheets(Sheets.Count).Name

[SfJ5Rpw8]

il faut sortir tes variables des guillemets si tu veut utiliser leur contenu et par leur nom , modifie le paramètre subAddress

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SubAddress:=Sheets(Sheets.Count).Name & "!A1"

[dmoluc]

décidément rien à faire, lien toujours invalide, si je fais modifier le lien hypertexte, il n'y a pas de feuille sélectionnées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
With Sheets("Suivi")
        Ligne = .Range("A500").End(xlUp).Row + 1
        .Cells(Ligne, 1) = noms
         .Cells(Ligne, 1).Hyperlinks.Add Anchor:=.Cells(Ligne, 1), Address:="", SubAddress:=Sheets(Sheets.Count).Name & "!A1", TextToDisplay:=Sheets(Sheets.Count).Name
        End With

Le texte dans la cellule est bien identique au nom de la feuille, le lien est bien créer mais il ne mène nul part...

[Philippe Tulliez]

Bonjour,
Une autre variante pour créer un lien hypertexte est l'utilisation de la formule LIEN_HYPERTEXTE que je trouve moins lourd à mettre en place.
Exemple d'un lien vers la cellule A1 de la feuille 2013-04-30 du classeur contenant la formule et qui se nomme TestHyperlink.xls

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIEN_HYPERTEXTE("[TestHyperlink.xls] '2013-04-30'!A1";"La feuille 2013-04-30")

Le deuxième argument de la formule est facultatif.

[dmoluc]

J'abandonne les liens hypertexte, pas moyen d'y arriver
je contourne le problème avec une listbox qui sera plus jolie que ma feuille, de plus elle viendra complétée l'userform ou seront centralisées les autres fonction du classeur

encore merci pour votre aide mais je ne comprend pas toujours tout alors j’essaie de faire avec mes maigres moyens

[SfJ5Rpw8]

Je vois pas .... comment est initialisé ta variable noms ?

[Philippe Tulliez]

Bonjour,
Un petit exemple de code qui crée une feuille, lui donne comme nom la date du jour au format AAAA-MM-JJ et crée un lien Hypertexte dans la feuille nommée [MENU] vers la cellule A1 de la feuille venant d'être crée et ce avec la formule LIEN_HYPERTEXTE
La cellule A1 de la feuille [Menu] contient le nom de l'étiquette par exemple Liens

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Creation()
 Dim SheetName As String, Row As Long, Formula As String
 SheetName = Format(Date, "YYYY-MM-DD")
 On Error Resume Next
 With ThisWorkbook
 .Sheets(SheetName).Activate
 ' Si erreur cela signifie que la feuille n'existe pas
  If Err Then
   .Sheets.Add After:=Sheets(Sheets.Count): .Sheets(Sheets.Count).Name = SheetName
   With .Worksheets("Menu")
    Row = .Range("A1").CurrentRegion.Rows.Count + 1
    ' cf =LIEN_HYPERTEXTE("[TestHyperlink.xls] '2013-04-30'!A1";"2013-04-30")
    Formula = "=HYPERLINK(" & Chr(34) & "[" & ThisWorkbook.Name & "]'" & SheetName & "'!A1" & Chr(34) & "," & Chr(34) & SheetName & Chr(34) & ")"
    Debug.Print Formula
    .Range("A" & Row) = Formula
   End With
  End If
 End With
End Sub

[dmoluc]

maintenant j'utilise la variable noms pour nommer la feuille créer et pour remplir un tableau avec le nom des feuilles, ensuite je remplis une listbox avec les noms du tableau et quand je clique sur un nom j'active la feuille correspondante

Je ne suis pas arriver à faire autrement, avec l'une ou l'autre solution. Peu etre qu'office 2013 à encore quelques allergies
mais je pense que ce doit être moi qui radote


encore un grand merci pour tous vos efforts pour m'aider

Voilà la fonction qui remplace le lien hypertexte ; c'est tout simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub WorksheetLoop()
 
         Dim WS_Count As Integer
         Dim I As Integer
 
         Dim N As String
'j'incrémente N avec la variable sélectinnée dans la listbox
N = accueil.List1.Text
 
         WS_Count = ActiveWorkbook.Worksheets.Count
'j'effectue une boucle sur toute les feuilles du classeur
         For I = 1 To WS_Count
'si N correspond au nom de la feuille, j'ouvre celle-ci
            If N = Worksheets(I).Name Then
            Worksheets(I).Activate
End If
         Next I
 
      End Sub