Bonjour à tous,

Je tente de créer un bout de macro qui demande de sélectionner un fichier, puis qui extrait son chemin pour le mettre sous forme de lien hypertexte dans une cellule.

Pour l'instant j'ai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Dim CheminPJ As String
Chemin = Application.GetOpenFilename
With Worksheets(1)
    .Hyperlinks.Add .Range("C38"), Chemin
End With
Et ça marche très bien.

Le problème, c'est qu'en réalité je voudrais écrire non pas dans la cellule C38, mais dans la cellule qui est un cran à coté de ma cellule active.

J'ai donc essayer :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
ActiveCell.Offset(0, 1).Activate
With Worksheets(1)
    .Hyperlinks.Add .ActiveCells, Chemin
End With
Mais ça ne marche pas.
J'imagine que .Hyperlinks.Add ne fonctionne qu'avec Range, mais comment faire alors?