Discussion :

[darkman13130]

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

[Maxgad]

Bonsoir,
Tu ne risques pas d'avoir beaucoups de réponses l'ami. Faudrait être plus explicite et joindre un fichier exemple si tu souhaites avoir des retours rapides.
C'est du VB6 que tu fais ou du vba ?