Bonjour,

j'ai cette erreur : Erreur d'execution '424' : Objet Requis
Code VBA : 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
 
 
Sub Transfert()
 
Dim rep, Dossier, SIMAPROD As String
docmd.setwarnings False
'obtient le premier fichier ou répertoire qui est dans "c:"
Dossier = "C:\Users\Téléchargements"
rep = Dir(Dossier & "simaproddateschoisies.CSV", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
On Error GoTo Erreur
Do While (rep <> "")
'teste si c'est un fichier ou un répertoire
If (GetAttr(Dossier & rep) And vbDirectory) = vbDirectory Then
'MsgBox "Répertoire " & rep
Else
SIMAPROD = Left(rep, Len(rep) - 4)
'On attache le fichier trouvé
docmd.TransferText acLinkDelim, , SIMAPROD, Dossier & rep, True
'On Ajoute les données dans la table de destination
docmd.RunSQL "INSERT INTO BASE(ID , Timer, WEEK )SELECT ID,Timer, WEEKFROM [" & SIMAPROD & "];"
'On libère le fichier
docmd.DeleteObject acTable, SIMAPROD
End If
Suite:
'passe à l'élément suivant
rep = Dir
Loop
GoTo Fin
Erreur:
Fin:
docmd.setwarnings True
End Sub