Discussion :

[NeilujA]

Bonjour,

J'ai un petit soucis,

Mon programme fonctionne à merveille sur Excel 2010 (version anglaise). Mais pas sur Excel 2013 :
Voici ce qui ne fonctionne pas :

Code :

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

Workbooks("Programme").Worksheets("Résultats").Cells(Lignee, 20).Hyperlinks(1).Follow

Sur 2010 : Cette ligne de commande ouvre l'hyperlien, et affiche l'onglet désiré.

Par Exemple : Documents.xls#'Jour 2 A2'!A1 , va ouvrir le classeur documents, sur l'onglet jour 2.

Or sur 2013 :

Le classeur Document s'ouvre mais pas sur le bon onglet, en faite il n'y à aucune sélection d'onglet ...

J'ai donc essayé d'enregistrer une macro (et bien sûr quand je clique avec ma souris sur le liens, le classeur + l'onglet désiré s'ouvre). Mais quand je réexécute la macro tout juste enregistrée, j'ai juste le classeur qui s'ouvre ....

Voilà avez vous une idée svp ?

Merci bien

Cordialement

[Daniel.C]

Bonjour,

Je viens de faire un test; ça ne fonctionne pas plus avec Excel 2010 qu'avec Excel 2013. Ca fonctionne manuellement, mais pas avec une macro. En cherchant sur internet, il semble que le problème soit fréquent mais pas systématique. Ici, ça ne fonctionne pas mieux avec Followhyperlink.

[Marc-L]

Bonjour,

même en précisant le classeur avec son extension ? Comme par exemple "Programme.xlsx" …

[keygen08]

Bonjour
si ceci fonctionne

Code :

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

Workbooks("Programme").Worksheets("Résultats").Cells(Lignee, 20).Hyperlinks(1).Follow

Stocké le n° ou le nom de l'onglet a afficher et ajouter ceci

Code :

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

ActiveWorkbook.Sheets(N).Activate

ex :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
 
   onglet = Range("a2")
    Cells(ligne, 1).Hyperlinks(1).Follow
    Range("a1").Hyperlinks(1).Follow
    ActiveWorkbook.Sheets(onglet).Activate
    'ActiveWorkbook.Sheets("" & onglet).Activate
 
End Sub

[Daniel.C]

Bonjour keygen08,

Oui, on peut contourner, mais le paramètre "SubAddress" de "Followhyperlink" est inopérant,tout comme l'indication de la feuille et de la cellule pour "Follow".

[NeilujA]

Bonjour,

Merci pour vos réponses mais,

Subaddress ne récupère pas le nom de l'onglet, et j'utilise l'hyperlink car il m'est impossible de connaître par avance le nom de l'onglet qui vas s'ouvrir... (Il choisis par mis plus de 1000 onglets) ... Et le onglet=range ne peut pas marcher car le nom de l'onglet n'est pas toujours le même que ce qu'il y a écris dans le cellule ... Compliqué :o.

Du coup je vais essayer de bidouiller, pour trouver une macro qui récupéré les liens des hyperliens, et le découpe de façon à ne récupérer que les données voulues.... Pour ensuite utiliser le nom de l'onglet comme variable...

Sauf si vous avez d'autres solutions ?

[Daniel.C]

Bonjour,

Avec le lien hypertexte en A1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim Adresse As String, SousAdressse As String, Feuille As String, Cellule As String
    With ActiveWorkbook.Sheets("Feuil1").Range("A1")
        Classeur = .Hyperlinks(1).Address
        SousAdressse = .Hyperlinks(1).SubAddress
        Feuille = Split(SousAdressse, "!")(0)
        Cellule = Split(SousAdressse, "!")(1)
        MsgBox "Adressse : " & Classeur & vbCrLf & _
        "Feuille : " & Feuille & vbCrLf & _
        "Cellule : " & Cellule
    End With