Bonjour,

Après avoir créé mon fichier Excel avec le code VBA suivant je voudrais remplir ce fichier en ajouter une ligne copier coller d'un autre classeur.

Est-ce que vous avez une idée

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub AddNewWorkbook()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
 
    Set xlApp = CreateObject("Excel.Application")
    xlApp.SheetsInNewWorkbook = 1
    Set xlBook = xlApp.Workbooks.Add
    xlBook.SaveAs ("Mon Classeur.xls")
    xlApp.Visible = True
    Set xlSheet = xlBook.Worksheets(1)
    xlSheet.Name = "Janvier"
    Set xlSheet = Nothing
    xlApp.SheetsInNewWorkbook = 3
    xlBook.Save
    xlBook.Close
    xlApp.Quit
End Sub