Discussion :

[antony34200]

Bonjour le forum,
je rencontre un problème lorsque je souhaite imprimer et lot et en pdf.
J'ai un formulaire F_contrats_Liste avec un sous formulaire F_Contrats_Liste_SF

Dans le formulaire, j'ai un bouton imprim contrat qui devrait pouvoir lance l'impression en PDF des contrats coché dans la liste qui se trouve dans le sous formulaire. j'ai bien un code, mais lorsque je lance l'impression, j'ai une message d'erreur.

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
Private Sub Imprim_contrat_Click()
Me.Refresh
Set rst = Me.RecordsetClone
With rst
    .MoveFirst
    Do Until .EOF
        If .Fields("selection") = True Then
 
            DoCmd.OpenReport "E_Contrat_par_N°_Contrat_2022", acViewPreview, , "N°_Contrat = " & .Fields("N°_Contrat")
 
            'enregistrement du fichier et création de son nom
            sFileName = "c:\Users\Megaport\Desktop\a envoyer\" & .Fields("nom") & "_[0" & .Fields("N°_Société") & "]_(" & .Fields("N°_contrat") & ")_" & .Fields("enseigne") & "_" & .Fields("date_anim") & "_Sem " & .Fields("num_sem") & "_" & .Fields("nature_contrat") & "_" & .Fields("envoi_des_contrats") & ".pdf"
 
            DoCmd.OutputTo acOutputReport, , "PDF", sFileName
 
            DoCmd.Close acReport, "E_Contrat_par_N°_Contrat_2022", acSaveNo
        End If
        .MoveNext
        Loop
End With
End Sub

Si quelqu'un avait une idée à me soumettre, merci par avance du coup de main

[hyperion13]

Salut
"C'est simple !" comme dirait une certaine pub !
Set rst = Me.RecordsetClone désigne le rst du form principal, alors que vous voulez celui du sform !
Donc remplacez la L3 par Set rstS = Me.F_Contrats_Liste_SF.Form.RecordsetClone.

[antony34200]

Bonjour HYPERION,
Merci pour ton retour.
j'aiégalement rajouté un S à la ligne 4 à : With rstS, car sion j'avais un message d'erreur,


et maintemant c'est le chemin et le nom du fichier qui sont en erreur

[hyperion13]

j'ai fait une faute de frappe ! Corrigez rstS par rst !

[antony34200]

Meme en corrigeant j'ai toujours le débogage sur le sFilname. (sFileName = vide)

[hyperion13]

Après L1 de votre code Post#1 passez Dim rst As DAO.Recordset.
Si sFileName, est vide, cherchez laquelle des variables est vide.
Dans quel cas passez peut-être Nz(MaVarialbe, "")Mais quand je vois le genre de chaine en L12, ma vue se brouille. Totalement illisible.
L6 passez plus tôt Do While Not .EOF.

[antony34200]

Merci, le code fonctionne correctement ...

et effectivement, j'avais pas mal de variable vide dans le nommage de mon fichier ... je n'ai pas fait attention.
Maintenant, je rencontre un problème avec l'acheminement de mon fichier.

la base est "partager" sur Dropbox, pour ne pas le cité, afin de pouvoir l'utiliser sur plusieurs poste, pas en même temps, sinon ça créer des copies et les enregistrements sont erroné ... meme si ça arrive de temps en temps, mais je cherche une securité, du style à l'ouverture, si la base est ouverte sur un autre poste, un msgbox d'alerte.

j'aimerais pouvoir trouver un chemin, pour la création des fichiers, identique à tous les postes, y a t il une possibilité de tricher quelque par, ou de dire a access d'envoyer le fichier au même endroit d'où est la base ?

[antony34200]

J'ai trouvé ...
pas tout a fait ce que je souhaiterais, mais c'est un bon début.
pour le chemin d'enregistrement de mon impression pdf, avec

Code :

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

currentproject.path &"\"&

, mon fichier s'enregistre là où se trouve mon dossier d'origine
mon code complet :

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
Private Sub Imprim_contrat_Click()
Dim RST As DAO.Recordset
Me.Refresh
Set RST = Me.F_Contrats_Liste_SF.Form.RecordsetClone
With RST
    .MoveFirst
    Do While Not .EOF
        If .Fields("selection") = True Then
 
            DoCmd.OpenReport "E_Contrat_par_N°_Contrat_2022", acViewPreview, , "N°_Contrat = " & .Fields("N°_Contrat")
            Dim sFileName As String  'construction du nom du fichier
    sFileName = .Fields("nom") & "_" & .Fields("date_anim") & "_ Sem " & .Fields("Num_Sem") & ".pdf"
    sFileName = CurrentProject.Path & "\" & sFileName '<= Personalisation du dossier d'enregistrement // enregistrement dans le dossier d'origine => CurrentProject.Path &"\"&
 
 
            DoCmd.OutputTo acOutputReport, , "pdf", sFileName
            DoCmd.Close acReport, "E_Contrat_par_N°_Contrat_2022", acSaveNo
 
        End If
        .MoveNext
        Loop
