Soucis VBA

Guiiggs

XLDnaute Nouveau
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!B1:D50"
'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
 

Discussions similaires

Statistiques des forums

Discussions
312 920
Messages
2 093 639
Membres
105 768
dernier inscrit
Luc Juvénal YAMBASSA