Bonjour,
Novice sur le forum et en macro, je vous demande par avance de m'excuser si je n'utilise pas les termes les plus justes.
J'ai un classeur excel sur lequel j'applique la macro suivante pour créer des fichiers PDF :
Aujourd'hui je "m'amuse" à envoyer chaque fichier généré à un/des correspondants différents.
J'aurai souhaité mettre en place une macro qui me faciliterai la tâche et générerai les mails "automatiquement".
Sachant que les noms des fichiers PDF débutent par la valeur de la cellule B1 qui est le nom du service auquel je doit adresser le PDF et qu'à ce nom correspondent des correspondants différents.
Pour essayer d'être clair, je dois envoyer le fichier DRH-NOM DU FICHIER à isabelle.dupont@truc.fr, le fichier DAF-NOM DU FICHIER à Patrick.durand@bidule.com etc
Je vous remercie d'avance pour votre aide et vous souhaite un bon week-end
Novice sur le forum et en macro, je vous demande par avance de m'excuser si je n'utilise pas les termes les plus justes.
J'ai un classeur excel sur lequel j'applique la macro suivante pour créer des fichiers PDF :
Sub sauvegarderPDF()
' impression de toutes les fiches en PDF
Dim lignedep As Long
lignedep = 96
Index = lignedep
While chemin = ""
'ouvre une boite de dialogue pour choisir un répertoire
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
chemin = .SelectedItems(1)
End If
End With
Wend
'On vérifie si le dernier caractère est différent de "\"
If Right(chemin, 1) <> "\" Then
chemin = chemin & "\"
End If
'Boucle sur la liste des directions
While Worksheets("synthese").Cells(Index, 3).Value <> ""
'on renseigne B1 avec la valeur
Range("b1").Value = Cells(Index, 3).Value
NomFichier = Range("b1").Value & "- NOM DU FICHIER"
'on enregistre en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & NomFichier & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'on passe à la ligne suivante
Index = Index + 1
Wend
End Sub
Aujourd'hui je "m'amuse" à envoyer chaque fichier généré à un/des correspondants différents.
J'aurai souhaité mettre en place une macro qui me faciliterai la tâche et générerai les mails "automatiquement".
Sachant que les noms des fichiers PDF débutent par la valeur de la cellule B1 qui est le nom du service auquel je doit adresser le PDF et qu'à ce nom correspondent des correspondants différents.
Pour essayer d'être clair, je dois envoyer le fichier DRH-NOM DU FICHIER à isabelle.dupont@truc.fr, le fichier DAF-NOM DU FICHIER à Patrick.durand@bidule.com etc
Je vous remercie d'avance pour votre aide et vous souhaite un bon week-end