Discussion :

[karyo]

Bonjour à tous,
J'ai une macro, le seul endroit où je big est sur le début (la ou je dois la lancer) Je m'explique :
Je souhaite que la macro s'applique à un ensemble de fichier se trouvant dans des sous dossiers
exemple c:\dossiera\dossierb\dossierc\sousdossier 1
c:\dossiera\dossierb\dossierc\sousdossier 2 etc

Comment puis je dire à la macro de ne se lancer que dans les sous dossuers du dossierc?

Merci pour votre aide

[jfontaine]

Bonjour,

Le code ci dessous boucle sur tous les sous-dossiers

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim fso As Object
Dim FsoRepertoire As Object
Dim FsoSubFolder As Object
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
Set FsoRepertoire = fso.GetFolder("c:\dossiera\dossierb\dossierc")
 
For Each FsoSubFolder In FsoRepertoire.SubFolders
    MsgBox FsoSubFolder .Name
Next

[karyo]

Bonjour.
MErci pour ton aide.
Maintenant, quand je lance ma macro il n'y a pas de bug mais elle ne fait pas ce que je souhaite.. j'ai du louper un truc.
Puis je te la montrer? (elle est relativement courte)

Merci

[jfontaine]

oui, ajoutes ton code

[karyo]

Bonjour,

J’ai vraiment essayé de la faire par moi-même, mais mes connaissances en macro m’en ont empeche.
En fait, je cherche à faire une macro relativement simple qui puisse faire les étapes suivantes
1/ Dans un ensemble de sous dossier, les ouvrir.
2/ Aller dans chaque onglet
3/ Si en cellule A1, vous trouvez la valeur « machin », alors faites l’opération suivante
Selectionner les colonnes A à D et les copier en F à G en gardant les formules de calcul et les liens et la mise en forme.

Mon code ci-dessous ne me le permet pas.

Merci d’avance pour votre aide

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
Sub Macro2()
    Dim fso As Object
Dim FsoRepertoire As Object
Dim FsoSubFolder As Object
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
Set FsoRepertoire = fso.GetFolder("C:\Document\dossiera\")
 
For Each FsoSubFolder In FsoRepertoire.SubFolders
 
 
Next
              Worksheets.Select
              If Range("A1").Value = "machin" Then
             copyRange("A:D") = Range("F:G")
 
              End If
 
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs
            Application.DisplayAlerts = True
            ActiveWorkbook.Close False
End Sub

End Sub

Bonjour,

J'ai une question
Pour que ca ne bug pas (en allant chercher à copier des lignes), puis je mettrre une limitation comme

Code :

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

While ligne < 300

Merci pour votre aide