Discussion :

[lineb]

J'utilise un formualire de saisie qui envoie par e-mail (format .snp) le résultat obtenu en cliquant sur bouton "Send".

Est-ce qu'il serait possible que le fichier créé par le rapport porte un nom différent à chaque fois au lieu de toujours avoir comme titre "Rapport d'objectifs".

Je pensais au numéro de dealer suivi de l'extension comme 691844.snp dans cet l'exemple.

Mon formulaire contient un champs indépendant en liste déroulante (txt_dealer_name_search) dont je dois sélectionner un numéro avant chaque envoit du rapport. C'est ce numéro sélectionné que j'aimerais avoir en titre de rapport.

Merci de votre aide

[seacat]

Bonjour,

je sugère de modifier la propriété légende (caption) de l'état à l'ouverture

quelquechose comme:

Code :

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

1
2
3
4
    DoCmd.OpenReport "NomEtat", acViewPreview
    With Report_NomEtat
        .Caption = NomVariable
    End With

cordialement

[lineb]

J'ai essayé mais j'obtiens une erreur.

Ma ligne de code est en ce moment (Private Sub cmdSend_Click())

Code :

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

DoCmd.SendObject acSendReport, "E_Objectives_P&A", acFormatSNP, "xx@.com", , , "Objectives Modifications for Dealer " & Me.Txt_dlr_number & ""

Comment dois-je intégrer ton code afin que j'obtienne comme fichier attaché le no de dealer (ex. 691844) en réusltat de pièces jointes 691844.snp


merci de me venir en aide car je ne suis pas une habituée du code vb. désolée

[seacat]

alors,


j'ai refait le test soigneusement et j'obtiens un resultat en mettant dans le formulaire un bouton, appelant les instructions:

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
Private Sub Commande0_Click()
 
 
      DoCmd.OpenReport "NomEtat", acViewPreview
      '--- ouverture en previsualisation importante, sinon impression directe sans prise en compte des changements
 
      With Reports![NomEtat]
        .Caption = Me.txt_dealer_name_search    '--- personnellement je verrais plutôt un "lst_DealerName.column(i)"
                                                '--- sinon tu risque d'avoir un n° d'index de table plutot que le nom
      End With
 
    DoCmd.Close , "NomEtat", acSaveNo
 
 
    DoCmd.SendObject acSendReport, "NomEtat", acFormatSNP, [To], [CC], [BCC], [Subject], [Text], 0
 
 
End Sub

essaie, ça devrait coller, sinon indiques l'erreur que tu rencontres

A+

[lineb]

Merci tout a bien fonctionné.

J'apprécie ton aide !