Variable prise pour une chaîne de caractère

Version imprimable

Bonjour, je me suis mis à vba il y a environ une semaine en apprenant sur le web. Seulement là je suis bloqué.

Je cherche un moyen de créer un lien hypertexte (fichier pdf) qui en fonction de de la cellule, renvoie au fichier portant le même nom que ma cellule.

Ex:
Code:

1 2 3 4 5 6 7 8 9 For i = 2 To nb_lignes Dim part_number As String part_number = Cells(i, 3) ActiveSheet.Hyperlinks.Add Anchor:=Cells(i,3), _ Adress:="C:\Users\Dossier\part_number.pdf" Next i
Le problème évidemment c'est qu'il croit que part_number est un fichier...

J'ai le même problème pour dire:
Code:

1 2 3 4 5 6 7 8 9 For i = 2 To nb_lignes Dim part_number As String part_number = Cells(i, 2) For j = 2 To nb_lignes If Cells(j, 3) like "*part_number*" Then Cells(j, 3) = "part_number" End If, Next j, Next i ..
Ici encore il croit que si la cellule contient part_number et non la valeur de Cells(i, 2); alors ...

Si besoin j'ai le code de ce que je veux faire mais qui ne marche pas.

Ou le code qui marche où j'ai commencer à remplacer quelques part_number par leurs valeurs mais j'ai pas fini..

Bonsoir,

Quand tu poste du code, mets le entre les balises Code (les dièses --> #)
Si tu encadre une variable par des guillemets, elle deviens un texte en "dur" et non plus une variable ayant une valeur quelconque. Il te faut la "sortir" de la chaîne en utilisant des "&" pour concaténer sans valeur au reste de la chaîne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub Test()
 
    'la variable ne doit pas être déclarée dans une boucle...
    Dim part_number As String
    Dim I As Integer
    Dim J As Integer
 
    For I = 2 To nb_lignes
 
        part_number = Cells(I, 3)
 
        'ici, la variable ne doit pas être entre guillemets...
        'entre guillemets, c'est considéré comme un texte en dur
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 3), _
        Adress:="C:\Users\Dossier\" & part_number & ".pdf"
 
    Next I
 
    For I = 2 To nb_lignes
 
        part_number = Cells(I, 2)
 
        For J = 2 To nb_lignes
 
            'idem...
            If Cells(J, 3) Like "*" & part_number & "*" Then
 
                Cells(J, 3) = part_number
 
            End If
 
        Next J
 
    Next I
 
End Sub

Hervé.

23/09/2013, 22h12
vianney.g

Cool ! J'y avais pas pensé !

Juste eu a rajouté le cas ou la cellule était vide. Ça marche impeccable!

Merci !