Discussion :

[mahrezs]

Bonjour,
Je travaille sur une base de gestion et d’édition des résultats d’un laboratoire d’analyses médicales.
Je veux :
• Editer l’état en format PDF : ( E_RESULTATS ) ;
• Archiver cet état produit en PDF dans un dossier : ( C:\Archives_Labo ) ;
• Inscrire cet état produit en PDF dans la base : Table : ( T_Bilans ) , Champs : ( Bilan_Num )

J’ai créé un bouton sur le formulaire et voilà 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
Private Sub Commande49_Click()
Dim fichier As String
Dim base As Database: Dim requete As String
fichier = Application.CurrentProject.Path & "\ C:\Archives_Labo\Bilann_" & NBilan.Value & ".pdf"
DoCmd.OutputTo acOutputReport, "E_Resultats", acFormatPDF, fichier, False
Set base = Application.CurrentDb
 
requete = "UPDATE T_Bilans SET Bilan_Num = 'Bilann_" & N_Bilan.Value & ".pdf' WHERE N_Bilan=" & N_Bilan.Value
 
base.Execute requete
 
base.Close
 
Set base = Nothing
 
End Sub

Le code ne fonctionne pas !
Une solution svp
merci

[tee_grandbois]

bonjour,

Archiver cet état produit en PDF dans un dossier : ( C:\Archives_Labo )

alors pourquoi mettre : Application.CurrentProject.Path & "\ dans le chemin du fichier ?

Code :

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

fichier = "C:\Archives_Labo\Bilann_" & NBilan.Value & ".pdf

[mahrezs]

ça fonctionne pas toujours

[tee_grandbois]

et quel est le message d'erreur ? (puisqu'il faut le demander )

[mahrezs]

MERCI POUR VOTRE AIDE.

Avec une petite modification j'arrive à produire un état en PDF et à l'injecter dans le dossier: Archives_labo.

il reste à Inscrire cet état produit en PDF dans la base : Table : ( T_Bilans ) , Champs : ( Bilan_Num ).

voila 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
Dim fichier As String
Dim base As Database: Dim requete As String
fichier = "C:\Users\hp\Documents\Archives_labo\Bilann_" & NBilan.Value & ".pdf"
DoCmd.OutputTo acOutputReport, "E_Resultats", acFormatPDF, fichier, False
Set base = Application.CurrentDb
 
requete = "UPDATE T_Bilans SET Bilan_Num = 'Bilann_" & N_Bilan.Value & ".pdf' WHERE N_Bilan=" & N_Bilan.Value
 
base.Execute requete
 
base.Close
 
Set base = Nothing
 
End Sub

ca fonctionne à moitie,
merci

[tee_grandbois]

la variable NBilan.Value contient un underscore dans la requête UPDATE

[mahrezs]

Bonjour et encore merci pour votre aide.
Maintenant ça fonctionne très bien, j'arrive à produire des états en format PDF, à les injecter sur le dossier et sur la base aussi.
Là je veux aller plus loin, je veux envoyer au patient par courrier électronique, une copie du compte rendu d’analyses format PDF.

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
Dim fichier As String
Dim base As Database: Dim requete As String
Dim client_msg As New Outlook.Application
Dim message As Outlook.MailItem
Dim adresse As String: Dim ligne As Recordset
fichier = "C:\Users\hp\Documents\Archives_labo\Bilann_" & NBilan.Value & ".pdf"
DoCmd.OutputTo acOutputReport, "E_Resultats", acFormatPDF, fichier, False
Set base = Application.CurrentDb
requete = "UPDATE T_Bilans SET Bilan_Num = 'Bilann_" & NBilan.Value & ".pdf' WHERE NBilan=" & NBilan.Value
base.Execute requete
Set ligne = base.OpenRecordset("SELECT Email FROM T_Patients WHERE NPatient=" & NPatient.Value, dbOpenDynaset)
ligne.MoveFirst
adresse = ligne.Fields("Email").Value
ligne.Close
base.Close
Set ligne = Nothing
Set base = Nothing
If (adresse <> "") Then
 
   If (MsgBox("Joindre la facture par courrier électronique", vbYesNo) = 6) Then
 
         Set message = client_msg.CreateItem(olMailItem)
With message
.Recipients.Add adresse
.Subject = "Votre facture"
.Body = "Cher client, veuillez trouver votre facture en pièce jointe"
.Attachments.Add fichier
.Send
End With
 
End If
End If
 
End Sub

encore cette fois je bloque,
une solution svp

[tee_grandbois]

.Recipients.Add adresse pour moi, l'instruction en erreur est correcte
sinon il y a aussi:
.To adresse
mais est-ce que l'adresse mail est conforme ?

[mahrezs]

oui l'adresse mail est conforme

[mahrezs]

Bonjour,
merci pour votre répone, finalement c'est la synthaxe qui fonctionne.
j'avance finalement, maintenant le code appelle outlook.
je travaille sur office 10 et j'arrive pas à configurer mon compte de mesagerie outlook avec outlook 2010 !!!!
une idée sur ça ?
merci beaucoup

[tee_grandbois]

bonsoir,

finalement c'est la synthaxe qui fonctionne.

tu veux dire que cela fonctionne avec .To ? oui, sauf que j'avais oublié le =, désolé

je travaille sur office 10 et j'arrive pas à configurer mon compte de mesagerie outlook avec outlook 2010 !!!!

il faudrait voir dans le forum Outlook

[mahrezs]

Merci beaucoup