Discussion :

[babybell]

Amis du Forum bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

fichier = Application.GetOpenFilename

Philippe Tulliez

[babybell]

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

[babybell]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[AlainTech]

Bonjour,

Curieuse, cette partie de ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[babybell]

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