Macro+excel+pdf+outlook

Résolu
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   -  
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour le Forum
Est-il possible de faire une macro sur excel qui ferait automatiquement un pdf et transférererais ce dernier vers outlook
Par avance, merci pour vos réponses
Cordialement



A voir également:

16 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

a voir

https://www.rondebruin.nl/win/s5/pdf.htm

un exemple a telecharger
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
Ne comprenant pas grand chose à l'anglais, y a t il la traduction de cet ouvrage en français ou équivalent.
Merci

Cordialement
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Vous connaissez le VBA au moins ?
Dans le bas de la page, téléchargez le zip
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
malheureusement, pas du tout
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention  
 
Re,
Donc, ce n'est pas la langue anglaise qui pose problème!!
Demain matin, je vous mets un fichier avec le plus d'infos possible en français
À+
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
Je vous remercie pour votre aide
Je bidouille, des fois ça marche, des fois pas
@+
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Question: le PDF est fait a partir de quoi ??
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Bonjour,

pour écrire un code il faut avoir des données très précises, quelle plage ou nom de l'onglet Excel veux tu expédier en PDF
ensuite il est possible d'expédier le fichier en CDO plus facile et rapide à expédier parce qu'on utilise directement le SMTP de l'opérateur
commence par donner des précisions sur ton projet après on verra ce qu'il est possible de te proposer, mieux joint un exemple de fichier anonymisé à partir de ce lien
https://www.cjoint.com/
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
Bonjour Mike-31
C'est le fameux fichier ou tu m'avais créé des formules pour calculé le résultat des semaines
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

oui mais je ne conserve pas les fichiers une fois les discussions terminées alors si tu veux bien le retourner ce serait bien
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
voilà,https://www.cjoint.com/c/FCqh6oUst2K
En feuille A, j'ai mis un bouton pour créer un pdf
merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

En attendant, un exemple de creation fichier PDF du classeur et envoi par Outlook avec code de RondeBruin commentaires en francais

https://www.cjoint.com/c/FCqh3LTzEZf
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
RE,
Je n'arrive pas à lire votre fichier, il me fait des caractères bizarre
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Pour recuperer le fichier, clic sur le lien, ensuite dans fenetre cijoint clic droit sur le lien, enregistrer la cible
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
Ouah, c'est hyper complexe à comprendre, je vais regarder et faire des test
Mais y a t-il une traduction de l'ouvrage ?
Encore merci
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

c'est hyper complexe à comprendre, Non, pas vraiment, sauf si vous n'y connaissez rien
Mais y a t-il une traduction de l'ouvrage ? En dehors des commentaires, non

J'attends de voir ce que Mike-31 vous propose pour continuer, pas deux sur le sujet si Mike-31 vous donne satisfaction

la seule chose qu'il faut lui preciser c'est si vous tenez a passer par Outlook ou pas
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

ton VBA est protégé par un mot de passe si tu ne le donnes pas ou met un fichier non protégé à disposition

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
Pardon, c'est le seul que j'ai oublié
mdp : puce75018
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

quel est ton fournisseur d'accès à internet que je te retourne le fichier
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Tu peux me donner ton fournisseur d'accès ou le SMTP de ton fournisseur s'il te plait que je te retourne le fichier
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
Pour moi c'est du charabia, j'ai outlook
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Ton fournisseur d'accès est l'opérateur qui te permet de te connecter au Web comme Orange, Free etc ...
quel est donc ton opérateur !
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
orange
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

télécharge ton fichier et pour essai saisir en Y12 l'adresse mail de l'expéditeur éventuellement la tienne, en Y14 l'adresse mail du destinataire éventuellement la tienne et clic sur le rond bleu
si le fichier répond à tes attentes on mettra les adresses dans des constantes

http://dl.free.fr/getfile.pl?file=/ebZLglmC
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
ça me marque en message "Le transport a échoué dans sa connexion au serveur"
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
tu es sur que ton fournisseur d'accès est bien orange, pas wanadoo

recherche dans ton Outlook le SMTP voir ss c'est bien SMTP.orange.fr
0
eric2027
 
Je crois que j'ai compris pourquoi cela ne fonctionne pas, je suis sur réseau et cela bloc au niveau du serveur
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

répond aux questions
es tu sur que ton fournisseur d'accès est bien orange, pas wanadoo chez cet opérateur ça peut être l'un ou l'autre

ensuite cela peut également venir du numéro du port

télécharge ce fichier et renseigne les cellules Y12 et Y14 avec les adresses mail et clic sur le bouton bleu et explique ce qui se passe

https://www.cjoint.com/c/FCqmgUUcPIj
0
eric2027
 
Même résultat qu'au dessus
0
eric2027
 
Je me suis renseignement auprès des gens du serveur, c'est bien orange, mais ils nous bloquent, nous ne pouvons que transférer de poste à poste, décidément, plus aucune liberté d'agir.
Donc, je vais partir sur un pdf automatique avec la macro et le transférer manuellement, quelle avancée au 3ème millénaire, je suis frustré et honteux de t'avoir fait faire tout ce travail
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

en Y18 saisir 465
et retester
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

alors pour créer simplement un fichier PDF

Sub CopieEnPDF()
'---------------------------------------Création du fichier temporaire
ActiveSheet.Unprotect ("b304")
Application.DisplayAlerts = False '-------Annulation des alertes
chemin = ActiveWorkbook.Path
nom = "Copie" & ".PDF" 'nom du nouveau classeur dans cellule et définir extension si différente d'application
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & nom, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
'---------------------------------------Appel procédure d'envoi
Application.DisplayAlerts = True '-------rétablissement des alertes
ActiveSheet.Protect ("b304")
End Sub
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
ça marche pas, ça me beug
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

Bizarre, je viens de retester le code et pas de problème
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
il me cadre bien pour les mises en pages pdf puis plus rien, est ce que j'ai mal interprété le code que tu m'as envoyé, je ré-essaye
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour à tous,

Pour enrgistrer en PDF, il a déjà eu la réponse!

https://forums.commentcamarche.net/forum/affich-33278294-pdf-automatique#2
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
Effectivement, j'ai déja eu un code mais il ne me prend pas de page 1 à 1, il me fait la totale même quand je le paramètre dans imprimer
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729 > eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention  
 
Il faut sélectionner la feuille qui t'interesse!!!!!!!!!!!!
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
ok, je n'avais pas fait attention aussi peut on avoir la fenêtre qui permets de renommer le pdf, cela me ferai gagner un maximum de temps sinon, il faut que je retourne dans le dossier, renommer etc...
Encore merci
0
eric2027 Messages postés 289 Date d'inscription   Statut Membre Dernière intervention   6
 
Sub impress_pdf()

Application.ActivePrinter = "PDFCreator sur Ne01:"

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub
0