Discussion :

[Tweelight]

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…
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

bonjour tweelight

tu travaille sur 2003 et il y a depuis un bon moment dejas
la mise ajour qui permetait de sauver en pdf dans 2007 et valable pour 2003 aussi

ca te permetrais encore une fois de reduire concidérablement tes macros

j'avais deja repondu a ce sujet a un autre forumeur

si tu trouve le lien de cette discution tu y trouvera les lien pour 2007 et 2003

je vais essayer de la retrouver moi aussi


au plaisir

re

pour 2007

celui la marche pour 2003
pour 2003


au plaisir

[Tweelight]

Je regarderai demain du boulot. En fait, les IT s'opposent à toutes mise à jour et utilisation d'éxecutable...
Quand je dis que je code sur deux sites, c'est à la maison et au boulot.
On a demandé un petit logiciel, les IT ont rétorqué pas le temps ni les compétences...Donc je m'y suis collé. Mais c'est un peu long quand même.
En tout cas, merci bien!

[Tweelight]

Bonjour PatrickToulon, bonjour le Forum,

Réponse des IT: Non pas de mise à jour du pack Office 2003 et aucune possibilité d'installer un add-on.

donc je vais bien être obliger de jouer...

[SfJ5Rpw8]

salut,

as tu tester le pilotage de word et PdfCreator grâce à ce code :

http://www.developpez.net/forums/d21...ex-pdfcreator/

que tu peu utiliser directement sous excel ..

[Tweelight]

Encore un Dieu!!! Merci.
Par contre malgré le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WordApp.displayAlerts=False

, il m'affiche entre chaque fichier un message pour sauvegarder le normal.dot... Je vais chercher un peu sur le fofo...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub open_word(chemin_sauve As String, fichier_source As String)
Dim clExp As ExportPDF
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(chemin_sauve & fichier_source)
WordApp.Visible = False
WordApp.DisplayAlerts = False
Set clExp = New ExportPDF
clExp.NomDir = chemin_sauve
clExp.NomFichier = fichier_source
clExp.ChemDocComplet = chemin_sauve & fichier_source
clExp.ConversionPDF
Set clExp = Nothing
WordApp.Quit
Set WordDoc = Nothing: Set WordApp = Nothing
End Sub