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

[ZebreLoup]

Tu déclares CheminPJ en variable globale

[glc29]

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

Code :

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

    .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?

[ZebreLoup]

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 :

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

Public CheminPJ As String

[Daniel.C]

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 :

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

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é.

[glc29]

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

[ZebreLoup]

Mes messages ne s'affichent pas ou quoi ?

[glc29]

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