Discussion :

[locweb]

Bonjour,
j'édite des états, et je souhaiterai qu'ils soient nommés en fonction d'un titre général, puis de deux champs, pour pouvoir les exporter ensuite en pdf.
Par exemple, l'état s'appelle bilan d'équilibre, je souhaiterai qu'il sorte sous l'appellation bilan d'équilibre_Richard_N°02, avec comme valeur du champ associés NOM: Richard, et valeur du champ N° Bilan : 02

Merci d'avance

[loufab]

Bonjour,

Soit faire une copie de l'objet état avec le nouveau nom avant l'impression PDF, soit renommer le PDF une fois créé.


Cordialement,

[locweb]

Bonjour,
manuellement je sais faire, ce qui m'intèresse, c'est que cela se fasse automatiquement, par exemple, je suis dans le formulaire "bilan d'équilibre", et lorsque j'ai terminé le bilan d'une personne, imprimer ce formulaire en pdf, avec le nom de la personne et le N° du bilan intégré au nom du fichier, ce qui permet une identification et classement plus aisé.

Code :

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

1
2
3
4
5
6
7
8
  DoCmd.RunCommand acCmdRefresh
Beep
    If MsgBox("Voulez-vous envoyer ce formulaire à JCR ?", vbYesNo, "ENVOI ETAT") = vbYes Then
        DoCmd.OutputTo acOutputReport, "E BILAN CHEOPS", acFormatRTF, "d:\bilanequilibrertf"
        DoCmd.OutputTo acOutputReport, "E BILAN CHEOPS", acFormatXLS, "d:\bilanequilibrexls"
        strSujet = "Bilan d'équilibre."
        strBody = "Bonjour, ci-joint un bilan PHYSIO cheops. "
        strBody = strBody & "Pour l'ouvrir, sélectionner le fichier joint, click droit de la souris et choisir ouvrir. NB Si vous reçevez plusieurs messages, seul le dernier doit être pris en considération."

Pour l'instant je le crée en rtf et en xls, et dle stocke sur D, il me semble qu'il faut juste modifier la ligne de code "d:\bilanequilibrertf"

Merci de votre aide.

[loufab]

Pour la copie de fichier il y a l'instruction VBA suivante :

Code :

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

FileCopy source, destination

Pour l'impression PDF tout dépend de ton générateur PDF.

Il y a un excellent tuto sur la génération de PDF à partir de PDFCreator.

Cordialement,

[locweb]

Bonjour,
Merci pour le tuto.
Mon problème principal n'est pas la génération des pdf, c'est de nommer automatiquement l'état en fonction de deux champs, je connais assez bien access, mais je suis nul en sql.

[Jeannot45]

Bonjour,

En utilisant des variables. Tu connais le nom et la N) du Bilan via le Formulaire. Dans ton instruction, tu fais une concaténation des infos du style :

Code :

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

1
2
3
4
5
6
        DoCmd.OutputTo acOutputReport, "E BILAN CHEOPS", acFormatRTF, "d:\bilanequilibrertf" & VarMonNom & " - N° " & VarNumBilan

        DoCmd.OutputTo acOutputReport, "E BILAN CHEOPS", acFormatXLS, "d:\bilanequilibrexls" & VarMonNom & " - N° " & VarNumBilan
strSujet = "Bilan d'équilibre."
        strBody = "Bonjour, ci-joint un bilan PHYSIO cheops. "
        strBody = strBody & "Pour l'ouvrir, sélectionner le fichier joint, click droit de la souris et choisir ouvrir. NB Si vous reçevez plusieurs messages, seul le dernier doit être pris en considération."

[locweb]

Bonjour,
Merci pour le coup de main.
Voici mon code, quand j'envois la commande, il copie sur D les 2 états au format xls et rtf, (bilanequilibrertf - N°) et (bilanequilibrerxls - N°) mais n'ajoute pas le nom et le numéro, il doit probablement manquer quelque chose.
la ligne qui doit envoyer le mail plante aussi avec une erreur de syntaxe.
Les champs sont (NOM) et (BCHEOPSNUMERO)
Faut-il aussi désigner la table (T BILAN CHEOPS )?

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 Commande250_Click()
DoCmd.RunCommand acCmdRefresh
Beep
    If MsgBox("Voulez-vous envoyer ce formulaire à JCR ?", vbYesNo, "ENVOI ETAT") = vbYes Then
        DoCmd.OutputTo acOutputReport, "E BILAN CHEOPS", acFormatRTF, "d:\bilanequilibrertf" & VarNOM & " - N° " & VarBCHEOPSNUMERO
        DoCmd.OutputTo acOutputReport, "E BILAN CHEOPS", acFormatXLS, "d:\bilanequilibrexls" & VarNOM & " - N° " & VarBCHEOPSNUMERO
        strSujet = "Bilan d'équilibre."
        strBody = "Bonjour, ci-joint un bilan PHYSIO cheops. "
        strBody = strBody & "Pour l'ouvrir, sélectionner le fichier joint, click droit de la souris et choisir ouvrir. NB Si vous reçevez plusieurs messages, seul le dernier doit être pris en considération."
'lngRet = SendAttachMail("CHEOPS", "Jean-Christophe.Richard@hcuge.ch", strSujet, strBody, "d:\bilanequilibrertf & VarNOM & " - N° " & VarBCHEOPSNUMERO |d:\bilanequilibrexls" & VarNOM & " - N° " & VarBCHEOPSNUMERO)
    End If
 
    DoCmd.Close A_FORM, "F BILAN CHEOPS"
 
Exit_Commande250_Click:
    Exit Sub
 
Err_Commande250_Click:
    MsgBox err.Description
    Resume Exit_Commande250_Click
 
 
End Sub

Cordialement.

[locweb]

Bonjour,
il semble que cela ne marche pas parce que le contenu du champ n'est pas défini comme variable, quelle est la syntaxe pour définir ces variables NOM et NUMEROBILAN, avec le contenu pris dans l'état prêt à êrtre imprimé.

Merci

[locweb]

Problème résolu dans le post suivant:

http://www.developpez.net/forums/sho...d.php?t=487528

Merci à Francishop