Ouvrir un répertoire pour choisir un fichier à attacher dans outlook

[apnart]

Bonjour,

Après pas mal de recherches infructueuses ici, je vous pose ma question en espérant trouver ma réponse.

J'ai un excel (2007) qui est une sorte de formulaire de saisie, et qui envoi des mails formatés en fonction de certains choix. Tout ça fonctionne parfaitement.

Je voudrais que, juste avant d'envoyer le mail, mon code ouvre un répertoire (ex: mes documents), que je puisse choisir un fichier y figurant, et que le code récupère ce fichier pour l'attacher à mon mail outlook.

j'sais pas si je sui très clair

Merci de votre aide.

 

[Pierrot93]

Re : Ouvrir un répertoire pour choisir un fichier à attacher dans outlook

Bonjour,

regarde ceci :

Dim chemin As String
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ActiveWorkbook.Path & "\"
    .Show
    If .SelectedItems.Count > 0 Then chemin = .SelectedItems(1)
End With

plus qu'à attacher "chemin" en tant que doc dans ton mail...
bon après midi
@+

 

[apnart]

Re : Ouvrir un répertoire pour choisir un fichier à attacher dans outlook

UN SUPER GRAND MERCI PIERROT !

réponse hyper rapide et parfaite !