Joindre fichiers par macro

Amis du Forum bonjour

J'ai bien trouvé le code pour ouvrir l'exploreur afin de voir comment joindre un fichier:

Code:

---

Application.Dialogs(xlDialogOpen).Show

---

mais je n'arrive pas à mettre en variable le fichier trouvé afin de le mettre en pièce jointe à plusieurs envois de mails initiés par Excel.

Sauriez vous résoudre mon problème ?

Merci d'avance

Bonjour,
Pour récupérer le nom du fichier essaye ceci :

Citation:

---

fichier = Application.GetOpenFilename

---

Philippe Tulliez

Non, cela ne fonctionne pas, car lorsque je sélectione un fichier(malheureusement excel simplement), il ouvre le fichier et c'est tout.
Ce que je voudrais, c'est insérer un fichier issu d'un répertoire quelconque dans un mail outlook.

Mes excuses, cela fonctionne, mais seulement avec ton code, sans mettre le mien.

Merci à toi et bonnes fêtes de fin d'année

Amis du forum bonsoir

Je reviens sur ma question précédente.
L'insertion d'une pièce jointe fonctionne bien, mais comment insérer plusieurs pièces jointes(je ne sais pas combien) issues de variables.
J'ai un code qui me détecte les chemins de mes pièces jointes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

On Error GoTo 0 On Error GoTo Cellule_Vide_Trouvée Set oSérie = New Collection descente = 0 For Each oCellule In ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeVisible).Cells bContinue = True oSérie.Add oCellule.Value, oCellule.Value If Len(oCellule.Value) = 2 Then Numéro_DEC = "000" & oCellule.Value If Len(oCellule.Value) = 3 Then Numéro_DEC = "00" & oCellule.Value If Len(oCellule.Value) = 4 Then Numéro_DEC = "0" & oCellule.Value If oCellule.Value <> "" And oCellule.Value <> "1-N° DEC" Then DEC = DEC + 1: fichier(DEC) = Dir(Répertoire & "SCAN CHEQUES " & Numéro_DEC & "*.xls"): fichier_OK = fichier_OK & fichier(DEC) MsgBox (fichier_OK)'****************************** Module de Gestion des Erreurs Cellule_Vide_Trouvée: Resume Next

---

ais-je été clair ?

Bonjour,

Curieuse, cette partie de ton code:

Code:

---

1 2 3

If Len(oCellule.Value) = 2 Then Numéro_DEC = "000" & oCellule.Value If Len(oCellule.Value) = 3 Then Numéro_DEC = "00" & oCellule.Value If Len(oCellule.Value) = 4 Then Numéro_DEC = "0" & oCellule.Value

---

Alors qu'il suffit d'un

Code:

---

Numéro_DEC = Format(oCellule.Value, "00000")

---

Oui, effectivement, je n'y avais pas pensé. Merci à toi. Bonne soirée