Discussion :

[jiro67]

Bonjour,
Sur une fichier Excel que j'ai nomer archive il me reprend toutes les information de ma feuille facture afin d'avoir un recap..
je souhaiterais paramétrer a partir de la colonne b5 de façon a ce que chaque cellule de cette colonne posséde un lien Hypertexte vers le fichier qui n'auras pas le même nom.
Par exemple, quand je clique sur la cellule b5 qui contient les chiffres "003-2013" et bien cela ouvrirai mon fichier ou il avais etait sauvegarder.
J'ai cherché par moi même mais je ne voit pas comment je peut y parvenir !
J'espére avoir été clair et merci d'avance !
Par ailleur je vous joint le code de mon archivage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Archive()
'Copie sur la feuille Archives
    Dim ligne As Integer
    On Error Resume Next
    With Sheets("Archives")
        ligne = .Range("B65536").End(xlUp).Row + 1
        If ActiveSheet.Name = "Facture" Then
            .Cells(ligne, 2) = Sheets("Facture").Range("C2")  'N° Facture
            .Cells(ligne, 3) = Sheets("Facture").Range("B2")  'Type
            .Cells(ligne, 4) = Sheets("Facture").Range("b3")  'Date
            .Cells(ligne, 5) = Sheets("Facture").Range("b6")  'Nom + Prénom
            .Cells(ligne, 6) = Sheets("Facture").Range("B9")  'telephone
            .Cells(ligne, 7) = Sheets("Facture").Range("B10")  'mail
            .Cells(ligne, 12) = Sheets("Facture").Range("e28")  'remise
            .Cells(ligne, 14) = Sheets("Facture").Range("e31")  'total
            .Cells(ligne, 15) = Sheets("Facture").Range("e30")  'livraison
        End If
    End With
End Sub

Cordialement

[jfontaine]

Bonjour,

Et ou se trouve l'information du lien entre "003-2013" et le chemin et nom du fichier ?

[jiro67]

Hello Jfontaine
Je vous transmet 1 fichier peux etre vous comprendrais mieux si toutes fois je me suis mal exprimer.
Generalement mes factures sont enregistrer dans un dossier D:\Backup\Boulot et dessuite archiver dans le tableau que vous trouverez.

Cordialement

[jfontaine]

Essais en ajoutant la ligne ci dessous dans ton code
Je n'ai pas pu testé car la feuille Facture n'est pas dans ton fichier

Code :

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

1
2
3
4
5
 .Cells(ligne, 15) = Sheets("Facture").Range("e30")  'livraison
 
 .Hyperlinks.Add Anchor:=.Cells(ligne, 2), Address:="D:\Backup\Boulot\" & .Cells(ligne, 2).Value & ".xls", TextToDisplay:=.Cells(ligne, 2).Value
 
End If

[jiro67]

Re
Merci pour ce bout de code cela fonctionne a peux de chose pret
En fait j'avais oublier que mon fichier est enregistrer comme cela Fact003-2013
Donc ton code fonctionne le lien ce cree mes vas suelement chercher 003-2013
je mes si jointe la macro que j'utilise quand je fais ma sauvegarde

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Sauvegarder()
    Dim nomfichier As String, chemin As String
    Application.DisplayAlerts = 0
    With ThisWorkbook
        chemin = .Path & "\"
        nomfichier = "Fact" & .Sheets("Facture").Range("c2")
        .Sheets("Facture").Copy
    End With
    With ActiveWorkbook
        .SaveAs Filename:=chemin & nomfichier & ".xlsx"
        .Close
    End With
    Application.DisplayAlerts = 1
End Sub

Merci mille fois pour votre aide.
Cordialement

[jfontaine]

Je suis étonné que tu n'ais pas réussis à adapter le code

Code :

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

 .Hyperlinks.Add Anchor:=.Cells(ligne, 2), Address:="D:\Backup\Boulot\Fact" & .Cells(ligne, 2).Value & ".xls", TextToDisplay:=.Cells(ligne, 2).Value

[jiro67]

Merci bcp cela fonctionne parfaitement
Il est vrai pour ton code j'y est pas penser mais etant un ptit peux novice je penser a un truc beaucoup plus complexe alors que c'etait simplement simple pfffff.
Encore merci a toi.

Bon soiree a vous .
Cordialement