Discussion :

[gwems]

bonjour , je souhaite chaque jour crée un fichier comprenant la date du jour
affin d y stoqué les commandes effectuer ce jour la

j ai tester ceci mais ca n' est pas vrmt ca

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
If Len(Dir("C:\Users\guillaume\Desktop\TEI présentation\backup\commande\" & date, vbDirectory)) = 0 Then
   MkDir "C:\Users\guillaume\Desktop\TEI présentation\backup\commande\"& date
End If
End Sub

de plus j aimeré exporter une table access vers une page exel j ' ai reussi a ouvrir un fichier exel ( d apres les tuto) mais je n' arrive pas a faire l export...

[Yvan49]

Bonjour,

Pour la création du dossier essai de remplacer la variable Date par ceci:

Code :

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

Format(Date, "yyyymmdd")

Sinon pour le transfert vers excel as tu essayé le commande:

Code :

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

DoCmd.TransferSpreadsheet

A+

[helas]

par exemple

Code :

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

1
2
3
4
 
repertoire = "C:\Users\guillaume\Desktop\TEI présentation\backup\commande\"
fichier = "NomFichier_" & format$(now,"yymmdd") & ".xls"
DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9,"NomTable",repertoire & fichier ,true

L'année, le mois et le jour sont dans cet ordre pour une raison de tri croissant des dates
On peut tester si le fichier existe déjà avec un Dir