Discussion :

[mjorgan]

Bonjour,

Actuellement en stage, j'ai pour mission d'utiliser access pour ouvrir des diagnostic et les enregistrer en pdf. Seulement voilà, j'ai quelques 711 diagno à faire et je pense pouvoir gagner un temps fou à coder la manip, plutôt que de faire ça à la main. Cela dit, je ne suis pas très douée en programmation et j'aurais souhaité un peu d'aide...
Pour récapituler, j'ai ma table avec mes objets. Je dois les ouvrir un par un, cliquer sur imprimer un diagnostic, ce qui m'ouvre l'"apercu avant impression", là je dois cliquer sur imprimer et selectionner "pdfcreator" et enregistrer le tout en fonction d'un champ de ma table.
Déjà est ce possible d'automatiser la manipulation ? et si oui comment faire ?

Merci d'avance,
Cordialement

[ClaudeLELOUP]

Bonjour et bienvenue chez nous,


Ai-je compris ce que tu cherches ?

- Ta base contient un état.
- Tu voudrais qu'en un clic, un pdf de cet état soit créé.

[mjorgan]

Meric bien,

Oui c'est ça, pas forcément en 1 clique, je ne veux pas trop en demander... mais diminuer les démarches afin d'aller plus vite. C'est assez réberbatif voir alliénant comme manip et je suis convaincut qu'il est possible de rendre ça quasi-automatique.

[ClaudeLELOUP]

Meric bien toi aussi !

Voici un exemple duquel tu pourrais t'inspirer.

Dans un module, cette fonction qui donne l'imprimante par défaut :

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
Option Compare Database
Option Explicit
 
Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer) As Integer
 
 
'Renvoie l'imprimante par défaut
 
Public Function ImprimanteParDefaut() As String
 Dim ASpliter() As String
 Dim def As String, di As Long
 Dim Tampon As String
    def = String(128, 0)
    di = GetProfileString("WINDOWS", "DEVICE", "", def, 127)
    If di Then Tampon = Left$(def, di - 1)
 ASpliter = Split(Tampon, ",")
ImprimanteParDefaut = ASpliter(0)
End Function

Et pour le clic du bouton, ceci :

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
Option Compare Database
Option Explicit
 
Private Sub btPDF_Click()
  Dim wsn As Object
  Dim ImprDefaut As String
  'Mémoriser l'imprimante par défaut
  ImprDefaut = ImprimanteParDefaut()
  'PDFCreator comme imprimante
  Set wsn = CreateObject("WScript.Network")
  wsn.SetDefaultPrinter "PDFCreator"
  'Imprimer l'état en pdf
  DoCmd.OpenReport "eEtat"
  'Rétablir l'imprimante par défaut
  wsn.SetDefaultPrinter ImprDefaut
End Sub

L'exemple est ici.

[mjorgan]

haha "merci bien" au temps pour moi !

Mmh, je vais essayer avec ça, merci de votre réponse. Je pense manquer de connaissance en programmation pour réussir à obtenir ce que je souhaite. J'ai trouver un site qui tente d'expliquer, mais comme je ne comprend pas forcément tout ce qu'il fait je pense avoir du mal à le mettre en place.

Je vais tout de même tenter cet après-midi, mais je ne peux pas y passer plus de temps que ce que ça me prendra à le faire un à un...

[ClaudeLELOUP]

Je vais tout de même tenter cet après-midi, mais je ne peux pas y passer plus de temps que ce que ça me prendra à le faire un à un...

... sauf que, ainsi, tu aurais apris quelque chose, mais étudier à ta place... je ne sais pas faire !

Reviens si Access t'intéresse.

[mjorgan]

je suis évidemment intéressée pour apprendre à me servir des codes pour programmer access, seulement, je ne suis absolument pas formée pour ce codage et je planche dessus pour pouvoir aller plus vite dans mon travail. Seulement si je passe 3 jours à comprendre les fonctionnements pendant mon temps de travail c'est 3 jours sans productivité, et je ne suis pas sûre que mon tuteur valide...

Cela dit j'ai trouvé plusieurs bouts de code, je ne sais pas comment les articuler ensemble.

Je ne sais pas comment rentrer mes données par exemple sur la ligne :

Code :

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

1
2
3
Sub PrintAsPDF( _
  ByVal strFilename As String, _
  ByVal strReportName As String, _

Avec strFilename <- Chemin complet du fichier PDF à créer.
et strReportName <- Nom de l'état à imprimer.

Il faut remplacer strFilename par le chemin, ou mettre ce dernier à la place du _ ...

Comme le code est mal articulé et que je ne sais pas comment vérfié au fur à mesure qu'il fonctionne, difficile de voir ce qui ne va pas.

J'espère que tu comprends mes difficultés, pas facile de se lancer dans de la programmation sans l'aide de quelqu'un. Ce n'est pas une question de non-intéret ou de mauvaise volonté...

[ClaudeLELOUP]

Pour faire court : peux-tu poster un zip de ta db en une version compatible Access2000 ?

Sinon, je ne peux plus rien.

[mjorgan]

Non je ne peux pas se sont des données confidentielles, je peux au mieux faire des screenshot floutés... Tant pis, merci quand même, je me pencherai sur la question en dehors de mes heures de travail.

Connais-tu un site tuto qui pourrais me servir ?

Bonne fin de journée

[ClaudeLELOUP]