End With
End Sub

[hyperion13]

re
Dropbox est un service sur le www, donc le chemin doit être le même quelque soit le poste.
Pour vérifier si une bdd est ouverte, il y a un solution donnée ici
Pour le sFileName,de chacun des postes, il faut utiliser la fonction Environ()

Code :

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

1
2
3
Environ("PUBLIC") ' C:\Users\Public)
Environ("USERPROFILE") ' C:\Users\AlixLefranc
CreateObject("WScript.Shell").specialfolders("Desktop") ' C:\Users\AlixLefranc\Bureau

[antony34200]

Bonjour HYPERION
Merci pour ton retour.
la fonction ENVIRON() me provoque un débogage. je l'ai donc retiré.
et avec le code ci-dessous, le fichier va directement dans le dossier mes documents ... et non dans le dossier a envoyer

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
Private Sub Imprim_contrat_Click()
Dim RST As DAO.Recordset
Me.Refresh
Set RST = Me.F_Contrats_Liste_SF.Form.RecordsetClone
With RST
    .MoveFirst
    Do While Not .EOF
        If .Fields("selection") = True Then
 
            DoCmd.OpenReport "E_Contrat_par_N°_Contrat_2022", acViewPreview, , "N°_Contrat = " & .Fields("N°_Contrat")
            Dim sFileName As String  'construction du nom du fichier
    sFileName = .Fields("nom") & "_[" & .Fields("N°_Société") & "]_(" & .Fields("N°_Contrat") & ")_" & .Fields("enseigne") & "_" & .Fields("date_anim") & "_ Sem " & .Fields("Num_Sem") & "_" & .Fields("nature_contrat") & "_" & .Fields("envoi_des_contrats") & ".pdf"
    sFileName = CreateObject("WScript.Shell").specialfolders("Desktop\a envoyer") & sFileName ' C:\Users\AlixLefranc\Bureau <= Personalisation du dossier d'enregistrement // enregistrement dans le dossier d'origine => CurrentProject.Path &"\"&
 
 
            DoCmd.OutputTo acOutputReport, , "pdf", sFileName
            DoCmd.Close acReport, "E_Contrat_par_N°_Contrat_2022", acSaveNo
 
        End If
        .MoveNext
        Loop
End With
End Sub

[hyperion13]

Première fois que je lis que la fonction ENVIRON() génèrerait des bugg !
Vient simplement du fait que vous inventez des variables système qui n'existent pas sur Windaube !
Exp ; specialfolders("Desktop\a envoyer").
Par contre specialfolders("Desktop"),existe, c'est le "Bureau"

... la fonction ENVIRON() me provoque un débogage. je l'ai donc retiré. ...

Ça manque sacrément de rigueur !

... et avec le code ci-dessous, le fichier va directement dans le dossier mes documents ... et non dans le dossier a envoyer

Code :

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

1
2
3
4
        strEnviron = CreateObject("WScript.Shell").specialfolders("Desktop")
        strFolder = "\A envoyer\"
        strFilePath = strEnviron & strFolder
        sFileName = strFilePath & .Fields("nom") & "_[" & .Fields("N°_Société") & "]_(" & .Fields("N°_Contrat") & ")_" & .Fields("enseigne") & "_" & .Fields("date_anim") & "_ Sem " & .Fields("Num_Sem") & "_" & .Fields("nature_contrat") & "_" & .Fields("envoi_des_contrats") & ".pdf"

Code :

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

1
2
        DoCmd.OutputTo acOutputReport, "E_Contrat_par_N°_Contrat_2022", "pdf", sFileName
        DoCmd.Close acReport, "E_Contrat_par_N°_Contrat_2022", acSaveNo

Votre L12 est totalement illisible avec cette mise bout à bout de vos rst.Fileds("xxx"), sans compter les caractères exotiques !
Un conseil, vous devriez déclarer les variables dans le style

Code :

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

1
2
3
4
a = .Fields("nom")
b = "_"
c = .Fields("N°_Société")
d = a & b & c

[antony34200]

Hyperion,
le code fonctionne à la perfection de chez moi, il me reste à tester lundi, du bureau.

Votre L12 est totalement illisible avec cette mise bout à bout de vos rst.Fileds("xxx"), sans compter les caractères exotiques !

je sais que c'est très peu lisible, je m'y suis moi meme perdu ... avec des variables vides, je vais tester les déclarations et je vous tiens au courant.
Encore merci pour le coup de main

[antony34200]

Bonjour HYPERION,
ci dessous mon code complet et revu.

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
Private Sub Imprim_contrat_Click()
 
