Bonsoir à tous ,
Est ce que quelqu'un a une idée de la méthode à adopter pour exclure le classeur contenant la macro d'une boucle qui ouvre tous les classeurs contenus dans un dossier ?
je pense qu'il faut mettre une condition if mais je ne sais pas ou la placer ni quelle formulation utiliser .....
un grand merci à celui qui m'orienteras ..
bonne soirée
Sub macro3()
Dim fso As Object, Dossier As Object, NomDossier, feuille As Worksheet
Dim pvtTable As Object
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = ChoisirDossier
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Workbooks.Open Filename:=File
For Each feuille In Worksheets
If feuille.Name Like ("*TCD RETARD*") Then
feuille.Activate
Range("D14").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=Sheets(2).ListObjects(1)
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
Next feuille
Next File
End If
End Sub
Est ce que quelqu'un a une idée de la méthode à adopter pour exclure le classeur contenant la macro d'une boucle qui ouvre tous les classeurs contenus dans un dossier ?
je pense qu'il faut mettre une condition if mais je ne sais pas ou la placer ni quelle formulation utiliser .....
un grand merci à celui qui m'orienteras ..
bonne soirée
Sub macro3()
Dim fso As Object, Dossier As Object, NomDossier, feuille As Worksheet
Dim pvtTable As Object
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = ChoisirDossier
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Workbooks.Open Filename:=File
For Each feuille In Worksheets
If feuille.Name Like ("*TCD RETARD*") Then
feuille.Activate
Range("D14").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=Sheets(2).ListObjects(1)
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
Next feuille
Next File
End If
End Sub