Discussion :

[theocbr]

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

[Menhir]

Quelle est la ligne de code désignée par le débugage ?

Est-ce normal que dans ton Dir il n'y ait pas de \ entre Dossier et le nom de fichier ?

[theocbr]

C'est la première fois que j'utilise VBA, j'ai pas de ligne indiqué sur le message d'erreur

[Menhir]

Supprime le On Error GoTo Erreur et VBA t'indiquera où se produit l'erreur.
De toute façon, il n'a rien à faire dans un code en cours de débugage.
Mettre ce type d'instruction dans un code qui n'est pas stable, c'est comme essayer de réparer un moteur les yeux bandés.

Tu n'as pas répondu à la seconde question.

[theocbr]

Pour la deuxième question, je t'ai dis que je connaissais rien en VBA donc je sais pas du tout.

J'ai enlevé le bout de code et toujours pas la ligne où se trouve l'erreur :

[Menhir]

Commence par corriger l'erreur que je t'ai signalée dès mon premier message : Dans un chemin de répertoires et fichier, chaque élément doit être séparé par un "\".
Actuellement, tu as plusieurs lignes de code dans lesquelles tu as un chemin suivi d'un nom de fichier et rien entre les deux.

Ca n'est pas une erreur VBA, c'est l'OS. C'est la même chose pour une ouverture de fichier classique dans n'importe quel logiciel.