Discussion :

[lionel340]

Bonjour à vous tous

Je suis entrain de réaliser un programme avec Access 2010 et mes compétences hélas s’arrête aux macros j’aimerai savoir s’Il existe une formule pour créer un bouton qui me permettra d’enregistrer
Un état par exemple « etat1 » dans un autre dossier par exemple « C://documment ….. » et en même Temps me renommer automatiquement cet état avec la date du jour

J’espère avoir été assez clair je vous remercie de vos réponses

[marsouin_89]

Bonsoir,

Si tes compétences s'arrêtent aux macros, cela va devenir difficile pour toi.

Donc :
1° solution :
Prévoir un bouton pour ouvrir la fenêtre d'impression et imprimer le document en format *.pdf. Donc, l'utilisateur devra saisir en dur le nom du fichier et y inclure la date comme tu le souhaites.

2° solution :
Utiliser les API pour avoir la fenêtre Enregistrer sous, ou encore mieux la fenêtre de sélection de répertoire, et ensuite déclencher un code pour exporter en *.pdf.
Philip Lebans propose un excellent code pour çà et qui fonctionne très bien.
De ce fait, tu pourras, par le code, définir le nom du fichier *.pdf en sortie.

3° solution :
Faire un export vers Word.
Inconvénient, le format est en *.rtf et donc tu perds toute le mise en forme.

Cordialement

Christophe

[f-leb]

bonsoir,

il faut s’intéresser à la macro ExporterAvecMiseEnForme ou à son équivalent VBA DoCmd.OutputTo

[marsouin_89]

Bonsoir,

Au temps pour moi, j'avais oublié que depuis Office 2007, on peux générer des exports pdf.

Toutefois, n'est il pas nécessaire d'installer l'applicatif que Microsoft propose pour pouvoir faire cela ?

Cordialement

Christophe

[titi95]

Bonjour

Effectivement, à partir de 2007, l'export en Pdf est autonome et direct avec

Code :

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

DoCmd.OutputTo acOutputReport, NomEtat, acFormatPDF, CheminCompletFichier

Une Function qui te permet de dater automatiquement le nom du fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function DaterFichier(Chemin As String, Fichier As String, Extension As String)
    Dim CheminComplet As String, Num As Integer
    Dim oFSO As Scripting.FileSystemObject
    Set oFSO = New Scripting.FileSystemObject
    Num = 1
Plus:
    DaterFichier = Fichier & "-" & Mid(Now, 9, 2) & Mid(Now, 4, 2) & Left(Now, 2) & "-" & Num & "." & Extension
    CheminComplet = Chemin & "\" & DaterFichier
    If oFSO.FileExists(CheminComplet) Then
        Num = Num + 1
        GoTo Plus
    End If
End Function

titi95

[lionel340]

bonjour a tous

je vous remercie de vos réponses