Ligne de code posant problème dans tous mes programmes

Bonjour,

Je suis débutante en VBA. Je m'en sors plutot pas mal dans le sens où souvent mes programmes fonctionnent. Cependant, souvent aussi, quand je relance mes macros, il y a une ligne qui est surlignée en jaune dans le débogage et c'est tout le temps quand je met Set wrk. Y a t-il quelque chose que j'oublie d'activer ou de déclarer?

Code:

---

1 2 3 4 5 6 7

Sub Importer_data() Const rep_FichierTest = "C:\Yaya\nzer1\PLANIF\Data\Test" Dim wrk As Workbook Dim fichier As String ... ... Set wrk = Application.Workbooks.Open(rep_FichierTest & "\" & fichier, ReadOnly:=True)

---

Merci d'avance.

bonsoir,

aucun message n'accompagne ce surlignement en jaune ?

tu est bien dans une fonction ou procédure ...(Sub ... function ...) ?

Oui, je suis bien dans un Sub. Quand je clique sur le bouton de la macro, le message suivant s'affiche : "Erreur d'exécution 1004 : La méthode 'Open' de l'objet 'Workbooks' a échoué." :weird:

ok , et tu fourni bien un bon nom de fichier à ta méthode open ...

affiche le par un msbox par exemple

Code:

---

msgbox rep_FichierTest & "\" & fichier

---

Bonjour.

Citation:

---

Envoyé par yaya.gaga

Y a t-il quelque chose que j'oublie d'activer ou de déclarer?

---

Non, rien … Tout simplement le fichier n'existe pas !
Le B-A-BA est de vérifier le contenu de la fenêtre des Variables locales …

Code:

---

1 2 3 4 5 6

Sub Test() Const rep_FichierTest$ = "C:\Yaya\nzer1\PLANIF\Data\Test\" Fichier$ = rep_FichierTest & "classeur.xlsx" If Dir(Fichier) = "" Then Beep: Exit Sub Workbooks.Open Fichier, , True End Sub

---

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Désolé mais je l'avais indiqué plus haut, en fait j'ai remplacé cette ligne par "..." car je ne voulais pas taper tout mon code mais oui je l'ai fait.

Citation:

---

Envoyé par yaya.gaga

...oui je l'ai fait.

---

quoi? vérifié que ton fichier existe ?

Oui, j'ai vérifié si le fichier existé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Db(1 To 1000, 1 To 10) As Variant i = premiere_ligne: n = 0: old_n = 0 While ThisWorkbook.Sheets("Filelist").Cells(i, Filelist_Col_Fichier).Value <> "" If ThisWorkbook.Sheets("Filelist").Cells(i, Filelist_Col_Statut_Fichier).Value = "Nouveau fichier" Then fichier = ThisWorkbook.Sheets("Filelist").Cells(i, Filelist_Col_Fichier).Value 'Application.ScreenUpdating = False Application.EnableEvents = False Set wrk = Application.Workbooks.Open(rep_FdP & "\" & fichier, ReadOnly:=True) Application.EnableEvents = True Application.ScreenUpdating = True

---

Voilà ce qui vient avant la ligne qui me pose problème alias le fameux set wrk. Le code continue après ca, bien entendu.

Je ne vois pas le code avec lequel tu vérifie l'existence du fichier?