Discussion :

[glc29]

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?

[mercatog]

Code :

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

1
2
3
With Worksheets(1)
    .Hyperlinks.Add ActiveCell.Offset(0,1), Chemin
End With

[Daniel.C]

Bonjour,

J'utilise "Offset" pour me décaler verticalement et/ou horizontalement :

Code :

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

1
2
3
Dim Chemin As String
Chemin = Application.GetOpenFilename
Hyperlinks.Add ActiveCell.Offset(0, 1), Chemin 'un cran à droite de la cellule active

[glc29]

Merci,

effectivement ça fonctionne.

Cependant le lien est "invisible". Je sais qu'il est dans la cellule car le curseur devient main lors du survol.
En quand je clique dessus rien ne se passe

vous sauriez pourquoi?

au survol de la cellule, une bulle affiche l'adresse du fichier excel dans lequel on est, au lieu du fichier sélectionné

[Daniel.C]

Renseigne le paramètre "TextToDisplay" de la méthode "HyperLinks.Add"

[ZebreLoup]

Tu ne t'es pas emmêlé quelque part dans tes variables ? Dans ton premier exemple, il y a du cheminPJ et du chemin. Ça devrait marcher sinon.

[glc29]

Ok pour le nom de la variable et TextToDisplay.

J'ai peut-être oublié de préciser qu'en réalité cette macro se fait dans deux sub différentes.

Dans le sub d'un premier bouton j'ai

Code :

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

1
2
3
4
Private Sub Bp_PieceJointe_Click()
 
Dim CheminPJ As String
CheminPJ = Application.GetOpenFilename

et dans le bouton valider du formulaire, qui permet d'ecrire tous les infos dans la feuille excel, j'ai

Code :

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

1
2
3
With Worksheets(1)
    .Hyperlinks.Add ActiveCell.Offset(0, 1), CheminPJ, , , CheminPJ
End With

J'ai testé en mettant tout dans le premier sub, et ça marche. Mais je voudrais que si l'utilisateur appuie sur annuler dans mon formulaire, rien ne s'écrit sur la feuille. Donc je dois absolument séparer cette macro. Vous voyez ce que je veux dire?

[Daniel.C]

Essaie en précisant la feuille :

Code :

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

1
2
3
4
5
Dim Chemin As String
Chemin = Application.GetOpenFilename
With Sheets("Feuil1")
    .Hyperlinks.Add ActiveCell.Offset(0, 1), Chemin  'un cran à droite de la cellule active
End With