Discussion :

[vinkey_33]

Bonjour, j'aimerais depuis un bouton, créer un pdf d'un formulaire.
J'ai réalisé un code mais le soucis c'est quand je le lance il m'affiche une erreur :

Erreur de compilation: tableau attend"

sur la ligne 11.
Voici mon code :

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
    Dim strFichier As String
    Dim strFichierPDF As String
    Dim stringFormat As String
    Dim strEtat As String
    Dim strFiltre As String
    Dim rst As dao.Recordset
 
   strFichier = "C:\Users\goncak\Desktop\GESMOB" & "Fiche Retour SAV {0} - {1} {2}.pdf"
 
    While Not rst.EOF
         strFichierPDF = stringFormat(strFichier, _
            Format(rst("N°"), "000"), _
            rst("Prénom/Nom"))
 
    ' Terminé !
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
End Sub

Merci pour vos Réponses

[loufab]

Bonjour,

Peux-tu poster la fonction utilisateur StringFormat() ?

Cordialement,

[vinkey_33]

je pense que c'est:

Code :

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

1
2
3
stringFormat(strFichier, _
            Format(rst("N°"), "000"), _
            rst("Prénom/Nom"))

j
mais je suis pas sur mais peut-tu m’indiquer une solution

[loufab]

Sur Stringformat fais un Clic droit, Définition. Il va te renvoyer sur la fonction en question.

[vinkey_33]

sisi je suis con

Code :

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

Dim stringFormat As String

[loufab]

Sans autre indication et vu le message l'un des paramètres doit être un tableau. Dans ce que tu fournis aucun ne l'est.

C'est la réponse la plus précise vu le peu d'indications fournies.

[vinkey_33]

comment puis-je procédé?

[loufab]

Pour connaitre le paramètre concerné il faut voir la signature de la fonction (son en-tête).

Exemple :

Code :

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

1
2
 
function StringFormat(.....) as ....

Sans cette indication, qui me semble étonnant que tu ne trouves pas puisqu'elle existe dans ton projet, c'est compliqué.

un point d'arrêt sur la fonction et un shift-F8 lorsque l'exécution est dessus ? ça t'emmène où ?

[vinkey_33]

J'ai procédé a quelque modification dans le code.
Maintenant il m'affiche

Variable objet ou variable de bloc with non définie

Voici le code :

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
    Dim strFichier As String
    Dim strFichierPDF As String
    Dim strEtat As String
    Dim strFiltre As String
    Dim rst As dao.Recordset
 
    strFichier = "C:\Users\goncak\Desktop\GESMOB\" & "Fiche Retour SAV"
    While Not rst.EOF
 
        strFichierPDF = strFichier & " " & Format(rst("N°"), "000") & " " & rst("Prénom/Nom") & Now() & ".pdf"
 
        rst.MoveNext
    Wend
 
    ' Terminé !
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
End Sub

[tee_grandbois]

bonsoir,
il ne suffit pas de déclarer le Recordset, il faut aussi lui assigner quelque chose:

Code :

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

Set rst = CurrentDb.OpenRecordset("select * from matable")

[hyperion13]

Et il manque

Code :

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

DoCmd.OutputTo acOutputForm, "NomDuForm", acFormatPDF, strFichierPDF, False

!!

[vinkey_33]

J'ai réussi a ne plus avoir d'erreur, la requête s'exécute mais ne cré pas de fichier, voici le code

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
    Dim GESMOB_App1 As DAO.Database
    Dim strFichier As String
    Dim strFichierPDF As String
    Dim strEtat As String
    Dim strFiltre As String
    Dim rst As DAO.Recordset
 
    Set GESMOB_App1 = CurrentDb
 
    Set rst = GESMOB_App1.OpenRecordset("Arch_envoie_SAV", dbOpenDynase
 
    strFichier = "C:\Users\goncak\Desktop\GESMOB" & "Fiche Retour SAV"
 
 
    rst.MoveFirst
 
    While Not rst.EOF
       strFichierPDF = strFichier & " " & Format(rst("N°"), "000") & " " & rst![Prénom/Nom] & Now() & ".pdf"
 
 
        rst.MoveNext
    Wend
 
 
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
End Sub

[tee_grandbois]

la requête s'exécute mais ne cré pas de fichier, voici le code

il faut peut-être exécuter la commande de création du fichier :
https://www.developpez.net/forums/d1.../#post10327524

[vinkey_33]

merci ca fonctionne
lors de l'enregistrement j'aimerais qu'il me mette les information de strFichierPDF mais quand ca enregistre sa me met le titre du formulaire, j'ai essayé différente manipe mais sa me met une erreur voici mon code:

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
    Dim GESMOB_App1 As DAO.Database
    Dim strFichier As String
    Dim strFichierPDF As String
    Dim strEtat As String
    Dim strFiltre As String
    Dim rst As DAO.Recordset
 
    Set GESMOB_App1 = CurrentDb
 
    Set rst = GESMOB_App1.OpenRecordset("Arch_envoie_SAV", dbOpenDynaset)
 
 
 
    strFichier = "C:\Users\goncak\Desktop\GESMOB" & "Fiche Retour SAV"
        strFichierPDF = Format(rst("N°"), "000") & " " & rst![Prénom/Nom] & Now() & ".pdf"
 DoCmd.OutputTo acOutputForm, strFichierPDF, acFormatPDF, strFichierPDF, False
 
    rst.MoveFirst
 
    While Not rst.EOF
        rst.MoveNext
    Wend
 
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation

[baud61]

bonjour

Rajouté ses lignes de codes

Code :

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

1
2
3
Dim NomFich As String
NomFich = str_repert & Str_nom & "-" & Str_période & ".pdf"
DoCmd.OutputTo acOutputReport, , "PDF", str_repert & Str_nom & "-" & Str_période & ".pdf", True

ceci est la partie du code pour nomer un pdf.

autrement vas voir ce lien ca t'aidera peut etre.

https://www.developpez.net/forums/sh...62#post9930862

[vinkey_33]

merci pour vos solution, sa fonctionne