VBA - Erreur d’exécution 1004

Question

J'utilise un code similaire sur ce même fichier Excel, mais à un onglet différent et avec un Bouton de Macro différent Ceci pour aller extraire des infos dans un fichier source La Macro précédente marche très bien, par contre ici je me retrouve avec une Erreur 1004 Je m'arrache les quelques cheveux qu'il me reste, en attendant qu'un œil neuf et averti vienne à mon secours Le code ci-dessous : Option Explicit Sub EXTRACT_X_DRCL_OVERVIEW() Dim cells As Range Dim DerLig As Long, DLig As Long Dim Wb As Workbook Dim Wss As Worksheet, Ws As Worksheet Dim chemin As String, fichier As String, Onglet2 As String Application.ScreenUpdating = False Range("A10:M50").ClearContents 'Selection du tableau "zone de données" et effacement des données initiales DerLig = 10 'A partir de la ligne 10 du tableau Extract X-DRCL OVERVIEW Set Ws = ThisWorkbook.ActiveSheet chemin = Range("D3").Value 'Fait référence ici à la cellule D3 du chemin complet vers le fichier source chemin = chemin & "\" 'Ajoute à ce chemin un "\" pour terminer le bon chemin Onglet2 = Range("K2").Value 'Fait référence ici à la cellule K2 pour l'onglet ciblé du fichier source fichier = Dir(chemin & "*.xls") 'Cherche le fichier Excel en .xls Do While fichier &lt;&gt; "" Set Wb = Workbooks.Open(Filename:=chemin & fichier) Set Wss = Wb.Sheets(Onglet2) DLig = Wss.cells(Rows.Count, 1).End(xlUp).Row Ws.cells(DerLig, 1).Resize(DLig - 1, 13).Value = Wss.Range("$A$8:$M$" & DLig).Value '*** ' Erreur d’exécution' 1004 ' : erreur définie par l’application ou par l’objet Wb.Close False Application.CutCopyMode = False DerLig = Ws.cells(Rows.Count, 1).End(xlUp).Row + 1 fichier = Dir ' Fichier suivant Loop End Sub...

3GB · Accepted Answer

Re Bernard,

Sur le code, je demande sur la ligne juste avant que dl soit affectée du max entre le résultat de la méthode end et la ligne 8. Donc, cela signifie que la dernière cellule vide en colonne 1 se trouve avant la ligne 8.

Il faut appliquer la méthode end sur une autre colonne (par exemple la colonne 2) qui ait des valeurs jusqu'à la ligne 40 :

dl = application.max(.cells(.Rows.Count, 2).End(xlUp).Row, 8)

Edit : Sinon, si il faut toujours récupérer la même plage (A8:M40), on se passe de la variable dl et on met ceci :

            with .Sheets(Onglet2)
                'dl = application.max(.cells(.Rows.Count, 1).End(xlUp).Row, 8)
                t = .Range("A8:M40").Value 'si toujours jusqu'à ligne 40
            end with

Cdlt,

h2so4 · Answer

Vérifie les valeur de Dlig et Derlig, (je soupçonne de Dlig ait la valeur 1), difficile de t'aider davantage sans ton fichier...

h2so4 · Answer

Dlig=0 cela me parait peu probable. dlig-1=0 ok. Sinon, je répète si tu veux de l'aide merci de mettre tes fichiers...

h2so4 · Answer

Je ne parviens pas à reproduire le problème chez moi. tout fonctionne correctement...

3GB · Answer

Bernard, pour poster du code, vous pouvez utiliser les balises &lt;/&gt; du ruban d'icônes , ça facilite la lecture et la copie. Je pense en général qu'il ne faut pas utiliser plus de variables que nécessaire : Il y a une boucle sur iLig qui va de piLigDeb à piLigFin. Or, piLigDeb n'est pas initialisée (sauf erreur de ma part). Voici une proposition de réorganisation de votre premier code (je l'avais faite hier en fait) : Sub EXTRACT() dim t Dim nvl&, dl& Dim chemin As String, fichier As String, Onglet2 As String Application.ScreenUpdating = False with ThisWorkbook.ActiveSheet .Range("A10:M50").ClearContents 'Selection du tableau "zone de données" et effacement des données initiales chemin = .Range("D3").Value & "\" 'Fait référence ici à la cellule D3 du chemin complet vers le fichier source Onglet2 = .Range("K2").Value 'Fait référence ici à la cellule K2 pour l'onglet ciblé du fichier source fichier = Dir(chemin & "*.xls*") 'Cherche le fichier Excel en .xls Do While fichier &lt;&gt; "" with Workbooks.Open(chemin & fichier) with .Sheets(Onglet2) dl = application.max(.cells(.Rows.Count, 1).End(xlUp).Row, 8) t = .Range("A8:M" & dl).Value end with .Close true end with nvl = .cells(.Rows.Count, 1).End(xlUp).Row + 1 .cells(nvl, 1).Resize(ubound(t), ubound(t, 2)).Value = t fichier = Dir ' Fichier suivant Loop end with application.screenupdating = true End Sub Par ailleurs, en cas de boucle while reposant sur la fonction Dir, il ne faut pas oublier la ligne fichier = dir avant le loop. Cdlt...

h2so4 · Answer

Piligdeb et piligfin ne sont pas initialisés et par défaut ont la valeur 0 tu as une répétition de set wss (la deuxième ne fonctionne correctement que si le classeur WB est actif (ce qui est normalement le cas) tu as un valuer qui traine (au lien de value)...