Discussion :

[Leilou65]

Bonjour,

Je sollicite votre aide pour résoudre un problème que je ne comprends pas. Tout d'abord la macro permet de récupérer toutes les feuilles 1 des classeurs présents dans un dossier et ensuite de centraliser seulement les lignes colorées dans la feuille "Recap".
Mon problème est le suivant : quand je test la macro dans un dossier présent sur mon bureau il n'y a aucun problème, elle fonctionne correctement. Par contre, quand je lance la macro dans un dossier sur le serveur plus rien ne marche et je ne comprends pas.

Voici le code :

Code :

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
35
36
37
38
39
40
41
42
Sub consolide()
 
Application.ScreenUpdating = False
 
 Dim sh As Worksheet
 Dim Lig As Long
 
  ChDir ActiveWorkbook.Path
  Set classeurMaitre = ActiveWorkbook
 
  compteur = 1
  nf = Dir("*.xls")
  Do While nf <> ""
    If nf <> classeurMaitre.Name Then
      Workbooks.Open Filename:=nf
        Sheets(1).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
        classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = "Page" & compteur
        compteur = compteur + 1
      Workbooks(nf).Close False
    End If
    nf = Dir
  Loop
 
  For Each sh In Worksheets
    If sh.Name <> "Recap" Then
        For Lig = 10000 To 1 Step -1
            If sh.Range("A" & Lig).Interior.ColorIndex = xlNone Then
                sh.Rows(Lig).Delete shift:=xlUp
            End If
        Next Lig
    End If
  Next sh
 
    For Each sh In Worksheets
        If sh.Name <> "Recap" Then
            sh.[A1].Resize(sh.[A65536].End(xlUp).Row, 8).Copy Destination:=Worksheets("Recap").[A65536].End(xlUp).Offset(1, 0)
        End If
    Next sh
 
Application.ScreenUpdating = False
 
End Sub

Merci pour votre aide.

Loumi.

[mjpmjp]

bonjour,

ChDir ActiveWorkbook.Path --> c'est ok ?

@+JP

[Leilou65]

Oui le classeur est bien présent dans le dossier.
En fait le problème vient de la ligne 12 :

Code :

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

nf = Dir("*.xls")

Il ne renvoie pas le bon nom du classeur mais je ne sais pas pourquoi.

[mjpmjp]

bonjour,

on est d'accord que "Dir" est le problème

comme tu es sur serveur, ChDir ActiveWorkbook.Path te positionne bien dans le dossier ?

en "dur", j'utilise sPath = ThisWorkbook.Path & "\" est ce que "\" est manquant ?

nf = Dir("\*.xls") ?


lien vers discussion : pas besoin de changer de répertoire ou de lecteur réseau!

La fonction ChDir change le répertoire par défaut, mais pas le lecteur par défaut. Par exemple, si le lecteur par défaut est C, l'instruction suivante change le répertoire par défaut sur le lecteur D, mais C reste le lecteur par défaut :

Code :

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

1
2
 
ChDir("D:\TMP")

@+JP

[Leilou65]

Merci JP j'ai regardé l a discussion vers laquelle tu m'a renvoyé et j'ai modifié :

Code :

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

1
2
3
 Chemin = ActiveWorkbook.Path
ChDir Chemin
nf = Dir(Chemin & "\*.xls")

Mais il y a un problème l'exécution de la macro me renvoi un message d'erreur 1004 avec le texte suivant : "01122016.xls introuvable vérifiez l'orthographe du nom du classeur et la validité de l'emplacement."

j'ai donc affiché la fenêtre des variables locales pour voir si le chemin est le bon et tout est correct je ne comprends pas le problème.

p.s. le bug se situe au niveau de cette ligne

Code :

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

Workbooks.Open Filename:=nf

[mjpmjp]

bonjour,

et nf ?

FullPath=Chemin & "\" & nf --> verif si nf avec .xls

Workbooks.Open Filename:=FullPath

@+JP

[Leilou65]

Bonjour,

Le FullPath est parfait mon fichier s'ouvre et la copie se fait correctement par contre c'est au niveau de la fermeture qu'il y a un problème.
J'ai l'erreur d'exécution 9 "l'indice n'appartient pas à la sélection".

Voici la ligne où se trouve le problème :

Code :

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

Workbooks(nf).Close False

Merci à toi.

[mjpmjp]

bonjour,
c'est le même problème, nf c'est un bon gros gâteau au chocolat, tu sais qu'il existe , mais où ?....

pour le manger il faut aller à Chemin & "\",.... bonne dégustation ...!!!

@+JP

[Leilou65]

j'adore cette image du bon gros gâteau. Ok donc je vais éviter d'utiliser nf mais FullPath.

[mjpmjp]

bonjour,

FullPath c'est une variable que tu peux nommer comme tu veux,

tu peux écrire : CheminAvecFichier =Chemin & "\" & nf

c'est juste une précision (au cas ou...)

si c'est ok clique sur "resolu"
@+JP