XL 2013 attaccher plusieurs pdf

[momo2394]

Bonsoir le forum

J'ai une ligne de code qui va chercher un pdf dans un dossier jusque ici ça va.
Je voudrais ou du moins serait il possible d'attacher tous les fichiers qui se trouveraient dans le dossier "herdine" quelque soit leur noms, car parfois ce dossier peut contenir 1 pdf ou plusieurs

Case "suf": fich = "C:\Users\Documents\Lescury\herdine\1HLB052.pdf"

Merci

 

[Lone-wolf]

Bonsoir momo

Je voudrais ou du moins serait il possible d'attacher tous les fichiers

Bien sûr. Il te suffit de prendre une ficelle et tu les attache. Mais au faite... tu les attache où??

Si c'est Outlook

rep = "C:\Users\Documents\Lescury\herdine\"
Do While Dir(rep & "*.*") <> ""
Nom = Dir
Loop
.Attachments.Add Nom

 

[momo2394]

Bonsoir momo



Bien sûr. Il te suffit de prendre une ficelle et tu les attache. Mais au faite... tu les attache où??

Si c'est Outlook

rep = "C:\Users\Documents\Lescury\herdine\"
Do While Dir(rep & "*.*") <> ""
Nom = Dir
Loop
.Attachments.Add Nom

Salut Lone-wolf


Tout d’abord merci d’avoir répondu à ma demande, mais il se trouve que j’ai fait une erreur dans le copier-coller et dans l’énoncé du problème, je pense que j’aurai du t’envoyer le fichier.

En faite il y a 3 dossiers distincts ( herdine, taderdine et valerdine )

Dans VBA, Les lignes de code que j’ai nommé 1 et 2 doivent rester comme ceci, attacher le pdf qui se trouve dans leur dossier

En revanche la ligne de code que j'ai nommé 3, devra attacher 1 ou plusieurs pdf qui se trouveront dans le dossier « valerdine »

je joins à ma demande le fichier qui t’en dira plus.


Merci

 

[Lone-wolf]

Bonjour momo

Pour l'envois de plusieurs fichiers, crée une nouvelle macro (Public Sub Envois_Valerdine() par ex.) et ajoute ceci. Ensuite avec un autre bouton tu appelle la macro.

Rep = "C:\Users\Documents\Lescury\valerdine\"
Rep_Pdf = Dir(Rep & "*.*")
Do While Rep_Pdf <> ""
Nom = Rep & Rep_Pdf
Rep_Pdf = Dir
Loop

.Attachments.Add Nom

 

[momo2394]

Salut Lone-wolf

Encore merci, mais ça ne fonctionne pas, en faite le must se serait de garder la même macro donc le même bouton pour raison de faciliter et éviter les erreurs

 

[Lone-wolf]

Re momo

Essaie avec cette macro, à adapter.

Public Sub Envois_Valerdine()
Dim olapp As Object
Dim olmail As Object
Dim Rep$, Nom$, Rep_Pdf$

Set olapp = CreateObject("Outlook.Application")
Set olmail = olapp.CreateItem(0)

Rep = "C:\Users\Documents\Lescury\valerdine\"
Rep_Pdf = Dir(Rep & "*.*")

Do While Rep_Pdf <> ""
Nom = Rep & Rep_Pdf
Rep_Pdf = Dir
    With olmail
        .To = "toto.r@gmail.com"
        .Subject = "test"
        .Bcc = ""
        .Attachments.Add Nom
        .Display
    End With
Loop

Set olapp = Nothing
Set olmail = Nothing
End Sub

Je viens de testé et ça marche.

 

[momo2394]

Bonjour Lone-wolf

C'est super ça fonctionne à merveille
encore merci