Discussion :

[Buffiere]

Bonjour,

Est-il possible de réaliser un lien à partir d'un formulaire pour ouvrir et/ou enregistrer un etat au format PDF ??

Je sais qu'il existe des macros pour ouvrir une application mais...
J'aimerai en fait que mon etat s'exporte sur un fichier pdf à partir de mon formulaire par un lien.

Peut-être ceci est possible en vba mais niveau expression de code je suis moyen alors je sais pas trop.

Merci à tous de votre aide et bonne continuation

[argyronet]

Bonjour,

Regarde dans les Codes Source...
J'ai posté une soluce.

A+

Argy

[Buffiere]

Oui ms moi je veux expporter mon etat et pas mon formulaire
Quelles lignes dois-je changer pour ceci.
PAr contre pour ouvrir l'application pdf sufiit de remplacer les lignes de commandes de word.
Merci de ton aide.

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
21
22
23
24
25
26
27
28
29
30
Private Sub CmdWORD_Click()
'Voici pour la déclaration du code:
Dim wdapp As Word.Application
Dim moncode
 
moncode = code.Value
 
'Démarrer Word
Set wdapp = CreateObject("Word.application")
' le code ci-dessous permet de faire apparaitre word en premier plan ou pas, false -> non et true -> oui
wdapp.Visible = False
'on ouvre le document
wdapp.Documents.Open "j:\Doc_Atelier\td138\td138_gdt.doc"
' avant d'affecter la valeur du champ code au signet code, je teste si le champ code est vide, 
'car si oui cela posera probleme et dans ce cas j'affecte la valeur "."
If code.Value <> "" Then
wdapp.ActiveDocument.Bookmarks("code").Range.Text = code.Value
Else
wdapp.ActiveDocument.Bookmarks("code").Range.Text = "."
End If
' je sauvegarde le fichier sous un autre nom     
wdapp.ActiveDocument.SaveAs "j:\Doc_Atelier\td138\" & moncode & ".doc"
' je ferme le fichier
wdapp.ActiveDocument.Close
' je ferme l'application
wdapp.Application.Quit SaveChanges:=wdDoNotSaveChanges
' et j'avertis l'utilisateur que le fichier word est crée
MsgBox "Le fichier WORD est crée !"
 
End Sub

Balises de code rajoutées par Tofalu. Merci d'y penser à l'avenir

[argyronet]

Je ne comprends pas ta question...
Tu veux exporter un Etat en PDF et tu m'écris du code pour Word
On est dans un forum Access

Soit plus clair...

Argy

[Buffiere]

Oui car tu m'as dis que tu avais posé le codage VBA dans la rubrique code source. Ainsi, j'ai trouvé ce codage (ci-dessus) qui se rapprochait le mieux de ma requete principale qui me semble clair.
Mais bon c'est pas la peine de s'enerver j'essaye d'être le plus clair possible et je sais qu'on est dans un forum access.

Merci et bonne continuation

[argyronet]

Où as-tu vu quelque énervement ?
Recherche sur le forum dans les codes source la rubrique "Access Exporter un État en PDF"...

Cela n'a rien à voir avec le code dont tu me parles...

Si tu veux ouvrir un PDF la ligne de code ci-dessous suffit:

Code :

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

