Gestion de fichier: Création d'un PDF via PDFCreator
Bonjour le Forum,
Lors de mon précédent post, avec l'aide du Forum et de PatrickToulon, j'ai pu trouver un solution...
http://www.developpez.net/forums/d11...e/#post6168741
Bon maintenant, ce n'est plus des PDF mais des Words. Juste l'extension qui change, jusque là pas de souci.
Par contre, il va me falloir les transformer en PDF via PDFCreator. Là aussi pas de problème. Enfin si !
Nous utilisons un logiciel interne pour définir les imprimantes du système (en réseau, local et PDFCreadtor). Il est donc impossible d’utiliser le « Fameux » code fournit par PDFCreator… :cry:
Donc j’ai décidé de contourner le problème en définissant l’imprimante par défaut de Word sans toucher au système avec la commande :
Code:
WordApp.WordBasic.FilePrintSetup Printer:="PDFCreator", DoNotSetAsSysDefault:=1
Cela marche du tonnerre. Mais PDFCreator s’ouvre et demande tout le laïus du choix du répertoire de sauvegarde du PDF. Donc pendant ce temps là mon projet sous Excel patine et plante, Malgré le fait d’avoir collé un DoEvents/Sleep/DoEvents
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Call GestionTB(1) ' nettoyage et formatage des saisies
' chemin
tempo3 = Left(fichier_source, x)
' fichier destination
fichier_destination = TB_rome.Value & "-" & TB_name.Value & "-" & TB_firstname.Value & ".doc"
' renomme
Name tempo2 As fichier_destination
Call open_word(tempo3, fichier_destination)
DoEvents
Sleep (10000)
DoEvents
For boucle = 2 To nb_line
If TB_name.Value = Sheets("encours").Range("B" & boucle).Value And TB_firstname.Value = Sheets("encours").Range("C" & boucle).Value Then
fichier_source = TB_rome.Value & "-" & TB_name.Value & "-" & TB_firstname.Value & ".pdf"
fichier_destination = encours & fichier_source
fichier_source = chemin & "test\" & fichier_source
FileCopy fichier_source, fichier_destination
Kill fichier_source
End If
Next boucle |
Donc j’aimerai connaître un moyen pour créer une macro dans les fichiers Word lors de leur ouverture pour gérer PDFcreator dans Word directement.
Auriez-vous une solution ?
_________________________________________________________________
Je crois que je vais être bon pour joindre mon projet... Sachant que je code sur 2 sites différents... l'architecture du dossier source sera le même...
C:\dossier (les répertoires et une extraction de base de données, le fichier excel)
C:\dossier\CV_valide (fichiers sous format PDF et dans la BdD) OK
C:\dossier\CV_transforme (fichiers sous format DOc ou PDF à transformer) NOK
C:\dossier\CV_selection (fichiers sous format PDF demandés) OK
C:\dossier\CV_archive (fichiers sous format PDF et plus dans la BdD) OK
