Bonjour bonjour,
je souhaiterai répertorier des factures que j'ai répertorié dans un classeur vers une base de donnée à l'aide d'une macro VBA.
Mais voilà! Dès que je lance la macro le fameux message d'erreur propre au cas échant m'indique " Excel : Erreur '1004' : erreur définie par application ou objet
Naturellement je me suis renseigné avant et malgrés avoir vérifié chaque paramètre le problème persiste: HELP !
Nota: je souhaite aussi que tous les fichiers se mettent à la suite
Sub recup()
Dim chemin As String
Dim Fichier As String
Dim Factures As String
Application.ScreenUpdating = False
Range("A1").Select 'sélectionner la cellule de début
chemin = "C:\11'472\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(chemin & "*.xls") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=chemin & Fichier 'charge le classeur
Factures = ActiveWorkbook.Name 'récupère le nom du classeur actif
' Windows(Factures).Activate 'active un classeur
Workbooks(Factures).Worksheets(1).Range("A2:C5").Select
Workbooks(Factures).Worksheets(1).Range("A2:C5").Copy 'copie
Workbooks("classeur_steph").Activate
Application.CutCopyMode = False
Workbooks("classeur_steph").Worksheets(2).Select
ActiveSheet.Paste ' ---------------------------------> LIGNE MESSAGE D'ERREUR
Range("A65536").End(xlUp).Offset(0, 0).Select
Workbooks(Factures).Close savechanges:=False
Fichier = Dir ' Fichier suivant
Loop
End Sub