Microsoft 365 Aperçu avant impression (par fichier>imprimer>aperçu) différent de la VBA créée à cet effet

Karim48 · 15 Avril 2020

Bonjour à tous,

Débutant en VBA, je rencontre le problème cité en objet. Lorsque je clique sur le bouton "Générer Fiche d'Accompagnement" l'aperçu qui m'en ressort et différent de celui que j'ai lorsque je clique que sur fichier>imprimer>aperçu. Dans l'idéale, j'aimerais ne conserver en zone d'impression que les lignes pleines en conservant les tableaux tels qu'ils apparaissent sur la Feuille "FICHE D'ACCOMPAGNEMENT" avec les titres, les en-têtes et pieds-de-page.

A terme, j'aimerais créer une macro qui m'enregistrerait le fichier sous le format "date"+ le texte contenu en cellule D5 de la fiche d'Accompagnement sous un format dans le cas présent "061219-Prélèvement(s) sur chantier n°19186". Une fois le fichier enregistré, j'aimerais pouvoir l'envoyer par mail.

Votre aide me serait très précieuse.

Merci beaucoup par avance.

Karim

kingfadhel · 16 Avril 2020

Bonjour le fil,

Voila ce que j'ai pu faire en pièce jointe:

J'ai créé une 3éme feuille "Fiche Mail"
j'ai modifié le filtre pour qu'il exporte les données dans la feuille créée
la suppression des lignes avant export + le formatage et les bordures
sauvegarde de la feuille au format PDF dans le dossier : D:\dossier ===> à modifier bien-sure
et finalement l'envoi du fichier créé par mail ("outlook")

kingfadhel · 16 Avril 2020

Re,
modification dans une partie du code macor : Sub SavePDF_Email()

ajoute ce qui est en rouge selon le dossier que tu vas créé

'---Destinataires---
destinataires = "mail1@gmail.com" & ";" & "mail2@msf.tn" & ";" & "mail3@rbkl.fn"
'Ou bien entrer le path et nom du fichier autrement
Nom_Fichier = "D:\Dossier\" & new_name & ".pdf"
If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------

kingfadhel · 16 Avril 2020

Re,
une autre version, il suffit de cliquer sur ton bouton "Faire apparaître..." et le tour est joué,
sauvegarde au format PDF, mail, et suppression du fichier pdf créé.

Phil69970 · 16 Avril 2020

Bonjour Karim48, Kingfadhel

Pour les 2 points suivants je t'ai fais un fichier qui correspond à ta demande...

Karim48 à dit:
A terme, j'aimerais créer une macro qui m'enregistrerait le fichier sous le format "date"+ le texte contenu en cellule D5 de la fiche d'Accompagnement sous un format dans le cas présent "061219-Prélèvement(s) sur chantier n°19186".

Karim48 à dit:
je clique que sur fichier>imprimer>aperçu.

Pour la messagerie je n'ai pas regardé.

Karim48 à dit:
, j'aimerais pouvoir l'envoyer par mail.

Cordialement

Karim48 · 19 Avril 2020

Merci à tous les deux. Merci Kingfadhel pour la conversion pdf et le mailing. J'ai un peu réajuster à mon gout mais grace à vous c'est totalement fonctionnel. Merci encore

Microsoft 365 Aperçu avant impression (par fichier>imprimer>aperçu) différent de la VBA créée à cet effet

Karim48

XLDnaute Nouveau

Pièces jointes

kingfadhel

XLDnaute Impliqué

Pièces jointes

kingfadhel

XLDnaute Impliqué

kingfadhel

XLDnaute Impliqué

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Karim48

XLDnaute Nouveau

Discussions similaires