Slt au forum,
Voilà, j'ai besoin de faire une macro. Qui permet d'ouvrir plusieurs fichiers textes. Puis pour chacun d'entre eux de copier toutes les feuilles qu'ils contiennent dans un nouveau fichier.A noter que je ne connaît ni le nom des fichiers ni le nom des feuilles. Mais je n'y arrive pas, car il va me cherher des feuilles qui nexiste pas. Et voilà le code que j'ai écrit pour savoir ce qui passe:
Sub ouvre_fichier()
Application.Dialogs(xlDialogOpen).Show
End Sub
Sub générale()
Dim c As Workbook
Dim f As Worksheet
Application.Run "ouvre_fichier"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\mesure\essai.xls", FileFormat:=xlNormal
For Each c In Workbooks
MsgBox c.Name
For Each f In Worksheets
MsgBox f.Name
Next
Next
End Sub
Résultat, dans chaque fichier il trouve feuil1,2,3 alors qu'il y en a qu'1 ou même si elles n'ont pas ces noms.
Merci d'avance au forum et à tous ce qui m'auront aidé,
cordialement G vincent.
Voilà, j'ai besoin de faire une macro. Qui permet d'ouvrir plusieurs fichiers textes. Puis pour chacun d'entre eux de copier toutes les feuilles qu'ils contiennent dans un nouveau fichier.A noter que je ne connaît ni le nom des fichiers ni le nom des feuilles. Mais je n'y arrive pas, car il va me cherher des feuilles qui nexiste pas. Et voilà le code que j'ai écrit pour savoir ce qui passe:
Sub ouvre_fichier()
Application.Dialogs(xlDialogOpen).Show
End Sub
Sub générale()
Dim c As Workbook
Dim f As Worksheet
Application.Run "ouvre_fichier"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\mesure\essai.xls", FileFormat:=xlNormal
For Each c In Workbooks
MsgBox c.Name
For Each f In Worksheets
MsgBox f.Name
Next
Next
End Sub
Résultat, dans chaque fichier il trouve feuil1,2,3 alors qu'il y en a qu'1 ou même si elles n'ont pas ces noms.
Merci d'avance au forum et à tous ce qui m'auront aidé,
cordialement G vincent.