Discussion :

[rapace]

Bonjour,

voilà on me demande de créer une macro VBA qui enregistre un état Access sous forme d'un fichier PDF dans un répertoire précis à créer selon une variable.
J'ai fait des recherches dans les tutoriels, donc maintenant je sais naviguer dans une arborescence de dossiers et créer le répertoire selon une variable. Mais je ne sais pas si enregistrer un état en PDF est possible???? Pourriez vous m'aider, me donner quelques pistes?

Merci d'avance

[Lou Pitchoun]

Salut,
Il y a un tutoriel ici

[cafeine]

Hello,

oui je vois bien une piste :

http://cafeine.developpez.com/access/tutoriel/pdf/

[rapace]

Merci à tous les deux. J'ai utilisé le code fourni dans ce tutoriel, mais j'ai un problème:

dans la fonction ScanPDFfiles, il faut utiliser un objet FileSystemObject, mais mon compilateur ne semble pas reconnaitre cet objet...Faut il activer une librairie particulière???

Merci d'avance.

[cafeine]

oui il faut ajouter la référense au FSO, c'est Scripting (scrrun.dll).

[rapace]

Je n'ai pas pas Scripting dans ma liste de références disponibles. (j'ai Access 2002).
Mais j'ai trouvé scrrun.dll dans C:\Windows\System32. Dois je la copier quelque part ?? ou y a t'il un autre nom pour la référence?

Merci.

[Lou Pitchoun]

Tu n'as pas à la copier.
Tu l'ajoutes aux références de ton projet. Si elle n'est pas dans la liste, tu cliques sur parcourir et tu l'ajoutes.

[rapace]

Merci, c'est mieux maintenant, mais j'ai une nouvelle erreur:

"3270. Propriété non trouvée"

Pourtant la macro se termine et m'enregistre bien mon état en PDF.

Une idée pour dégager cette erreur?

[Lou Pitchoun]

Passe en mode pas à pas pour voir où ça coince et ainsi voir sur quelle ligne cette erreur est générée.

[rapace]

Je voudrais maintenant enregistrer le PDF sous un nom précis et dans un répertoire qui varie selon la valeur de deux variables de mon formulaire (donc pas toujours dans le même répertoire).
Je sais gérer le choix du répertoire selon les variables mais je ne sais pas gérer l'enregistrement par le code VBA. Je m'explique, pour l'instant PDFCreator est paramétré tel qu'il enregistre toujours le PDF dans le même dossier et sous un nom générique (dateheure).
Or je veux choisir le nom et l'emplacement!
Je peux bien sûr enlever le paramétrage de PDFCreator mais dans ce cas là, au lancement de ma macro, une fenètre PDFCreator s'ouvre pour me laisser définir le nom et l'emplacement pour enregistrer mon PDF. Sauf que je ne veux pas que cette fenètre apparaisse, je veux que cela soit fait automatiquement...

Une idée?

[cafeine]

Hello,

il faut modifier la fonction ScanPDFFiles(), c'est elle qui prend en charge le renommage des fichiers.

avec la ligne fso.MoveFile ...

http://cafeine.developpez.com/access/tutoriel/pdf/#LV-E

[rapace]

j'ai trouvé l'erreur ("3270. Propriété non trouvée"), elle vient de la ligne:

Code :

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

strPath = CurrentDb.Properties("workPath")

et donc

Code :

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

currFile =GetFirstFileName...

plante aussi.

Qu'est-ce que "workPath"? dois-je remplacer cette valeur par autre chose?

A part cela, je pense que je touche au but, donc aidez moi encore un petit peu SVP...

[Lou Pitchoun]

Je crois avoir eu la même erreur (access97). Bouge pas je cherche et j'édite mon message.

Edit:
Si c'est dans la fonction GetFirstFileName
j'ai remplacé par :

Code :

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

strPath = ParentDir(CurrentDb.Properties("Name"))

ParentDir est une fonction trouvée dans la FAQ ou les sources (je ne sais plus exactement. )

[rapace]

OK, je vais essayé de trouver cette fonction ParentDir car pour l'instant Access ne la reconnait pas...
Merci