1
2
3
4
Sub OpenPDF()
Dim PDF As Long
PDF = ShellExecute(Application.hWndAccessApp, "open", "C:\DocumentsPDF\Essai.pdf", "", "C:\", 3)
End Sub

Argy

[Tofalu]

Bonjour,

A ma connaissance, word ne permet pas d'enregistrer du pdf.

PAr contre pour ouvrir l'application pdf sufiit de remplacer les lignes de commandes de word.

:

Pourquoi ne pas appliquer directement la source d'argy ?

[Dominic Ulis]

Bonjour,

Ayant le même problème que Buffiere, j'ai essayé d'appliquer tel quel le code d'argyronet. Mais je rencontre les problèmes suivants :

• - la fonction fnctGetDefaultPrinter n'est pas définie
  - la procédure subRegistrySetKeyValue non plus

Pour subRegistrySetKeyValue, argyronet dit :

subRegistrySetKeyValue est une procédure pour écrire une valeur dans la Registry (elle n'est pas mentionnée ici - vous pouvez me contacter pour vous guider).

Serait-il possible d'avoir un petit... ...coup de pouce sur subRegistrySetKeyValue et sur fnctGetDefaultPrinter ?

Merci d'avance. Dominique.

[argyronet]

Bonjour,

Désolé, je n'avais pas vu que j'avais omis de poser la fonction fnctGetDefaultPrinter()... C'est chose faite.

En ce qui concerne l'écriture dans la Registry, il y a plusieurs méthodes.
Le mieux est de disposer d'un module complet avec toutes les fonctions et procédures d'ouverture, de fermeture, d'énumération...
Mais pour ce cas précis, voici ce qu'il vous faut (à coller dans un module):

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal lngHKey As Long) As Long
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal lngHKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal lngHKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal lngHKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Private Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal lngHKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
Private Declare Function RegQueryValueExBinary Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal lngHKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Private Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal lngHKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Private Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal lngHKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal lngHKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
Private Declare Function RegSetValueExBinary Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal lngHKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As Long, ByVal cbData As Long) As Long
Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal lngHKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
Private Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal lngHKey As Long, ByVal lpClass As String, ByVal lpcbClass As Long, ByVal lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, ByVal lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, ByVal lpcbMaxValueLen As Long, ByVal lpcbSecurityDescriptor As Long, lpftLastWriteTime As FILETIME) As Long
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal lngHKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, ByVal lpType As Long, ByVal lpData As Byte, ByVal lpcbData As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal lngHKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal lngHKey As Long, ByVal lpValueName As String) As Long
 
Private Const MCREGKEYALLACCESS = &H3F
Private Const MCREGKEYQUERYVALUE = &H1
 
Private Type FILETIME
  dwLowDateTime As Long
  dwHighDateTime As Long
End Type
 
Public Enum EnumRegistryRootKeys
  rootHKeyClassesRoot = &H80000000
  rootHKeyCurrentUser = &H80000001
  rootHKeyLocalMachine = &H80000002
  rootHKeyUsers = &H80000003
End Enum
 
Public Enum EnumRegistryValueType
  RRKREGSZ = 1
  RRKREGBINARY = 3
  RRKREGDWORD = 4
End Enum
 
Public Sub subRegistrySetKeyValue(ByVal RootKey As EnumRegistryRootKeys, ByVal KeyName As String, ByVal ValueName As String, ByVal varData As Variant, ByVal DataType As EnumRegistryValueType)
  Dim lReturn As Long
  Dim lHKey As Long
  Dim sData As String
  Dim lData As Long
  Dim aData() As Byte
 
  On Error GoTo L_ErrRegistryOperation
  lReturn = RegCreateKeyEx(RootKey, KeyName, 0&, vbNullString, mcregOptionNonVolatile, MCREGKEYALLACCESS, 0&, lHKey, 0&)
  Select Case DataType
  Case RRKREGSZ
    sData = varData & vbNullChar
    lReturn = RegSetValueExString(lHKey, ValueName, 0&, DataType, sData, Len(sData))
  Case RRKREGDWORD
    lData = varData
    lReturn = RegSetValueExLong(lHKey, ValueName, 0&, DataType, lData, Len(lData))
  Case RRKREGBINARY
    aData = varData
    lReturn = RegSetValueExBinary(lHKey, ValueName, 0&, DataType, VarPtr(aData(0)), UBound(aData) + 1)
  End Select
  RegCloseKey (lHKey)
 
L_ExRegistryOperation:
  Erase aData
  Exit Sub
L_ErrRegistryOperation:
  MsgBox "Error: " & Err.Number & ". " & Err.Description, , "subRegistrySetKeyValue"
  Resume L_ExRegistryOperation
End Sub

A+

Argy

[Dominic Ulis]

Bonjour,

Je suis désolée de t'embêter encore argyronet mais j'ai encore des petits problèmes :

Tu dis

j'avais omis de poser la fonction fnctGetDefaultPrinter()... C'est chose faite.

Je suis allée dans les pages de code et je ne l'ai pas trouvée et elle n'est pas non plus dans ce post. Où puis-je la trouver ?

De plus, le code que tu viens de donner ne passe pas en compilation sur l'instruction

Code :

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

  lReturn = RegCreateKeyEx(RootKey, KeyName, 0&, vbNullString, mcregOptionNonVolatile, MCREGKEYALLACCESS, 0&, lHKey, 0&)

Apparamment, c'est mcregOptionNonVolatile qui n'est pas défini. Ne pourrait-on pas le remplacer par sa valeur ?

Merci de ta patience. Dominique.

[Dominic Ulis]

AUTANT POUR MOI, la fonction fnctGetDefaultPrinter est dans les pages de code, au début, juste après les déclarations.

