Bonjour,
Je voudrais exporter le contenue d'une page excel vers une autres page excel vièrge, avec cette formule.
Private Sub CommandButton18_Click()
Application.ScreenUpdating = False
Sheets(ComboBox1).Select
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select
Windows("Gestion de flotte PRÉSENTATION.xls").Activate
Range("A1").Select
Application.CutCopyMode = False
End Sub
Mon problème est que dans mon UserForm1, j'ai un ComboBox1 qui contient tous les noms d'onglet du fichier excel et un Bouton de commande.
En cliquant sur le bouton, selon le choix de l'onglet du ComboBox1, il exporte les données vers une page vierge.
Sauf que la, ça bloque à Sheets( ComboBox1 ).Select
Comment faire.
merci