Bonjour,
Voilà mon code :
Sub Export_Donnée_Excel_Access()
'permet de controler la ligne où le fichier s'arrete
Sheets("Film").Select
Range("B2").Select
'Défini ma base access et mon fichier excel
Dim MaBase As Object
Dim Fichier As String
Set MaBase = GetObject("C:\Users\Guillaume\Desktop\VBA\Projet Cinéma\ProjetCinema.accdb")
Fichier = ActiveWorkbook.FullName
CurrentDb.Execute "Delete From Film"
CurrentDb.Execute "Delete From Cinema"
On Error GoTo Error_Export:
MaBase.DoCmd.TransferSpreadsheet acImport, 8, "Film", "C:\Users\Guillaume\Desktop\VBA\Projet Cinéma\Formulaire Excel.xlsm", True, "Film!B1:C50"
MaBase.DoCmd.TransferSpreadsheet acImport, 8, "Cinema", "C:\Users\Guillaume\Desktop\VBA\Projet Cinéma\Formulaire Excel.xlsm", True, "Cinema!B1:F50"
MaBase.DoCmd.TransferSpreadsheet acImport, 8, "Arrondissement", "C:\Users\Guillaume\Desktop\VBA\Projet Cinéma\Formulaire Excel.xlsm", True, "Arrondissement!B150"
'dans mon cas j'exporte de la cellule ... à ...
MsgBox "Exportation des données est effectuée correctement.", vbInformation, "Exportation": Exit Sub
DoCmd.Quit acSave
Sheets("Saisie").Activate
'MaBase = Nothing
Error_Export:
MsgBox "Attention, un problème est survenu pendant l'exportation, merci de vérifier les données.", vbExclamation, "ERREUR Exportation": Exit Sub
End Sub
J'ai deux problèmes :
- Le premier : (ligne en rouge) il me met le message d'erreur
- Le deuxième : (ligne en bleu) les commandes ne s'exécutent pas
Voilà mon code :
Sub Export_Donnée_Excel_Access()
'permet de controler la ligne où le fichier s'arrete
Sheets("Film").Select
Range("B2").Select
'Défini ma base access et mon fichier excel
Dim MaBase As Object
Dim Fichier As String
Set MaBase = GetObject("C:\Users\Guillaume\Desktop\VBA\Projet Cinéma\ProjetCinema.accdb")
Fichier = ActiveWorkbook.FullName
CurrentDb.Execute "Delete From Film"
CurrentDb.Execute "Delete From Cinema"
On Error GoTo Error_Export:
MaBase.DoCmd.TransferSpreadsheet acImport, 8, "Film", "C:\Users\Guillaume\Desktop\VBA\Projet Cinéma\Formulaire Excel.xlsm", True, "Film!B1:C50"
MaBase.DoCmd.TransferSpreadsheet acImport, 8, "Cinema", "C:\Users\Guillaume\Desktop\VBA\Projet Cinéma\Formulaire Excel.xlsm", True, "Cinema!B1:F50"
MaBase.DoCmd.TransferSpreadsheet acImport, 8, "Arrondissement", "C:\Users\Guillaume\Desktop\VBA\Projet Cinéma\Formulaire Excel.xlsm", True, "Arrondissement!B150"
'dans mon cas j'exporte de la cellule ... à ...
MsgBox "Exportation des données est effectuée correctement.", vbInformation, "Exportation": Exit Sub
DoCmd.Quit acSave
Sheets("Saisie").Activate
'MaBase = Nothing
Error_Export:
MsgBox "Attention, un problème est survenu pendant l'exportation, merci de vérifier les données.", vbExclamation, "ERREUR Exportation": Exit Sub
End Sub
J'ai deux problèmes :
- Le premier : (ligne en rouge) il me met le message d'erreur
- Le deuxième : (ligne en bleu) les commandes ne s'exécutent pas