Wyrgle
XLDnaute Junior
Bonjour à tous,
Je suis en plein ds un projet pour mon boulot qui nécessite la gestion de 190 fichiers au quotidien.
Je cherche donc à optimiser sa vitesse d'exécution.
Voila : je veux sauvegarder les données de l'onglet A du fichier A dans l'onglet B du fichier B que je crée pour cela.
Peut-on faire plus court ?
Je débute, merci pour votre aide !
Wyrgle
Je suis en plein ds un projet pour mon boulot qui nécessite la gestion de 190 fichiers au quotidien.
Je cherche donc à optimiser sa vitesse d'exécution.
Voila : je veux sauvegarder les données de l'onglet A du fichier A dans l'onglet B du fichier B que je crée pour cela.
VB:
Sub TEST()
'
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="D:\BOULOT\FICHIER B.xlsx",
Windows("FICHIER A.xlsx").Activate
Cells.Select
Selection.Copy
Windows("FICHIER B.xlsx").Activate
Cells.Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "ONGLET B"
ActiveWorkbook.Save
End Sub
Peut-on faire plus court ?
Je débute, merci pour votre aide !
Wyrgle