Message d'erreur lors de l’exportation table access

**jawed** · 22/05/2020, 18h46

Bonjour a vous tous
J'ai cette macro qui procède à l'exportation de toutes mes tables Access vers un fichier Excel, le problème est qu'à chaque fois il m'affiche un message d'erreur

Impossible d'agrandir la plage nommée

Nom : Capture.PNG
Affichages : 298
Taille : 12,3 Ko

Une idée pour résoudre cette erreur
Cordialement

**EricDgn** · 26/05/2020, 17h11

Bonjour,

Peut-être une solution: vérifier l'existence du fichier avant l'export et s'il existe le supprimer.
Deux discussions sur ce sujet: A - B

Cordialement.

**jawed** · 26/05/2020, 20h40

Bonjour EricDgn
Merci pour les lien intéressant, maintenant je veux convertir ma macro en VBA
Alors j'ai cherché sur internet comment supprimer un fichier excel depuis Access et j'ai trouvé ce code

Code :

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

kill("c:\monfichier.txt")

Le problème après suppression je ne retrouve pas le fichier dans la corbeille pour une éventuelle restauration.
Cordialement

**tee_grandbois** · 26/05/2020, 20h47

bonsoir,
c'est dans la FAQ

**jawed** · 26/05/2020, 21h55

Bonsoir tee_grandbois
Merci pour le lien, j'ai insérer le code VBA dans un nouvelle module, mais je ne sais pas commet l'appeler depuis mon code, désolé cela est a cause de mon niveau faible en VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Commande3_Click()
If Dir("d:\BaseAccess.xls") <> "" Then
Kill ("d:\BaseAccess.xls")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Banque", "d:\BaseAccess.xls", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Bureau de poste", "d:\BaseAccess.xls", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Encaissements", "d:\BaseAccess.xls", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Encaissements Cheques", "d:\BaseAccess.xls", True
MsgBox "Fichier enregistré"
DoCmd.Quit
Else
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Banque", "d:\BaseAccess.xls", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Bureau de poste", "d:\BaseAccess.xls", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Encaissements", "d:\BaseAccess.xls", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Encaissements Cheques", "d:\BaseAccess.xls", True
MsgBox "Fichier enregistré"
DoCmd.Quit
End If
End Sub

Cordialement
A bientôt

**tee_grandbois** · 26/05/2020, 22h19

il y avait un exemple à la fin de la FAQ, tu remplaces

Code VBA :

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

Kill ("d:\BaseAccess.xls")

par

Code VBA :

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

1
2
3
4
If DansCorbeille("d:\BaseAccess.xls", Me.hwnd) = false Then
    MsgBox "Le fichier n'a pas pu être déplacé dans la corbeille"
    Exit sub
End If

Attention: DoCmd.Quit est une commande pour fermer Access: est-ce bien cela que tu souhaites faire ?
Sinon, pour quitter la procédure c'est Exit Sub pour une sub ou Exit Function pour une fonction.