Discussion :

[BRUNO71]

Bonjour à toutes et à tous,

Je joints avec ce message un fichier trouvé sur le net...
Ca peut servir d'exemple à ceux qui le désir...

Pour les pièces jointes je le trouve un peu archaïque, car il faut noter le chemin complet.

J'ai essayé de remplacer la zone de texte par une zone de PJ, mais sans succès...

Qui peux m'aider à résoudre ce problème, si on peut ...

Voir Mail.zip

Merci pour votre aide...

[madefemere]

Bonjour,

On peut effectivement améliorer en ajoutant un module de récupération des noms des fichiers en pièce jointe avec un module global :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public FichierImport As String
'Récupérer le nom du dossier d'exportation du fichier Excel
Public Sub ChoisirFichier()
   Dim fDialog As Office.FileDialog
   Dim varFile As Variant
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fDialog
      .Title = "Choisir un fichier"
      ' Show the dialog box. If the .Show method returns True, the
      ' user picked at least one file. If the .Show method returns
      ' False, the user clicked Cancel.
      If .show = True Then
         'Loop through each file selected and add it to our list box.
         For Each varFile In .SelectedItems
            FichierImport = varFile
         Next
      Else
         MsgBox "Vous n'avez pas choisi de fichier !"
      End If
   End With
End Sub

Qu'on pourrait appeler lors du double-clic sur la zone de texte indiquant la pièce jointe avec :

Code :

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

1
2
3
4
5
6
'Récupération nom du fichier sur double-click
Private Sub Mail_Attachment_Path_DblClick(Cancel As Integer)
'Récupérer le nom du fichier excel à traiter - extraction de COREGE
ChoisirFichier
Me.Mail_Attachment_Path = FichierImport ' Assigner le nom de fichier récupéré
End Sub

Et pas besoin de retaper .

Cordialement.

[BRUNO71]

Bonjour madefemere,

Merci beaucoup....après quelques réglages...ça fonctionne très bien....

Cordialement