Problème d'exécution VBA

Version imprimable

Bonjour,

j'ai cette erreur : Erreur d'execution '424' : Objet Requis

Code:

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

03/02/2020, 13h41
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 ?
03/02/2020, 13h59
theocbr

C'est la première fois que j'utilise VBA, j'ai pas de ligne indiqué sur le message d'erreur
03/02/2020, 16h07
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.
04/02/2020, 08h14
theocbr

1 pièce(s) jointe(s)

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 :
Pièce jointe 535803
04/02/2020, 08h32
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.
04/02/2020, 08h38
theocbr

Citation:

Envoyé par 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 "\".

Mais c'est fait déjà, je comprends pas Dossier = "C:\Users\thcarbonnier\Téléchargements"

Citation:

Envoyé par Menhir

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.

Donc comment faire pour régler cela ?
04/02/2020, 09h46
Menhir
J'ai parlé de séparateur entre le chemin et le fichier.

Quand tu écris :
Code:

1 2 Dossier = "C:\Users\Téléchargements" rep = Dir(Dossier & "simaproddateschoisies.CSV", vbDirectory)
As-tu l'impression qu'il y a un séparateur entre le chemin (contenu par la variable "Dossier") et le nom de fichier "simaproddateschoisies.CSV" ?

L'erreur est aussi présente dans le If qui suit.

Je ne comprends d'ailleurs pas le contenu de ce If. Dans la condition, tu mets un opérateur And entre deux expression non booléennes et tu compares le résultat à une valeur elle-même non booléenne. Pour moi, ça n'a pas de sens.
04/02/2020, 10h13
theocbr

Je crois que t'as toujours pas compris que j'y connais rien en VBA , j'ai pris un code sur internet, mais laisse tomber , j'ai trouver une meilleure méthode ,merci pour ton aide tout de même