Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2640 connectés 

 


 Mot :   Pseudo :  
 
 Page :   1  2
Page Suivante
Auteur Sujet :

Macro Excel : enregistrer feuille en PDF et envoi pièce jointe

n°1573216
hyperion66
Posté le 11-06-2007 à 14:06:42  profilanswer
 

Reprise du message précédent :
Tu as donc bien Microsoft CDO for Windows 2000 Library  ?


---------------
MATOS VELO - Club Strava Matos Vélo
mood
Publicité
Posté le 11-06-2007 à 14:06:42  profilanswer
 

n°1573217
hyperion66
Posté le 11-06-2007 à 14:08:15  profilanswer
 

AdobePdfMakerForOffice : en le supprimant, toujours pareil, mon PDF ne se crée pas :(
Dégoûté, si proche du but et ça ne marche pas !


---------------
MATOS VELO - Club Strava Matos Vélo
n°1573219
hyperion66
Posté le 11-06-2007 à 14:11:03  profilanswer
 

Voilà le journal de l'erreur sur Distiller :

Acrobat Distiller 7.0
Début : lundi 11 juin 2007 à 14:10:35
 
Adobe PostScript :3016.102
 
Heure de début : lundi 11 juin 2007 à 14:10:36
Source : 01042007_KIKI39173.ps
Destination : D:\Gestion\Factures\01042007_KIKI39173.pdf
Options Adobe PDF : C:\Documents and Settings\All Users\Documents\Adobe PDF\Settings\Smallest File Size.joboptions
%%[ Error: undefined; OffendingCommand: K ]%%
 
Stack:
-mark-
 
 
%%[ Flushing: rest of job (to end-of-file) will be ignored ]%%
%%[ Warning: PostScript error. No PDF file produced. ] %%
Durée de conversion : 0 secondes (00:00:00)
**** Fin du travail ****


---------------
MATOS VELO - Club Strava Matos Vélo
n°1573221
kiki29
Posté le 11-06-2007 à 14:12:00  profilanswer
 

Oui affirmatif   Microsoft CDO for Exchange 2000 Library


Message édité par kiki29 le 11-06-2007 à 14:12:14
n°1573223
hyperion66
Posté le 11-06-2007 à 14:14:16  profilanswer
 

Ah, j'ai pas Exchange Library moi, seulement Microsoft CDO for Windows 2000 Library.
Mais je ne pense pas que ce soit cela qui empêche la création du PDF !


Message édité par hyperion66 le 11-06-2007 à 14:16:31

---------------
MATOS VELO - Club Strava Matos Vélo
n°1573226
kiki29
Posté le 11-06-2007 à 14:15:26  profilanswer
 

Une piste à suivre ?

n°1573229
hyperion66
Posté le 11-06-2007 à 14:20:03  profilanswer
 

Comment je fais pour l'avoir normalement ce Microsoft CDO for Exchange 2000 Library ??


---------------
MATOS VELO - Club Strava Matos Vélo
n°1573232
hyperion66
Posté le 11-06-2007 à 14:22:40  profilanswer
 

Grosse avancée. J'ai utilisé le .ps que tu m'as envoyé par mail, et là, distiller me le convertit. Il y a donc un souci au niveau de la création du .ps !


---------------
MATOS VELO - Club Strava Matos Vélo
n°1573247
kiki29
Posté le 11-06-2007 à 14:50:00  profilanswer
 

Ma CDOEX.DLL version 6.0.6511.0 se trouve dans C:\Program Files\Fichiers communs\Microsoft Shared\CDO
sinon un bavardage sur http://mrspeaker.webeisteddfod.com/2005/05/02/cdoex/

n°1573250
hyperion66
Posté le 11-06-2007 à 14:58:33  profilanswer
 

J'ai réinstallé Acrobat, rien n'y fait, il y a une erreur sur le PS généré.
Quel profil de Distiller utilises-tu ?


---------------
MATOS VELO - Club Strava Matos Vélo
mood
Publicité
Posté le 11-06-2007 à 14:58:33  profilanswer
 

n°1573255
hyperion66
Posté le 11-06-2007 à 15:09:02  profilanswer
 

Je viens de faire le test sur le PC de ma femme qui possède aussi Acrobat 7, même erreur, à savoir que le fichier .ps généré ne peut être transformé en PDF via Distiller !


---------------
MATOS VELO - Club Strava Matos Vélo
n°1573272
kiki29
Posté le 11-06-2007 à 15:18:47  profilanswer
 

Je t'ai envoyé des snapshots , il y a une histoire de polices à ne pas envoyer a l'imprimante pdf (?)
peut etre vérifiier les mises à jour d'Acrobat ?


Message édité par kiki29 le 11-06-2007 à 15:20:17
n°1573278
hyperion66
Posté le 11-06-2007 à 15:27:18  profilanswer
 

J'ai mis les mêmes options et mis à jour Acrobat, toujours pareil.


---------------
MATOS VELO - Club Strava Matos Vélo
n°1573279
hyperion66
Posté le 11-06-2007 à 15:31:13  profilanswer
 

Tant pis, je crois que je vais abandonner l'idée.
Par contre, saurais-tu comment faire pour que le fichier, qui s'enregistre actuellement dans D:\Gestion\Factures\ s'enregistre plutôt dans D:\Gestion\Factures\Annee, sachant que Annee serait pris dans une cellule ?


---------------
MATOS VELO - Club Strava Matos Vélo
n°1573286
kiki29
Posté le 11-06-2007 à 15:38:24  profilanswer
 


CheminX = "D:\Gestion\Factures\" & Range("A1" )
Tu devrais nommer les cellules ou plages que tu utilises dans le programme


Sinon il reste encore la solution PDFCreator évoquée plus haut, plus verbeuse


Message édité par kiki29 le 11-06-2007 à 16:29:46
n°1573289
hyperion66
Posté le 11-06-2007 à 15:40:59  profilanswer
 

Si je nomme la cellule, le code devient  
CheminX = "D:\Gestion\Factures\" & Range("Nom_cellule" ) ??


---------------
MATOS VELO - Club Strava Matos Vélo
n°1573292
kiki29
Posté le 11-06-2007 à 15:43:48  profilanswer
 

affirmataf et il est plus facile de se rappeler une plage nommée que les coordonnées de cette derniere

n°1573293
hyperion66
Posté le 11-06-2007 à 15:44:19  profilanswer
 

En fait, je veux récupérer l'année à partir de la cellule date qui est en cellule H13 (format dd/mm/yyyy)
J'ai fait ceci :
Annee = Format(Range("H13" ), "yyyy" )
Chemin1 = "H:\Zerobug backup\Factures\" & Annee
 
Mais ça ne marche pas !


---------------
MATOS VELO - Club Strava Matos Vélo
n°1573294
hyperion66
Posté le 11-06-2007 à 15:45:08  profilanswer
 

Si je nomme ma cellule H13 Date par exemple, la formule Annee = Format(Range("H13" ), "yyyy" ) devient donc Annee = Format(Range("Date" ), "yyyy" ) ?
Mais dans ce cas, le sous-dossier créé n'est pas 2007, mais par exemple 2007KIKI


Message édité par hyperion66 le 11-06-2007 à 15:46:54

---------------
MATOS VELO - Club Strava Matos Vélo
n°1573299
kiki29
Posté le 11-06-2007 à 15:54:22  profilanswer
 


Dim Annee As String
     
   Annee = Year(Range("Annee" ))
   Chemin1 = "H:\Zerobug backup\Factures\" & Annee  


Message édité par kiki29 le 11-06-2007 à 16:28:37
n°1573302
hyperion66
Posté le 11-06-2007 à 16:05:42  profilanswer
 

Toujours pareil, ça me crée  
2007KIKI\fichier.xls
et non
2007\KIKI\fichier.xls


---------------
MATOS VELO - Club Strava Matos Vélo
n°1573317
kiki29
Posté le 11-06-2007 à 16:24:39  profilanswer
 

tu as oublié de mettre un \  dans ta chaine qqpart


    Chemin1 = "H:\Zerobug backup\Factures\" & Annee  
    ....
    If CreationDossiers(Chemin1 & "\" & Client) = False Then
    ...
         ActiveWorkbook.SaveAs Chemin1 & "\" & Client & "\" & Fichier


Message édité par kiki29 le 11-06-2007 à 16:27:37
n°1573322
hyperion66
Posté le 11-06-2007 à 16:29:23  profilanswer
 

Sub Enregistrement()
Dim Chemin1$, Chemin2$, Client$, Fichier$, Numfact$, Jour$, Annee$
Chemin1 = "H:\Zerobug backup\Factures\" & Annee
Chemin2 = "D:\Gestion\Factures\" & Annee
Jour = Format(Range("Date" ), "ddmmyyyy" )
Annee = Year(Range("Date" ))
Client = Range("Client" )
Numfact = Range("Numfact" )
Fichier = Jour & "_" & Numfact & ".xls"
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
ActiveWorkbook.SaveAs Chemin1 & "\" & Client & "\" & Fichier
If Dir(Chemin2 & Client, 16) = "" Then MkDir Chemin2 & Client
ActiveWorkbook.SaveAs Chemin2 & "\" & Client & "\" & Fichier
End Sub


Ca ne marche pas !


---------------
MATOS VELO - Club Strava Matos Vélo
n°1573868
jpcheck
Pioupiou
Posté le 12-06-2007 à 16:14:35  profilanswer
 

fais d'abord ton année = format sinon forcément ca va planter :)
de la même facon, mets un . value après tes range
 
attention a ton chemin1 & client, il risque de pas y avoir de "\".


Message édité par jpcheck le 12-06-2007 à 16:16:04
n°1619412
Dr_shaman
Posté le 05-10-2007 à 09:34:43  profilanswer
 

Bonjour  je sui desoler de vous déranger mais les fichier .ps sa marche avec toute les vertion de excel? moi je peu même pas enrejistrer en .ps dans excel c'est normal?
parceque ton script m'interresse baucoup.

n°1619419
hyperion66
Posté le 05-10-2007 à 09:46:19  profilanswer
 

Je n'ai pas réussi à faire fonctionner cette macro avec Acrobat.
Certains y arrivent mais avec un autre logiciel.


---------------
MATOS VELO - Club Strava Matos Vélo
n°1619434
Dr_shaman
Posté le 05-10-2007 à 10:01:51  profilanswer
 

ok merci.
 
ps: je suis un boulai c'est normal que je peu pas enrejistrer en .ps c'est un forma d'impression dans un fichier lol.

n°1872307
virgile84
Posté le 12-04-2009 à 00:31:31  profilanswer
 

Bonsoir hyperion66
ta macro m'interesse beaucoup car je suis en train de faire la même chose que toi sauf que je suis pas trop doué
si dans ton classeur il n'y a pas de données confidentielles peux tu me l'envoyer pour que j'adapte le mien ?
Mon mail : virgile84@gmail.com

n°1872308
otobox
Maison fondée en 2005
Posté le 12-04-2009 à 01:01:42  profilanswer
 

C'est bien Acrobat Writer que tu as sur ton poste, hein ?
Sinon, essaye avec PDFcreator. Ca marche très bien et c'est gratuit !


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
n°1872311
hyperion66
Posté le 12-04-2009 à 06:34:56  profilanswer
 

virgile84 a écrit :

Bonsoir hyperion66
ta macro m'interesse beaucoup car je suis en train de faire la même chose que toi sauf que je suis pas trop doué
si dans ton classeur il n'y a pas de données confidentielles peux tu me l'envoyer pour que j'adapte le mien ?
Mon mail : virgile84@gmail.com


Je n'ai jamais réussi à faire fonctionner la macro avec Adobe Acrobat !


---------------
MATOS VELO - Club Strava Matos Vélo
mood
Publicité
Posté le   profilanswer
 

 Page :   1  2
Page Suivante

Aller à :
Ajouter une réponse
 

Sujets relatifs
Graphique et ExcelEnvoi de donnée du serveur au client par socket
création macro pour envoie fichier excel par mail[excel/vba] Compter le nombre de fichiers dans un repertoire ?
(RESOLU) diminution du temps d'execution [VBA EXCEL][vba] copie ligne et l'inserer dans une autre feuille
Générer un fichier excel avec menus déroulantsinsertion à partir d'un fichier texte dans un fichier excel
aide pour cration d'un macro svp!!!!! 
Plus de sujets relatifs à : Macro Excel : enregistrer feuille en PDF et envoi pièce jointe


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR