XL-2007 Lien hypertext [Résolu]

[Jeanvaljean44]

Bonsoir

Je rencontre un ptit souci avec le code ci-après, pour la création d'un lien hypertext dans une cellule. Cette application fonctionne certaine fois, et de temps à autre j'ai un message erreur exécution "5" : Argument ou appel de procédure incorrect!

Voici une partie du code :

Code :

1
2
Dim NamePDF, CheminRepertoire, CheminPDF As String
Dim NumLigneOF As Long

Code :

1
2
3
NamePDF = Encours.Sheets("EncoursAtelier").Range("E" & NumLigneOF).Value             'récupération nom du plan
    CheminPDF = CheminRepertoire & NamePDF & ".PDF"     'creation chemin du PDF
    Encours.Sheets("EncoursAtelier").Range("E" & NumLigneOF & "").Hyperlinks.Add Anchor:=Encours.Sheets("EncoursAtelier").Cells(NumLigneOF, "E"), Address:=CheminPDF, TextToDisplay:=NamePDF

Peut être est ce ma variable CheminPDF qui serait de temps à autre trop longue?

Merci pour votre avis

[Jeanvaljean44]

J'ai peut être une piste

Après plusieurs essais, je viens de constater que si ma variable NamePDF était une suite de chiffre, mon code ne fonctionnait pas et dans le cas d'une suite alphanumérique c'est OK!

[Jeanvaljean44]

Je viens de trouver une solution répondant à ma problématique, si toutefois elle pouvait dépanner quelqu'un

J'ai forcé le contenu de ma cellule avec un apostrophe afin que le contenu soit bien considéré comme du texte :

Code :

    Encours.Sheets("EncoursAtelier").Range("E" & NumLigneOF).FormulaR1C1 = "'" & Encours.Sheets("EncoursAtelier").Range("E" & NumLigneOF).

A bientôt