[XL-2007] Joindre des liens des mes factures dans Excel

[maguy]

Bonjour,

J'ai une centaine des factures dans mon disque dur à envoyer à mon client, et souhaiterai créer une colonne A avec des liens de mes factures et lorsque le client cliquera sur le lien d'une ligne 10 par exemple qu'il accède à la facture. J'ai utilisé la fonction insérer lien dans mon pc je parviens à accéder à la facture mais mon client ne parviens à ouvrir le lien.

Est-ce quelqu'un aurai une idée à me donner.

Merci.

[Philippe JOCHMANS]

Bonjour

Un peu de détail sur le contexte, si le lien est sur ton PC comment veux-tu que le client y accède

Comment lui donnes-tu le lien ?

Philippe

[maguy]

Bonjour,

J'ai plusieurs factures sur le C, et doit envoyer un seul dossier excel au client. Dans la colonne A je souhaiterai avoir des liens ou des boutons. Lorsque le client cliquera sur le lien ou le bouton qu'il visualise la facture 2 par exemple sur son pc.

Dans excel 2007 j'ai la fonction insérer objet il y aura plusieurs factures sur la feuilles et préfère limiter ces factures par des liens ou des boutons.

Merci

[bbil]

bonjour,

c'est quoi "le C" ?

[maguy]

Le C c'est mon disque dur

[bbil]

et ces factures elles ont qu'elle forme sur ton C ? c'est du papier ?

[maguy]

Des factures en Pdf sur mon disque dur

[kiki29]

Salut, qqch qui devrait te convenir ( si j'ai bien décodé ) : tu envoies à ton client un dossier de fichiers PDF et tu veux un classeur excel qui créera une liste de liens hypertextes vers les fichiers PDF de ce dossier ?

Ajouter un bouton et l'affecter à SelDossier
ShFichiers est le CodeName de la feuille recueillant les liens hypertextes des fichiers PDF contenus dans le dossier sélectionné via le bouton créé plus haut ( recherche récursive )
Pour CodeName voir http://www.developpez.net/forums/d92...cel/vba-bases/

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Option Explicit
 
Private Declare Function QueryPerformanceCounter Lib "Kernel32" (X As Currency) As Boolean
Private Declare Function QueryPerformanceFrequency Lib "Kernel32" (X As Currency) As Boolean
 
Dim NbFichiers As Long, NbDossiers As Long
Dim Dep As Currency, Fin As Currency, Freq As Currency
Dim r As Long
Const TypeFichier As String = "pdf"
 
Private Sub ListeFichiers(sDossier As String)
    DoEvents
    Application.ScreenUpdating = False
    QueryPerformanceCounter Dep
 
    ShFichiers.Cells.Clear
    r = 0: NbDossiers = 0: NbFichiers = 0
 
    ListeFichiersDansDossier sDossier, True
    Tri
 
    QueryPerformanceCounter Fin: QueryPerformanceFrequency Freq
    With Application
        .StatusBar = "Dossiers : " & NbDossiers & " /  Fichiers : " & NbFichiers & " / " & TypeFichier & " : " & r & " / " & Format(((Fin - Dep) / Freq), "0.00 s")
        .ScreenUpdating = True
    End With
End Sub
 
Private Sub Tri()
    With ShFichiers
        .Columns("A").Sort Key1:=.Range("A1"), Order1:=xlAscending
    End With
End Sub
 
'   Late Binding
Private Sub ListeFichiersDansDossier(sChemin As String, InclureSousDossiers As Boolean)
Dim FSO As Object, Dossier As Object, Fichier As String
Dim sPath As String
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Dossier = FSO.GetFolder(sChemin)
 
    Fichier = Dir$(sChemin & "\*.*")
    Do While Len(Fichier) > 0
        NbFichiers = NbFichiers + 1
        sPath = sChemin & "\" & Fichier
 
        If UCase(TypeFichier) = UCase(FSO.GetExtensionName(Fichier)) Then
            r = r + 1
            ShFichiers.Hyperlinks.Add Anchor:=ShFichiers.Range("A" & r), _
                                      Address:=sPath, TextToDisplay:=CStr(Fichier)
        End If
 
        Fichier = Dir$()
        If NbFichiers Mod 100 = 0 Then Application.StatusBar = "Dossiers : " & NbDossiers & " /  Fichiers : " & NbFichiers & " / " & TypeFichier & " : " & r
    Loop
 
    If InclureSousDossiers Then
        For Each Dossier In Dossier.SubFolders
            NbDossiers = NbDossiers + 1
            ListeFichiersDansDossier Dossier.Path, True
        Next Dossier
    End If
 
    Set Dossier = Nothing
    Set FSO = Nothing
End Sub
 
Sub SelDossier()
Dim sChemin As String
 
    sChemin = ThisWorkbook.Path
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = sChemin & "\"
        .Title = "Dossier à traiter"
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewDetails
        .ButtonName = "Sélection Dossier"
        .Show
        If .SelectedItems.Count > 0 Then ListeFichiers .SelectedItems(1)
        ShFichiers.Range("D1").Select
    End With
End Sub

[maguy]

Merci beaucoup pour la réponse, je vais encore réepliquer j'ai plusieurs fichiers pdf dans mon disque dur et souhaiterai envoyer via mail un fichier excell qui comprendra une colonne A avec des boutons ou des liens des différents fichiers pdf et une colonne d'explication de la facture et remarque. Lorsque la personne cliquera sur le bouton ou le lien que le fichier pdf s'ouvre sur n'importe quel Pc?

[kiki29]

Re, bref tu n'as toujours rien essayé ?

[bbil]

Tu peu insérer tes factures en tant qu'objet dans ton document et cliquer sur la case "Afficher sous forme d'icone" tes correspondant n'auront qu'as cliquer sur l'icone pour ouvrir la facture ...

cependant j'ai peur qu'ensuite ton fichier excel soit rapidement d'une taille trop importante pour être transmis par mail.

[maguy]

J'avais essayé en inserant comme objet c'est le volumineux, c'est pourquoi je cherche une solution avec des boutons ou des lien afin d'avoir un seul classeur excell.

[bbil]

et si tu les insères pas comme objet comment veut-tu que tes factures suivent en envoyant seulement ton fichier excel...

dans ce cas il vas te falloir envoyer ton fichier excel et tous tes .pdf...

[kiki29]

Re,ou alors un dossier sur un serveur , dossier dédié pour chaque client avec les droits attenants pour la lecture ?

car sinon bis repetita placent et post # 8

[maguy]

Je n'ai pas bien compris le car sinon bis repetita placent et post # 8