B
Benoit
Guest
Bonjour,
J'utilise le code suivant pour faire l'ouverture de fichiers en boucle...
Sub Consolidation()
'Déclaration des variables
Dim varNomFichier
Dim varNomClasseurConso
varNomClasseurConso = Sheets('Menu').Range('C9').Value
Dim CelluleCourante As Range
Dim CelluleSuivante As Range
'Détermine où sera la cellule courante
Set CelluleCourante = Sheets('Fichiers').Range('A1')
'Boucle : Cette boucle s'exécutera tant que la cellule courante ne sera pas vide
Do Until CelluleCourante.Value = ''
varNomFichier = CelluleCourante.Value
Set CelluleSuivante = CelluleCourante.Offset(1, 0)
Workbooks.Open Filename:='C:\\DOSSIERS\\BD Qualité\\' & varNomFichier
'Fermeture du fichier source
Workbooks(varNomFichier).Activate
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Set CelluleCourante = CelluleSuivante
Loop
Exit Sub
End Sub
Par contre, ces fichiers devront être protégé par mot de passe et c'est là que j'accroche pour gérer la variable 'mot de passe'... Le mot de passe sera différent pour chacun des fichiers mais pourra être indiqué dans le fichier 'consolidé', par exemple dans la feuille 'Fichiers' dans la cellule B de chaque nom de fichier.
Est-ce que qu'une âme charitable a un début de solution ???
J'utilise le code suivant pour faire l'ouverture de fichiers en boucle...
Sub Consolidation()
'Déclaration des variables
Dim varNomFichier
Dim varNomClasseurConso
varNomClasseurConso = Sheets('Menu').Range('C9').Value
Dim CelluleCourante As Range
Dim CelluleSuivante As Range
'Détermine où sera la cellule courante
Set CelluleCourante = Sheets('Fichiers').Range('A1')
'Boucle : Cette boucle s'exécutera tant que la cellule courante ne sera pas vide
Do Until CelluleCourante.Value = ''
varNomFichier = CelluleCourante.Value
Set CelluleSuivante = CelluleCourante.Offset(1, 0)
Workbooks.Open Filename:='C:\\DOSSIERS\\BD Qualité\\' & varNomFichier
'Fermeture du fichier source
Workbooks(varNomFichier).Activate
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Set CelluleCourante = CelluleSuivante
Loop
Exit Sub
End Sub
Par contre, ces fichiers devront être protégé par mot de passe et c'est là que j'accroche pour gérer la variable 'mot de passe'... Le mot de passe sera différent pour chacun des fichiers mais pourra être indiqué dans le fichier 'consolidé', par exemple dans la feuille 'Fichiers' dans la cellule B de chaque nom de fichier.
Est-ce que qu'une âme charitable a un début de solution ???