Bonjour,
J'avais récemment un souci d'export d'accès vers Excel, à savoir que je voulais qu'à la fermeture du fichier toutes les sheets soient éffacées.
Une proposition m'a été soumise que je trouve très pratique, cependant, ce classeur me sert à exporter d'access ... Une fois exporté je voudrais donner la possibilité aux utilisateurs de sauvegarder le résultat du query ou non.
Mais quand je fais, sauvegarder sous, le code est sauvé avec et forcément étant donné que je renomme le classeur j'ai un message d'erreur car le code est sauvé aussi ... Comment pourrais-je supprimer ce code dans le fichier sauvegardé????
Donc pour résumé lol
Access ==> Export vers fichier A (contenant le code) ==> Sauvegarder sous ==> Fichier B (contenant ce qui se trouve dans le fichier A == > Mais sans le code du fichier A ...
Voici le code que l'on m'a donné:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Not Sheets(i).Name = "sheet d'accueil" Then Sheets(i).Delete
Next i
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Admin\Bureau\Classeur2.xls"
Application.DisplayAlerts = True
End Sub
Merci et Bàv
Ebl
J'avais récemment un souci d'export d'accès vers Excel, à savoir que je voulais qu'à la fermeture du fichier toutes les sheets soient éffacées.
Une proposition m'a été soumise que je trouve très pratique, cependant, ce classeur me sert à exporter d'access ... Une fois exporté je voudrais donner la possibilité aux utilisateurs de sauvegarder le résultat du query ou non.
Mais quand je fais, sauvegarder sous, le code est sauvé avec et forcément étant donné que je renomme le classeur j'ai un message d'erreur car le code est sauvé aussi ... Comment pourrais-je supprimer ce code dans le fichier sauvegardé????
Donc pour résumé lol
Access ==> Export vers fichier A (contenant le code) ==> Sauvegarder sous ==> Fichier B (contenant ce qui se trouve dans le fichier A == > Mais sans le code du fichier A ...
Voici le code que l'on m'a donné:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Not Sheets(i).Name = "sheet d'accueil" Then Sheets(i).Delete
Next i
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Admin\Bureau\Classeur2.xls"
Application.DisplayAlerts = True
End Sub
Merci et Bàv
Ebl