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"
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.
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
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
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