Discussion :

[zougna]

J'exporte le contenu d'une table vers un document excel.
Pour cela, j'ai un formulaire qui demande d'abord la saisie de certains champs.
Comment faire pour enregistrer le document excel sous un nom reprenant le contenu d'un ou plusieurs champs, par exemple la date ?

[bruno28]

Bonjour.

J'ai fait ce qui suit dans un précédent projet.
Regarde si ca peut t'aider

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
 
On Error GoTo Err_NomFichier
        Beep
        If MsgBox("Avez-vous imprimé le 'Taux de Service'? Il ne sera plus possible de le faire après l'archivage.", vbOKCancel + vbQuestion + vbDefaultButton2, "Archivage - Avertissement") = vbOK Then
            DoCmd.SetWarnings False
            Dim Invite, NomComplet
            Invite = "Saisissez le nom du fichier au format suivant : 102004 pour archiver novembre 2004"
            NomComplet = InputBox$(Invite)
       '     DoCmd.TransferSpreadsheet acExport, 8, "Archivage", "C:\Documents and Settings\hh\Mes documents\" & NomComplet, True, ""
            DoCmd.TransferSpreadsheet acExport, 8, "Archivage", "C:\Documents and Settings\hh\Sauvegardes\" & NomComplet, True, ""
            DoCmd.OpenQuery "Archivage-Suppression", acNormal, acEdit
        Else
        'Ne fait Rien
        End If
Exit_NomFichier:
    Exit Sub
Err_NomFichier:
        Beep
        MsgBox "Nom incorrect. Veuillez renomer le fichier.", vbCritical, "Erreur de saisie"
    Resume Exit_NomFichier

Salutations

Bruno