vba macro hyperlien interne

[superbog]

bonjour,

je me débats pour faire une macro de sorte que je puisse automatiquement transformer toutes les données de la colonne A en hyperlien (puisque la colonne A contient les numéros de dossier et que chaque dossier a sa propre feuille)

voilà le code que j'essaie de faire et qui ne fonctionne pas

sub lien()

Dim n As Integer, ws As Worksheet
For n = 2 To Range("A65536").End(xlUp).Row
    ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & n), Address:="", SubAddress:=Range("A" & n).Value & !n
        
        Next n
End Sub

voici un fichier exemple joint

 

[job75]

Re : vba macro hyperlien interne

Bonjour superbog,

Sub lien()
Dim n As Long
For n = 2 To Range("A65536").End(xlUp).Row
  ActiveSheet.Hyperlinks.Add Range("A" & n), "", "'" & Range("A" & n) & "'!A1"
Next
End Sub

Edit : les guillemets anglais ' sont indispensables s'il y a des espaces.

Et enregistrez le fichier sous .xlsm...

A+

 

[Dormeur74]

Re : vba macro hyperlien interne

je me débats pour faire une macro de sorte que je puisse automatiquement transformer toutes les données de la colonne A en hyperlien (puisque la colonne A contient les numéros de dossier et que chaque dossier a sa propre feuille

Il est clair que cette architecture te limite au nombre de feuilles possible d'un classeur. Mieux vaudrait, à mon avis, créer des liens hypertextes avec des fichiers dans un dossier. Si ce changement de programme te convient, je peux te faire un petit exemple.

 

[superbog]

Re : vba macro hyperlien interne

merci job75 ca marche nickel

 

[job75]

Re : vba macro hyperlien interne

Bonjour Dormeur74,

Il est clair que cette architecture te limite au nombre de feuilles possible d'un classeur.

Le nombre de feuilles d'un classeur est limité par la mémoire disponible.

Sur mon ordi Win XP/Excel 2003 cette macro s'est arrêtée à la feuille Feuil5450 :

Sub a()
Dim n&
Application.ScreenUpdating = False
For n = 1 To 65536
  Sheets.Add After:=Sheets(Sheets.Count)
Next
End Sub

A+