Discussion :

[yaya.gaga]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SfJ5Rpw8]

bonsoir,

aucun message n'accompagne ce surlignement en jaune ?

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

[yaya.gaga]

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é."

[SfJ5Rpw8]

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

affiche le par un msbox par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox rep_FichierTest & "\" & fichier

[Marc-L]

Bonjour.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[yaya.gaga]

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.

[SfJ5Rpw8]

...oui je l'ai fait.

quoi? vérifié que ton fichier existe ?

[yaya.gaga]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SfJ5Rpw8]

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