Créer, nommer et remplir un nouveau classeur avec des données

Question

J'ai une feuille Excel avec deux colonnes de données. La colonne A contient les nouveaux noms de classeur souhaités et la cellule adjacente de la colonne B contient les données que je veux dans le nouveau classeur.

Donc, si 032411 est dans la colonne A et 50 est dans la colonne B la macro pourrait créer un nouveau classeur nommé 032411 et 50 serait dans la cellule A1 de ce classeur.

Answer 1

Vous pouvez utiliser ceci:

Sub CreateBooks() 

    Dim oCell As Excel.Range 
    Dim oWorkbook As Excel.Workbook 

    'Added to avoid messages asking to confirm overwriting 
    ' previous existent files with same name 

    Application.DisplayAlerts = False 

    For Each oCell In Range("A:A") 

     If oCell.Value = "" Then Exit For 

     Set oWorkbook = Workbooks.Add 

     oWorkbook.Sheets(1).Cells(1, 1).Value = oCell.Offset(0, 1).Value 

     'If the cell value contains only the file name (instead of the whole path 
     ' the file needs to be saved) it will save into MyDocuments folder 
     oWorkbook.Close True, oCell.Value 

    Next oCell 

    Application.DisplayAlerts = True 

End Sub 

Si vous avez plusieurs fichiers pour générer, vous pouvez également utiliser le application.ScreenUpdating = False.