Bonsoir à toutes et à tous,
j'ai un problème dans cette boucle. Elle ouvre les fichiers dans un dossier "CONTROLES CLIENTSbis" il y en a 356 et les envoie vers un répertoire que j'ai nommé "NomRep".
Au premier passage elle ouvre le fichier, l'enregistre dans le bon répertoire. Le problème est qu'au second passage elle identifie bien le 2ème fichier à ouvrir mais il ne s'ouvre pas. Comprends pas..
Merci de votre aide
j'ai un problème dans cette boucle. Elle ouvre les fichiers dans un dossier "CONTROLES CLIENTSbis" il y en a 356 et les envoie vers un répertoire que j'ai nommé "NomRep".
Au premier passage elle ouvre le fichier, l'enregistre dans le bon répertoire. Le problème est qu'au second passage elle identifie bien le 2ème fichier à ouvrir mais il ne s'ouvre pas. Comprends pas..
Merci de votre aide
Code:
Sub Enregister()
Dim CheminDossier$, dossier, i As Byte, chemin$, o As Boolean, NomRep As String
CheminDossier = "C:\Documents and Settings\JFL CONTROLE\Bureau\Trames\"
dossier = Array("CONTROLES CLIENTSbis") 'noms des dossiers
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 0 To UBound(dossier)
chemin = CheminDossier & dossier(i) & "\"
nomfich = Dir(chemin & "*.xls*") '1er fichier du dossier
While nomfich <> ""
o = False
On Error Resume Next
If IsError(Workbooks(nomfich).Name) Then 'si le fichier n'est pas déjà ouvert, on l'ouvre
Application.EnableEvents = False 'on bloque les évènements de ThisWorkbook open
Workbooks.Open chemin & nomfich
Sheets("Page 1").Activate
NomRep = Cells(35, 26).Value & "" & Cells(40, 26).Value 'Détermine le nom du dossier
Application.EnableEvents = True 'on rétablit les évènements
o = True
End If
On Error GoTo 0
chemin = "C:\Documents and Settings\JFL CONTROLE\Bureau\Trames\CONTROLES CLIENTS\"
ActiveWorkbook.SaveAs chemin & NomRep & "\" & nomfich
Application.ScreenUpdating = True
Application.DisplayAlerts = True
If o Then ActiveWorkbook.Close SaveChanges:=True 'si le fichier a été ouvert on le ferme
nomfich = Dir 'fichier suivant du dossier
Wend
Next
End Sub