Discussion :

[Anthony_31]

Bonjour,

Je suis nouveau sur le site, je me présente donc dans mon premier post, je m'appele Anthony et je travaille pour une société aéronautique dans le cadre de mon alternance.

Je publie au sujet de ce post :

http://www.developpez.net/forums/d13...donnees-excel/

car il m'intéresse énormement dans le cadre d'un projet.

J'aimerai moi aussi remplir un formulaire à l'aide d'une macro VBA sous excel, mais je ne peut utiliser la solution de #Kiki car je ne possède qu'adobe Reader comme l'ensemble de mon entreprise.

Débutant en VBA, j'ai réussi à faire une bonne partie du chemin mais, après l'ouverture du formulaire à l'aide d'une macro VBA sous excel, je ne trouve pas de moyen de remplir mes zones que j'ai nommé ( Exemple: P/N, S/N, Numéro de commande,..)

Quelqu'un pourrait'il donc éclairer ma lanterne de débutant et peut être approfondir par la même occasion mes connaissances sous excel.

Cordialement,
Anthony31.

[kiki29]

Salut, il te faut Acrobat (pas le Reader) sinon désolé mais c'est "pas de bras pas de chocolat" et solution bâtarde ici

Lecture des champs d'un formulaire PDF
Ecriture dans les champs d'un formulaire PDF à partir d'une feuille Excel
Pour le dépouillement de Formulaires : Lecture de formulaires PDF. Téléchargeable ici

[Anthony_31]

Coucou Kiki29,

Tout d'abord merci de prendre sur ton temps pour essayer de m'aider dans la mesure du possible.

Pour ce qui est de la solution batarde, je l'ai essayer mais au moment d'utiliser le fichier .bat afin d'identifier les champs à remplir , rien ne se passe. J'ai pourtant bien modifier le nom de mon fichier mais je n'obtient rien en sortie. Je fait peut etre une fausse manip ?

Donc si je resume, c'est impossible d'utiliser Adobe Reader comme tu a pu le faire avec Acrobat ?
Question peut être stupide mais pourquoi cela est il impossible ?

De plus n'y a-t-il pas un autre moyen qu'acrobat pour remplir les champs d'un formulaire à l'aide d'une base de données Excel ?

Cordialement,
Anthony.

[kiki29]

Salut, la réponse est dans la question : ... Reader n'est pas là pour manipuler les PDF. Adobe est une entreprise, comme celle dans laquelle tu bosses : vend-elle gratuitement ses services/produits ?

La "pas de bras pas de chocolat" fonctionne ( testée ici il y a très longtemps )
Acrobat c'est 420 € ce qui n'est pas insurmontable pour une entreprise.

Vas voir sur le forum PDF

[Anthony_31]

Rebonjour Kiki29,

Je comprend mieux maintenant.
Encore merci pour tes réponses.

Je me permet de te poser une autres question dans ces cas la :

Au début de mon projet, j'était partis dans l'idée d'utiliser uniquement excel et , ensuite de générer les pdf déjà rempli.
J'ai abandonnée cette idée pour cause, quand je passer les fichier .pdf dans une page excel, je perdais toute ma mise en forme.
Y a-t-il une solution à cela ?
Et est'il possible d'utiliser les cases d'excel comme des champs qui serai visible au dessus de mon document ?

Cordialement,
Anthony_31.

[kiki29]

Salut, tu peux rêver : doc pdf de la chose : JavaScript for Acrobat API Reference

[Anthony_31]

Rebonjour,

Oui effectivement , je vois que tout cela à l'air plutôt très complexe

Je vais donc voir si il est possible d'avoir Acrobat dans mon entreprise.

