Re : executer une macro dans plusieurs classeurs fermes
Salut WUTED,
Merci mais cela ne fonctionne pas pour le moment :
Sub ParcourirFichierXl()
Dim file As String, chemin As String
Dim xlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim i As Integer
file = Dir(("H:\Copy of CQA raw data") + "\", vbNormal)
'vérifie que le répertoire n'est pas vide
If file = "" Then
MsgBox "Répertoire vide", vbOKOnly + cvCritical, "Erreur"
Exit Sub
Else
file = Dir(("H:\Copy of CA data") + "\", vbNormal)
End If
Do
'Cette ligne ne fonctionne pas dans le code
Set xlBook = xlApp.Workbooks.Open(Filename:=file)
correction xlBook xlBook.Close True
xlApp.Quit
i = i + 1
file = Dir(("H:\Copy of CA data") + "\", vbNormal)
For j = 1 To i
file = Dir
Next
Loop Until file = ""
End Sub
Sub correction(xlBook As Workbook)
xlBook.Sheets("Total SUB results").Select
Columns("P
").Select
'sélectionner 1ere cellule non vide
'Range("B1:B150").Select
For Each c In Range("P1
20").SpecialCells(xlCellTypeConstants, 23)
If c <> "" Then
c.Select
Exit For
End If
Next
' extension sélection
For Each c In Range("P2
20").SpecialCells(xlCellTypeConstants, 23)
If c <> "" Then
Range(Selection.Address + "," + c.Address).Select
End If
Next
Selection.Copy
xlBook.Sheets("Document List").Select
Range("M33:M53").Select
xlBook.ActiveSheet.Paste
End Sub
,
cependant, ma macro n'était pas complète, , elle est en fait plus longue, il ne s'agissait que d'un résumé...
Si j'ai bien compris tu modifies chaque sheets par xlworkbook ? C ça ?