Macro+excel+pdf+outlook

Résolu/Fermé
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 - 15 mars 2016 à 14:18
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 - 21 mars 2016 à 13:01
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 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
15 mars 2016 à 15:58
Bonjour,

a voir

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

un exemple a telecharger
0
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
15 mars 2016 à 16:26
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 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
15 mars 2016 à 18:08
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
15 mars 2016 à 18:11
malheureusement, pas du tout
0
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705 > eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017
15 mars 2016 à 19:58
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
15 mars 2016 à 20:07
Je vous remercie pour votre aide
Je bidouille, des fois ça marche, des fois pas
@+
0
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705 > eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017
16 mars 2016 à 07:47
Bonjour,

Question: le PDF est fait a partir de quoi ??
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
16 mars 2016 à 08:01
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
16 mars 2016 à 08:12
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 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
16 mars 2016 à 08:19
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
16 mars 2016 à 08:59
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 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
16 mars 2016 à 08:56
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
16 mars 2016 à 09:01
RE,
Je n'arrive pas à lire votre fichier, il me fait des caractères bizarre
0
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705 > eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017
Modifié par f894009 le 16/03/2016 à 09:22
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
16 mars 2016 à 09:42
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 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705 > eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017
Modifié par f894009 le 16/03/2016 à 09:49
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 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
Modifié par Mike-31 le 16/03/2016 à 09:16
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
16 mars 2016 à 09:20
Pardon, c'est le seul que j'ai oublié
mdp : puce75018
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
16 mars 2016 à 09:43
Re,

quel est ton fournisseur d'accès à internet que je te retourne le fichier
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
16 mars 2016 à 10:35
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
16 mars 2016 à 11:21
Pour moi c'est du charabia, j'ai outlook
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
Modifié par Mike-31 le 16/03/2016 à 11:28
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
16 mars 2016 à 11:29
orange
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
16 mars 2016 à 11:36
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
16 mars 2016 à 11:47
ça me marque en message "Le transport a échoué dans sa connexion au serveur"
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
16 mars 2016 à 11:50
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
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 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
16 mars 2016 à 13:06
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
Même résultat qu'au dessus
0
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 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
16 mars 2016 à 13:23
Re,

en Y18 saisir 465
et retester
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
16 mars 2016 à 13:31
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
16 mars 2016 à 14:12
ça marche pas, ça me beug
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
16 mars 2016 à 14:18
Re,

Bizarre, je viens de retester le code et pas de problème
0
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
16 mars 2016 à 14:23
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
16 mars 2016 à 14:24
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
16 mars 2016 à 14:31
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017
16 mars 2016 à 15:53
Il faut sélectionner la feuille qui t'interesse!!!!!!!!!!!!
0
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
16 mars 2016 à 16:17
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 vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
21 mars 2016 à 13:01
Sub impress_pdf()

Application.ActivePrinter = "PDFCreator sur Ne01:"

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