Discussion :

[rvtoulon]

Bonjour à tous, cela fait un petit moment que je ne suis pas venu sur le forum.
J'ai bien parcourus l'excellente contribution de Kiki29 sur les PDF, merci pour cet excellent travail.

Grâce à ces divers codes je réussi à remplir un pdf via les macros.

La difficulté c'est que je souhaite remplir plusieurs fois de suite le même formulaire en faisant une boucle qui modifie les données dans une feuille excel.
Le soucis est celui-ci: Je fais un premier tour dans ma boucle et j'insére dans ma feuille excel les données pour mon formulaire ce qui donne ceci par exemple:

j'utilise la boucle ci-dessous pour insérer les données dans mon pdf et là pas de problème:

Code :

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

1
2
3
4
5
 
For i = 2 To LastRow
     Set X = JSO.getField(CStr(Feuil11.Range("C" & i)))
     X.Value = CStr(Feuil11.Range("E" & i))
Next i

j'enregistre mon fichier sous un nom différent avant de finir ma boucle puis,
je fais un deuxième tour dans ma boucle pour modifié les données de la feuille Excel pour avoir ceci:


Vous l'avez compris il y a une différence au niveau de la ligne en jaune.

Au premier passage le champ contient une donnée, au deuxième il est vide et là j'ai l'erreur:


le débogage situe l'erreur sur la ligne en jaune ci dessous:


X à la valeur 2 et dois devenir "".

Avez-vous une idée? Comment remettre tous les champs d'un pdf à l'état initiale?
J'ai presque 100 Fichiers Pdf à remplir...

j'utilise Acrobat XI pro, Excel 2013 ou 2010 c pareil pour ce qui est de l'erreur

Un peu d'aide serai la bienvenue...

Merci à vous

[EBRAG]

Bonsoir,

Personne ne semble vouloir se mettre sur le sujet... peut-être manque-t-il de clarté ?

Je ne suis pas trop familier avec ces pdf via Excel, mais la seule chose que j'entrevois est la notion de
.value suivi d'un cstr

es-tu certain que c'est . value qu'il faille mettre ? et pas .text ou quelque chose comme ça

Revois les propriétés du contrôle qui pose problème...

peut-être en ne mettant rien du tout d'ailleurs uniquement x = cstr(etc...

c'était juste pour essayer !

[eriiic]

Bonjour,

Incompatibilité de type veux dire.... que le type n'est pas correct.
Met donc X dans la fenêtre espion et contrôle son type : String ou Long ou ???
Si tu dis que la boucle est passée au moins une fois c'est que le type String doit être correct.
Sinon s'il est numérique alors x.value =0

Maintenant est-ce que ton objet X existe ?
Lorsqu'on utilise Set on doit contrôler si c'est correct (à moins d'être sûr à 100% qu'il existera toujours) :

Code :

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

1
2
3
4
5
If X Is Nothing Then
    MsgBox "y'a un os"
Else
    ' ça roule
End If

Autre éventualité. Qu'as-tu dans cette cellule "E" & i ? Si c'est une valeur d'erreur...
eric

[kiki29]

Salut, mes pouvoirs divinatoires étant nuls : la totalité du code utilisé ainsi qu'un échantillon du pdf devraient aider.

[rvtoulon]

Bonjour,
Merci de votre intérêt pour cette question.

J'ai reproduit l'erreur dans le fichier test ci-dessous.

Mes données étant confidentielles, le fichier ci-dessous fait la même chose avec la même macro.

Cordialement.

[rvtoulon]

Pour Eriic,

Avec l'espion je m'aperçois que la variable X est de typer Variant et selon la donnée elle devient string ou double.

dans le cas de l'erreur elle est double:

en changeant ma boucle comme ceci sa fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
For i = 2 To LastRow
     Set X = JSO.getField(CStr(Feuil1.Range("B" & i)))
 
     If IsNumeric(X.Value) Then
          X.Value = CDbl(Feuil1.Range("D" & i))
 
     Else
          X.Value = CStr(Feuil1.Range("D" & i))
     End If
 
Next i

Et ça m'affiche un zéro dans le champ or moi je veux qu'il n'affiche "rien". c'est bien plus lisible que des zéros partout...