Pur question bête mais y a-t-il des risques que tout le travail que tu à effectué ( RESPECT honnetêment parce que y'a un boulot monstrueux dérrière toute ces publications concernant les différentes possibilitées entre PDF et VBA! ) ne soit pas compatible ou ne fonctionne pas lorsque j'aurai obtenu Acrobat?

Cordialement et merci beaucoup pour toutes tes réponses rapides,
Anthony_31.

[kiki29]

Pour ce qui est des formulaires pas de problèmes de compatibilité ascendante :

Acrobat Pro Lecture de formulaires PDF
Testé avec Acrobat Pro 15.6 / Distiller 15.6 / Reader 11.0.12

Pour le reste cela n'a pas été retesté : début du post le 16 Octobre 2007 ( 8a 1m 0j ) avec Acrobat 6.0.6 Pro .....

Il me semble que, si on passe par le site d'Adobe, on peut télécharger une version d'essai valable pendant un mois ? cela te permettra de tester la chose sans risques.

[Anthony_31]

Daccord!

Merci encore du temps que tu m'a accordé.. Bonne fin de journée et bonne continuation.

Cordialement,
Anthony_31

[Topic Résolu]

[kiki29]

Re, il y a cette liste des contributions à jour pour naviguer dans le bazar.

[kiki29]

Salut, Il y aurait LibreOffice qui permettrait de créer des formulaires ? Mais cette possibilité semble à priori plus limitée qu'avec Acrobat ( à vérifier plus à fond )

[Anthony_31]

Bonjour,

je verifierai cette option dès que possible, je suis sur un projet plus urgent en ce moment.
J'essayerai cette possibilité la semaine prochaine.

Je te remercie de l'information et te souhaite une agréable journée.

Cordialement,
Anthony_31.

[RemiT77]

Bonjour à tous,

J'ai suivi les informations données par kiki29 et 90% j'ai des erreurs...

Le code fonctionne parfaitement lorsque je remplis les champs de mon fichier pdf par des cellules Excel contenant du texte.
Cependant, dès lors que je pointe sur des cellules Excel contenant des valeurs numériques, j'ai l'erreur suivante qui s'affiche: « argument ou appel de procédure incorrecte ».

Ci-dessous mon code pour être plus précis :
(PS, les lignes de code qui me remonte l'erreur sont en commentaire ci-dessous)

Merci d'avance

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
68
69
70
71
72
73
74
75
76
77
78
79
Option Explicit
 
Sub SAVE_NDF_1()
'
' SAVE_NDF_1 Macro
' Sauvegarde NDF#1 en PDF
'
Dim nomfichierRECU As String    '' nom de variable récupérant le chemin du fichier Reçu Fiscal PDF
Dim AVDoc As Object '' VAR pour ecrire dans Reçu Fiscal PDF
Dim sChemin As String   '' VAR pour ecrire dans Reçu Fiscal PDF
Dim PDDoc As Object '' VAR pour ecrire dans Reçu Fiscal PDF
Dim JSO As Object   '' VAR pour ecrire dans Reçu Fiscal PDF
 
 
' Stop rafraichissement ecran
Application.ScreenUpdating = False
 
' Boite de dialogue
msgbox "Cette operation peut prendre plusieurs minutes."
 
' Selection onglet
Sheets("NDF 1").Select
 
 
 
'''''''''' Ecriture du reçu fiscal en PDF + sauvegarde
 
Set AVDoc = CreateObject("AcroExch.AVDoc")
    sChemin = ThisWorkbook.Path & "\" & "Reçu_fiscal_ELECTROSMILE_Vierge.pdf"
 
If AVDoc.Open(sChemin, "") Then
    Set PDDoc = AVDoc.GetPDDoc
    Set JSO = PDDoc.GetJSObject
 
    ''' get the information from the form fields
    'JSO.getField("Numb").Value = Sheets("Configuration et Mode d'emploi").Cells(37, 1).Value
    JSO.getField("Nom").Value = Sheets("Configuration et Mode d'emploi").Cells(6, 2).Value
    JSO.getField("Prenom").Value = Sheets("Configuration et Mode d'emploi").Cells(7, 2).Value
    JSO.getField("Adresse").Value = Sheets("Configuration et Mode d'emploi").Cells(8, 2).Value
    'JSO.getField("Code Postal").Value = Sheets("Configuration et Mode d'emploi").Cells(9, 2).Value
    JSO.getField("Commune").Value = Sheets("Configuration et Mode d'emploi").Cells(10, 2).Value
    JSO.getField("Montant").Value = Sheets("NDF 1").Cells(25, 5).Value
    JSO.getField("Montantlettres").Value = Sheets("NDF 1").Cells(35, 1).Value
    'JSO.getField("Z36").Value = Sheets("NDF 1").Cells(36, 1).Value
    'JSO.getField("Z37").Value = Sheets("NDF 1").Cells(36, 2).Value
    'JSO.getField("Z38").Value = Sheets("NDF 1").Cells(36, 3).Value
    'JSO.getField("Z52").Value = Sheets("NDF 1").Cells(36, 1).Value
    'JSO.getField("Z53").Value = Sheets("NDF 1").Cells(36, 2).Value
    'JSO.getField("Z54").Value = Sheets("NDF 1").Cells(36, 3).Value
 
    ' Definition du nom du fichier
    Sheets("NDF 1").Select
    nomfichierRECU = ActiveSheet.Range("A34")
 
    ' Sauvegarde du fichier
    PDDoc.Save 1, ThisWorkbook.Path & "\" & nomfichierRECU
 
    PDDoc.Close
    Set JSO = Nothing
    Set PDDoc = Nothing
 
End If
 
Set AVDoc = Nothing
 
 
'''' Fin Ecriture du reçu fiscal en PDF + sauvegarde
 
 
' Selection onglet maitre
Sheets("Liste NDF General").Select
 
' Reactiver rafraichissement ecran
Application.ScreenUpdating = True
 
' Boite de dialogue
msgbox "Sauvegarde effectuee ici :" & vbNewLine & ThisWorkbook.Path
 
End Sub