Discussion :

[Kaera]

Bonjour à tous !

Le classeur contenant ma macro (.xlsm) est situé dans un dossier, ce dossier contient un nombre variable de classeurs (.xlsm aussi) que la macro ouvre afin d'en extraire des données.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
' Principal = Thisworkbook
Do While fichier <> "" And fichier <> Principal.Name
        Workbooks.Open (repertoire & fichier)
            For j = 1 To nbSpots
                With ActiveWorkbook.Sheets("Circularity")
                    ' mes actions
                End With
            Next
        ActiveWorkbook.Close savechanges:=False
        fichier = Dir
    Loop

Le problème, mais qui est logique, est qu'on sort de la boucle dès qu'on tombe sur le classeur Principal. (Et comme par hasard, on tombe sur ce classeur là en premier !)

Auriez-vous une solution ?

Merci d'avance !

[Guiiand]

Bonjour,

J'ai juste décalé ta condition dans un if interne à la boucle

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
Do While fichier <> ""
 
    If fichier <> Principal.Name Then
 
        Workbooks.Open (repertoire & fichier)
            For j = 1 To nbSpots
                With ActiveWorkbook.Sheets("Circularity")
                    ' mes actions
                End With
            Next
        ActiveWorkbook.Close savechanges:=False
        fichier = Dir
    End If
 
    Loop
End Sub

[Kaera]

Salut Guiiand et merci beaucoup pour ta réponse !
C'est d'une telle simplicité que je me sens bête de ne pas y avoir pensé

Par contre, ça me fait une boucle infinie et je ne comprends pas pourquoi !
J'ai exécuté pas à pas et la variable fichier conserve la même valeur !
Aurais-tu une idée ?

[patricktoulon]

Bonjour
peut être en ajoutant une variable boolean qui sera contrôlé a la fin de chaque boucle en meme temps que dir en changeant l'argument de fin de boucle (while/until)
-until=jusqu'a que
while=tant que
et encore je ne suis pas sur que avec until la variable soit encore nécessaire
ensuite l'argument est placer en fin de boucle ca evite un dernier tour pour rien qui peut générer une erreur

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
 
Sub test1()
Dim fin As Boolean
Do
 If fichier = Principal.Name Then fin = True
 
    If fichier <> Principal.Name Then
 
        Workbooks.Open (repertoire & fichier)
            For j = 1 To nbSpots
                With ActiveWorkbook.Sheets("Circularity")
                    ' mes actions
                End With
            Next
        ActiveWorkbook.Close savechanges:=False
        fichier = Dir
    End If
 
    Loop until fichier = "" And fin = True
End Sub

Au plaisir

[Kaera]

Bonsoir Patrick !

Merci pour ta réponse.
J'ai testé ta solution et même chose, fichier conserve la même valeur à chaque tour de la boucle.
J'ai pourtant 3 autres classeurs .xlsm dans le répertoire.


Je ne comprends pas, j'utilise pourtant le même procédé dans une autre macro qui, elle aussi, ouvre des fichiers (.csv ce coup-ci) du répertoire courant.

[Efgé2]

Bonjour à tous
Peut être comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim dossier As Object, fichier As Object
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path)
For Each fichier In dossier.Files
    If fichier.Name <> ThisWorkbook.Name Then
        Workbooks.Open (fichier)
        'etc
        ActiveWorkbook.Close savechanges:=False
    End If
Next fichier
End Sub

Cordialement

[Marc-L]

Bonsoir.

Seul le code est en cause !

Mais comment aider sans le voir ?

[patricktoulon]

re
tiens celui la fonctionne
j'ai adapté nbspot n'ayant pas de données a ce sujet

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
 
Sub essaie2()
Application.DisplayAlerts = False
'"C:\Users\Patrick\Desktop\essaie d'exel"
Dim fichier As String, repertoire As String, wbk1 As Workbook, wbk2 As Workbook
fichier = Dir("C:\Users\Patrick\Desktop\essaie d'exel\*.xls")
repertoire = "C:\Users\Patrick\Desktop\essaie d'exel\"
'boucle tant que le répertoire n'a pas été entièrement parcouru
Set wbk1 = ThisWorkbook
nbspot=10
Do
  If fichier <> wbk1.Name Then
 
     Set wbk2 = Workbooks.Open(repertoire & fichier)
        DoEvents
            For j = 1 To nbSpots
                With wbk2.Sheets("Circularity")
                    ' mes actions
                End With
            Next
        wbk2.Close 'savechanges:=False
  DoEvents
      End If
    fichier = Dir
Loop Until fichier = ""
 
End Sub

ca s'arrete bien apres le dernier

Au plaisir