Excuse-moi argyronet.

Dominique.

[niclalex]

je me mêle peut etre de ce qui ne me regarde pas mais pourquoi ne pas exporter l'état en question au format snp ? Microsoft distribue gratuitement un "vieweur" de snp donc cela doit revenir au meme qu"un export en pdf sauf que c'est plus simple à réaliser.

[Dominic Ulis]

niclalex dit :

pourquoi ne pas exporter l'état en question au format snp ?

Pour ma part, c'est parce que le format PDF est plus standard. On peut créer et diffuser avec ce format tout type de document incluant du texte et des images, qui ne pourront être modifiés et que les destinataires pourront lire, quelle que soit leur plateforme (Windows, Mac OS, Linux...)

Dominique.

[ob1knob]

moi je contournerais le problème, tu règle acrobat distiller en imprimante par default sur ton poste et tu fais un bouton imprimer état ...
et le tours est joué..
ton pdf est créer

[argyronet]

Bonsoir

moi je contournerais le problème, tu règle acrobat distiller en imprimante par default sur ton poste et tu fais un bouton imprimer état ...
et le tours est joué..
ton pdf est créer

ob1knob:
Si la question a été posée, c'est justement qu'elle pose le problème majeur du nom du fichier de sortie. Or, ce que tu suggères et qui est tout de même bien connu, il faut relativiser, oblige à fournir un nom de fichier via la boîte de dialogue associée.
Donc ta méthode ne répond pas à la demande.
Ce que je propose à travers le code source permet d'éviter la confirmation du nom du fichier donc, une procédure totalement automatisée.

Dominic Ullis:
La constante était = à 0, c'est un oubli.

Code :

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

Private Const mcregOptionNonVolatile = 0

Argy

[Dominic Ulis]

ob1knob dit :

moi je contournerais le problème, tu règle acrobat distiller en imprimante par default sur ton poste et tu fais un bouton imprimer état ...
et le tours est joué..

As-tu essayé ?

Moi, oui. J'y ai passé au moins quatre jours pleins sans succès !

Voir :http://www.developpez.net/forums/vie...463&highlight=

(Tu remarqueras que ce post n'a pas été résolu)

C'est pourquoi je ne suis pas étonnée que la solution d'argyronet soit assez sophistiquée, je ne m'attendais pas à de la simplicité ! Mais si tu as une meilleure solution, je prends !

Dominique.

[argyronet]

Bonjour,

La connaissance n'a d'intérêt que si elle est partagée

Effectivement le post N° 279463 n'a pas été résolu et pour cause.
Dans le miieu professionnel dans lequel je travaille et malgré les nombreux outils et point de connaissance dont je dispose, il n'a pas été facile de trouver la parade.
Je vous rassure toutes et tous, il n'y en a pas d'autre que celle de passer par la Registry. Mais comme beaucoup d'autres, trop d'informations restent cachées.
C'est en bidouillant que j'ai fini par trouver et aujourd'hui, je vous en fais profiter, et ce, en attendant que Billou serre la cuillère à Adobe et intégre l'enregistrement des PDF dans ses applications...

Argy

[Dominic Ulis]

argyronet dit :

La constante était = à 0, c'est un oubli.

J'ai corrigé puis testé ton code et... ça marche !.

Pour ma part, je pense que ce code donne à nos applications Access des ouvertures très importantes. Par exemple, sur un click de bouton, on peut d'un seul coup :

• 1 Créer un document avec Word ou Excel Automation
  2 Le convertir au format PDF infalsifiable avec le code de argyronet
  3 L'envoyer par la messagerie avec Outlook automation ou CDO

argyronet dit :

La connaissance n'a d'intérêt que si elle est partagée

Dans les pages de code source, tu dis aussi que la méthode vaut aussi pour Word ou Excel. Je vais poursuivre les essais pour créer un PDF à partir de Word automation. Mais je crois que le plus dur est fait. Merci encore.

Dominique.

[argyronet]

Bonjour,

Ce dossier est-il à considérer comme terminé ?
Si oui, j'invite l'auteur à cliquer sur Résolu...

Merci

Argy

[RonTov]

Bonjour a tous,

Apres lecture de vos messages tous tres interessants et recopiage des codes sources "Exporter nu etat au format PDF", je me demande comment faire fonctionner le tout, à présent.

quelqu'un peut-il m'aiguiller, étant novice dans le maniement d'ACCESS.

Merci pour votre collaboration et patience.

Ron