Bonjour,
Je cherche à créé une macro pour envoyer un fichier par mail à plusieurs destinataire avec Outlook.
Le code va générer la liste des destinataire et la modifier si nécessaire, ajout et/ou suppression d'une adresse.
J'ai donc inséré une nouvelle feuille qui contient la liste des destinataires, feuille que je ne veux pas envoyer.
Je souhaite donc copier la feuille qui m’intéresse dans un nouveau et l'enregistrer dans le même dossier avec un nom légèrement modifié.
Pour cela j'ai inséré ces lignes dans ma macro.
Or le fichier copié est nommé "FALSE" et non pas du même nom que mon fichier source.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Dim SourceFile As Workbook Dim DestFile As Workbook Dim Chemin As String Chemin = ThisWorkbook.Path Worksheets("WORKLOAD").Copy Set DestFile = ActiveWorkbook ActiveWorkbook.SaveAs Filename = Chemin & "\" & SourceFile.Name & "_"
Quelle boulette ai-je commis ?
Merci pour votre aide et vos conseils
Eric
Partager