Discussion :

[Massiliya]

Bonjour
je veux exporter une table Access nommée "Affûtage" dans un fichier excel en cliquant sur un bouton!!
J'ai écrit ce code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub archive_affutage_Click()
Dim Nom_fichier As String
         DoCmd.TransferSpreadsheet acExport, _
         acSpreadsheetTypeExcel9, _
         "Affûtage", _
        "Affûtage.xls", _
         True
         MsgBox "Fichier enregistré"
End Sub

ça me donne un fichier excel nommé "Affûtage"
En fait j'ai deux points où je me bloque!!!
1) Je veux que le nom du fichier excel soit variable c.à.d. par mois et an
ou bien on peut procéder autrement c.à.d. une fenêtre s'affiche et dans laquelle je fais entrer manuellement le nom du fichier excel !!
2) Le fichier excel est enregistré par défaut sur mon bureau!! je veux le mettre directement dans un dossier bien précis nommé "historique d'affûtage"
Y'a t-il quelqu'un qui sait comment faire?
Merci d'avance

[marot_r]

Bonjour.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub archive_affutage_Click()
Dim Nom_fichier As String
         DoCmd.TransferSpreadsheet acExport, _
         acSpreadsheetTypeExcel9, _
         "Affûtage", _
        "x:\TonChemain\historique d'affûtage\Affûtage_" & format(Now(), "yyyy\-mm\-dd hh\-nn\-ss" & ".xls", _
         True
         MsgBox "Fichier enregistré"
End Sub

À adapter à ta réalité.

A+

[Massiliya]

D'abord merci
Mais ça n'a pas marché!!

Code :

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

1
2
3
4
5
 DoCmd.TransferSpreadsheet acExport, _
         acSpreadsheetTypeExcel9, _
         "Affûtage", _
        "x:\\C:\Users\Haifa\Desktop\Application\Historique d'affûtage" & format(Now()), "yyyy\-mm\-dd hh\-nn\-ss" & ".xls", _
         True

J'ai un message d'erreur

(NB: le chemin est correct car j'ai fait un copier - coller )

[Massiliya]

Code :

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

1
2
3
4
5
 DoCmd.TransferSpreadsheet acExport, _
         acSpreadsheetTypeExcel9, _
         "Affûtage", _
        "C:\Users\Haifa\Desktop\Application\Historique d'affûtage" & Format(Now()) & ".xls", _
         True

Message d'erreur

[Massiliya]

J'ai procédé autrement et j'ai résolu le problème
Merci Marrot pour votre aide
Bonne journée