Discussion :

[LiliAlex1005]

Bonjour à tous,
Je souhaite exporter une requête Access dans excel en y ajoutant la date dans le nom du fichier mais mon code vba ne fonctionne pas.
Pouvez-vous m'aider svp? Merci par avance.
Ci-après mon code :

Code :

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

1
2
3
4
Private Sub B_Export_Click()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "R_Globale_PourRecherche", "S:\Fraude\01_INCIDENTS\Suivi des affaires\Export Access\Extraction Access & Format(Date, "ddmmyyyy".xls"
MsgBox "Vous pouvez récupérer votre export sous S:\Fraude\01_INCIDENTS\Suivi des affaires\Export Access", vbInformation
End Sub

[User]

Bonjour et bienvenue,

Pouvez-vous poster votre code VBA en utilisant la balise de code ?

Cdlt

[User]

Avez-vous un message d'erreur ?
Il me semble que vous n'avez pas fermé les guillemets dans votre code :

Code :

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

1
2
3
4
Private Sub B_Export_Click()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "R_Globale_PourRecherche", "S:\Fraude\01_INCIDENTS\Suivi des affaires\Export Access\Extraction Access " & Format(Date, "ddmmyyyy") & ".xls"
MsgBox "Vous pouvez récupérer votre export sous S:\Fraude\01_INCIDENTS\Suivi des affaires\Export Access", vbInformation
End Sub

Je ne me souviens plus s'il y a besoin que le fichier existe ou pas au préalable , mais faites un test avec ce code.

[LiliAlex1005]

Merci beaucoup! ça fonctionne, j'avais en effet oublié les ""...

[User]

Merci beaucoup! ça fonctionne, j'avais en effet oublié les ""...

Tant mieux