Bonsoir CactusX, Michel et Romfret et le Forum
Je trouve que c'est une peu compliqué juste pour écrire une string fixe ?
Pour ta gouverne :
"Dim MonFichier, xyAffichage, xyNuméroOnglet As String"
2quivaut à écrire :
Dim MonFichier As Variant, xyAffichage As Variant, xyNuméroOnglet As String
et Variant (par défaut si la variable n'est pas ou mal déclarée) est bien plus gourmand en ressorce mémoire...
Donc j'écrirais comme ceci :
Sub Cactus()
Dim MonFichier As String, xyAffichage As String, xyNuméroOnglet As String, OngletPosition As String
Dim NuméroOnglet As Byte '<<<(si Numéro jusqu'à 255, sinon as Integer)
MonFichier = "C:\crac\crac\MY27.xls"
NuméroOnglet = 2
xyNuméroOnglet = "C12"
OngletPosition = Str(NuméroOnglet) & "!" & xyNuméroOnglet
xyAffichage = "C3"
Range(xyAffichage) = MonFichier & " Onglet N° " & Str(NuméroOnglet)
With Sheets(1)
.Hyperlinks.Add .Range(xyAffichage), Address:=MonFichier, _
SubAddress:=OngletPosition
End With
End Sub
Mais j'ose espérer que ces variables seront initialisées autrement que par du text en dûr dans le code ?
Bonne NUit en tout cas et bon Dimanche à tous et toutes
@+Thierry