Lien hypertexte dans cellule variable

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:

---

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:

---

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?

Code:

---

1 2 3

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

---

Bonjour,

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

Code:

---

1 2 3

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

---

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é

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

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.

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:

---

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:

---

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?

Essaie en précisant la feuille :

Code:

---

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

---

Tu déclares CheminPJ en variable globale

ça ne change rien.
Par contre j'ai remarquer que quand il s'arrete à

Code:

---

.Hyperlinks.Add ActiveCell.Offset(0, 1), CheminPJ, , , CheminPJ

---

il m'indique CheminPj=vide
Se-pourrait-il que la variable CheminPJ ne passe pas d'un sub à l'autre?

C'est ce que je te disais dans le message précédent. Une variable définie dans une sub ou une function n'est pas accessible à l'extérieur.
Tu dois faire en haut de ton userForm

Code:

---

Public CheminPJ As String

---

Dans le code du bouton de validation, utilise le code suivant à condition que CheminPJ soit défini comme variable publique de type Variant ou passée comme paramètre :

Code:

---

1 2 3 4

If CheminPJ = False Then Exit Sub With Worksheets(1) .Hyperlinks.Add ActiveCell.Offset(0, 1), CheminPJ, , , CheminPJ End With

---

Note que "TextToDisplay" est par défaut égal à l'adresse; précise-le si tu veux un autre libellé.

heu, je n'ai jamais déclarer une variable public!:oops: Peux-tu m'indiquer comment faire s'il te plait?
Merci

Mes messages ne s'affichent pas ou quoi ? :aie:

Salut ZebreLoup !
Effectivement il y a ûrement eu un problème de synchonisation ou un truc de ce genre, je viens de recevoir tes messages que maintenant!

C'était bien un pb de variable public
ça marche à merveille maintenant.

Merci à tous et bonne journée;)