Discussion :

[Vandecan]

Bonjour,

Je suis nouvel inscrit consultant régulièrement ce forum mais cette fois-ci je bloque sur le problème suivant:

- je possède dans ma BDD une table "FACTURATION" pour laquelle j'ai une Requête et un Etat nommés: "FACTURE-CONDENSE PAR ARTICLE TOTAL MOIS".
- la requête me permet de regrouper les produits vendus par client (TIER).
- l'Etat possède un bouton "Imprimer en PDF" qui lance la "Macro1" (qui exécute le module "SAVE_EN_PDF"))

Lorsque je lance l'impression en PDF, je devrais obtenir un fichier .pdf par "TIER" avec un nom de fichier différent pour chaque "TIER" en utilisant "strFiltre".
Ce n'est pas le cas et voici la liste des problèmes:

• Problème 1 - lorsque je lance l'impression, une fenêtre me demande "Entrer une valeur de paramètre"
• Problème 2 - je suis obligé d'indiquer le code "TIER" déjà mentionné dans cette fenêtre pour que le processus d'impression se lance
• Problème 3 - le nom de fichier .pdf proposé ne correspond pas au nom qui devrait être généré sur base de "strFiltre"
• Problème 4 - le processus se relance pour le même "TIER" en autant de fois que je n'ai de lignes d’articles différents ("CODE") !

Je n'ai aucune connaissance en VBA et suis donc un bricolo du dimanche en la matière.

Pourriez-vous me venir en aide ?

Je joins une version du fichier .mdb en annexe afin que vous puissiez avoir une vue d'ensemble.

Merci d'avance !



P.S: j'utilise cette BDD sur Access 2007 et sur Access 2010

[tee_grandbois]

Bonsoir,

Problème 1 - lorsque je lance l'impression, une fenêtre me demande "Entrer une valeur de paramètre"
Problème 2 - je suis obligé d'indiquer le code "TIER" déjà mentionné dans cette fenêtre pour que le processus d'impression se lance

solution : il faut mettre des guillemets car TIER est de type texte:

correction dans ANNEXE()

Code :

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

1
2
        ' Construire le filtre
        strFiltre = "[TIER] = """ & rst("TIER") & """"

Problème 3 - le nom de fichier .pdf proposé ne correspond pas au nom qui devrait être généré sur base de "strFiltre"

solution : les caractères / et : sont interdits pour nommer des fichiers, on va les remplacer par des _

correction dans ANNEXE() à ajouter juste après strFichierPDF = Format(rst("TIER"), "000") & " " & Now() & ".pdf"

Code :

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

strFichierPDF = Replace(Replace(strFichierPDF, "/", "_"), ":", "_")

conjointement dans PrintAsPDF() strFichierPDF est utilisé (donc vide) dans la procédure:
DoCmd.OutputTo acOutputReport, strEtat, acFormatPDF, strFichierPDF, blnOpenReader alors que le paramètre strFichier est passé dans le Sub:
Sub PrintAsPDF(ByVal strFichier As String, ByVal strEtat As String ...

solution: il faut utiliser le paramètre passé (strFichier)

correction dans PrintAsPDF()

Code :

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

DoCmd.OutputTo acOutputReport, strEtat, acFormatPDF, strFichier, blnOpenReader

Problème 4 - le processus se relance pour le même "TIER" en autant de fois que je n'ai de lignes d’articles différents ("CODE") !

solution: faire une requête basée sur les tiers et non sur la totalité des enregistrements

correction dans ANNEXE()

Code :

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

1
2
	    ' Ouvrir table Facturation
    Set rst = CurrentDb.OpenRecordset("SELECT DISTINCT TIER FROM FACTURATION", dbOpenSnapshot)

[Vandecan]

Merci "tee_grandbois" !

Tout est parfaitement fonctionnel avec les corrections parfaitement documentées.

Je joint en annexe la version corrigée mais il me reste un seul souci que je ne comprends pas:
- comment puis-je forcer un chemin de dossier pour envoyer les .pdf ?

J'ai remarqué que la ligne suivante ne sert à rien. En effet, tous les .pdf sont envoyés dans le dossier "Mes Documents" malgré le chemin indiqué (j'ai testé des chemins différents).
On peut d'ailleurs commenté cette ligne sans aucun effet.

La ligne en question dans ANNEXE():

Code :

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

1
2
' Nom de base du fichier PDF à créer
    strFichier = "C:\Bureau\Test\" & "ANNEXE {0} - {1}.pdf"

Que faut-il modifier pour y parvenir ?
Et conserver le nommage des fichiers .pdf comme repris dans la ligne suivante:

Code :

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

1
2
' Le nom du client (TIER) est repris volontairement deux fois dans le nom du fichier pour mes besoins ultérieurs :-)
        strFichierPDF = Format(rst("TIER"), "000") & " " & Format(rst("TIER"), "000") & " " & Format(Date, "dd.mm.yyyy") & ".pdf"

Merci d'avance.

[tee_grandbois]

bonsoir,
pourquoi se compliquer ?
code à supprimer:

Code :

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

1
2
    ' Nom de base du fichier PDF à créer - NE FONCTIONNE PAS :-(
    'strFichier = "C:\Bureau\Test\" & "ANNEXE {0} - {1}.pdf"

correction:

Code :

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

1
2
3
        ' Le nom du fichier varie en fonction du client (TIER)
        ' Le nom du client (TIER) est repris volontairement deux fois dans le nom du fichier pour mes besoins ultérieurs :-)
        strFichierPDF = "C:\Bureau\Test\" & "ANNEXE " & rst("TIER") & "-" & rst("TIER") & " " & Format(Date, "dd.mm.yyyy") & ".pdf"

[Vandecan]

J'ai effectué les corrections mais j'ai toujours un problème:

1) Avec l'ancienne ligne de code suivante, cela fonctionne mais les fichiers sont placés dans "Mes Documents" car il n'y a pas de chemin défini; ce qui est normal:

Code :

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

strFichierPDF = Format(rst("TIER"), "000") & " " & Format(rst("TIER"), "000") & " " & Format(Date, "dd.mm.yyyy") & ".pdf"

2) Avec la ligne suivante incluant un chemin de répertoire, le processus s'arrête avec message d'erreur:

Code :

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

strFichierPDF = "C:\Bureau\Test\" & "NDE_Client_" & rst("TIER") & "-" & rst("TIER") & " " & Format(Date, "dd.mm.yyyy") & ".pdf"

Message d'erreur pour le module "PRINT_EN_PDF":



J'ai essayé différentes choses y compris de mettre le chemin directement dans le module "PRINT_EN_PDF" mais cela ne fonctionne pas non plus.


PS: j'ai volontairement commenté la ligne suivante car j'ai remarqué avec "l'info express" que cela me transformait: "C:\Bureau\Test\" en "C_\Bureau\Test\"

Code :

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

strFichierPDF = Replace(Replace(strFichierPDF, "/", "_"), ":", "_")

La dernière version de mon fichier Access est en annexe.

Merci pour votre aide !

[tee_grandbois]

"C:\Bureau\Test\" est-ce bien un chemin correct ?
en général le chemin de Bureau est : C:\Users\NomDeLUtilisateur\Desktop
il faut regarder dans les propriétés du dossier Test le chemin réel

PS: j'ai volontairement commenté la ligne suivante car j'ai remarqué avec "l'info express" que cela me transformait: "C:\Bureau\Test\" en "C_\Bureau\Test\"

oui, il faut l'enlever ce code