Dim RST As DAO.Recordset
Me.Refresh
Set RST = Me.F_Contrats_Liste_SF.Form.RecordsetClone
With RST
    .MoveFirst
    Do While Not .EOF
        If .Fields("selection") = True Then
 
    DoCmd.OpenReport "E_Contrat_par_N°_Contrat_2022", acViewPreview, , "N°_Contrat = " & .Fields("N°_Contrat")
        Dim MesVariables As String '<= Déclaration pour nommer le fichier pdf
    a = .Fields("nom")
   b = "_["
    c = .Fields("N°_Société")
    d = "]_("
    e = .Fields("N°_Contrat")
    f = ")_"
    g = .Fields("Enseigne")
    h = "_"
    i = .Fields("date_anim")
    j = "_Sem "
    k = .Fields("Num_Sem")
    l = "_"
    m = .Fields("Nature_Contrat")
    n = "_"
    o = .Fields("Envoi_des_contrats")
 
Dim sFileName As String  'construction du nom du fichier
        strEnviron = CreateObject("WScript.Shell").specialfolders("Desktop") ' envoi le fichier sur le bureau
        strFolder = "\A envoyer\" 'plus prcis dans le fichier a envoyer
        strFilePath = strEnviron & strFolder
        sFileName = strFilePath & " " & a & b & c & d & e & f & g & h & i & j & k & l & m & n & o & ".pdf" '<= Renomme le fichier selon les variables
 
        DoCmd.OutputTo acOutputReport, "E_Contrat_par_N°_Contrat_2022", "pdf", sFileName
        DoCmd.Close acReport, "E_Contrat_par_N°_Contrat_2022", acSaveNo
 
 
        End If
        .MoveNext
        Loop
End With
 
End Sub

tout fonctionne super bien. aussi bien l'envoi du document dans le dossier, que le 'nommage" du document.

juste une petite chose que j'aimerais améliorer.
la variable N°_Société. j'aimerais que si c'est la société 1, remplacer le 1 par un texte, si c'est la société 2 par un autre texte
j'ai essayer çà, mais sa ne fonctionne pas :
if me.N°_Société = 1 then
me.N°_société = "XXXX"
else
me.N°_Société = "yyyy"
end if

[tee_grandbois]

bonjour,

juste une petite chose que j'aimerais améliorer.
la variable N°_Société. j'aimerais que si c'est la société 1, remplacer le 1 par un texte, si c'est la société 2 par un autre texte
j'ai essayer çà, mais sa ne fonctionne pas :
if me.N°_Société = 1 then
me.N°_société = "XXXX"
else
me.N°_Société = "yyyy"
end if

ne serait-ce pas plutôt .Fields("N°_Société") plutôt que Me.N°_société ?*


Tant qu'à faire, en lieu et place de ce code improbable, pourquoi ne pas ajouter le nom de la société (peut être liée à une table société ?) directement dans la requête ?

[hyperion13]

Je ne comprends pas bien votre demande.
Mais il y aurait un hic ! Si N°Societe est numérique, je ne vois pas comment vous pourriez remplacer ou mettre à jour la valeur avec de l'alphanumérique !
Le plus simple serait de créer un autre champ dans votre tbl et saisir la bonne valeur et appeler ce champ dans votre sub(). Comme sur la mythique bdd Comptoirs.

[antony34200]

tee_grandbois, Hyperion
Merci pour vos retours.
effectivement c'est bien .fields("N°_Société").

en fait, les sociétés ont un nom à rallogne. j'airais aimé simplement mettre leurs acronyme plutot que le nom complet ou leur numéro.
mais là c'est juste du confort pour moi. Si ce n'est pas possible de switcher le numéro, via le vba, sans créer un autre champ ou autre, je reste tel quel.

[tee_grandbois]

Si ce n'est pas possible de switcher le numéro, via le vba, sans créer un autre champ ou autre, je reste tel quel.

c'est possible mais dangereux: qu'est-ce qui se passera quand il y aura une nouvelle société créée, tu vas modifier le VBA ? alors que c'est tellement plus simple de créer un nouveau champ dans la table (mais visiblement tu préféres le compliqué ...)

[hyperion13]

Alors si c'est uniquement pour du confort, ajoutez un champ dans votre tbl.
Imaginez-vous si vous avez une centaine de sociétés, il faudra bien stocker quelque part une centaine de variables sous forme d'acronyme. On ne va pas créer un tableau de variables en VBA uniquement pour du confort !

[antony34200]

Merci pour vos réponses. je pensais vraiment que se serait plus simple de passer par le VBA.
je vais créer un nouveau champs dans ma table société et je reviens vous dire.

[antony34200]

Bonsoir,
j'ai créer un champs Acro dans la T_Contrat et un champs Acronyme dans la T_Société.
Depuis ma liste déroulante N°_Société de T_Contrat, j'incrémente mon champs Acro, et tout fonctionne, j'arrive à renommer mes fichiers comme je le souhaite.

Merci infiniment pour votre aide.