XL 2013 attaccher plusieurs pdf

Lone-wolf

XLDnaute Barbatruc

• 8 Juin 2018

• #2

Bonsoir momo

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

Cliquez pour agrandir...

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

 

Dernière édition: 8 Juin 2018

Vote positif 0 Vote négatif

M

momo2394

XLDnaute Occasionnel

• 9 Juin 2018

• #3

Lone-wolf à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Dossier 2018.xlsm

  62.5 KB · Affichages: 15

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 9 Juin 2018

• #4

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

 

Dernière édition: 9 Juin 2018

Vote positif 0 Vote négatif

M

momo2394

XLDnaute Occasionnel

• 9 Juin 2018

• #5

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 9 Juin 2018

• #6

Re momo

Essaie avec cette macro, à adapter.

VB:

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.

 

Vote positif 0 Vote négatif

M

momo2394

XLDnaute Occasionnel

• 11 Juin 2018

• #7

Bonjour Lone-wolf

C'est super ça fonctionne à merveille
encore merci

 

Vote positif 0 Vote négatif