creer fichier dans un repertoire

[dianbobo]

bonjour

dans cette macro je crée un fichier dans un repertoire ensuite
'je veux copier les feuilles de mon classeur actif
'la création du fichier se fait bien mais pas la copie des
'feuilles

Code: Tout sélectionner

Private Sub Command1_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Workbook
Dim NomFichier As String
Dim k As Long, f As Long, i As Long, j As Long, m As Long, lastrow As Long

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
lastrow = Sheets("Données_hist").Cells(65536, 4).End(xlUp).Row
m = Worksheets("Mesure_var").Cells(Rows.Count, 7).End(xlUp).Row

'Ensuite tu travailles dessus comme un fichier existant puis enfin

NomFichier = "S:\PGB\DER\_Commun\MBO\RESULTAT ECO  suivi quotidien\Suivis Valos forwards\ljdate_varpara_hist.xls"
xlBook.SaveAs NomFichier
'copier les feuilles
Workbooks("date_varpara_hist").Worksheets("Données_hist").Copy Workbooks("ljdate").Sheets(1)


xlBook.Close
xlApp.Quit

Set xlBook = Nothing
Set xlApp = Nothing
End Sub

merci de votre aide

[Dan]

Bonjour,

Le fichier Workbooks("ljdate") est bien ouvert ?
Quelles sont les feuilles à copier ?
La macro est située dans le fichier date_varpara_hist ?

A te relire

[dianbobo]

Le fichier Workbooks("ljdate") est bien ouvert ?

'non le fichier Workbooks("ljdate") n'est pas ouvert

Quelles sont les feuilles à copier ?

'toutes les feuilles de mon classeur actif nommé Workbooks("date_varpara_hist")

La macro est située dans le fichier date_varpara_hist ?

'oui la macro est située dans ce fichier.

'merci bien

[Dan]

Re,

As-tu essayé d'exécuter la macro lorsque ton fichier Workbooks("ljdate") est ouvert en arrière plan ?

[dianbobo]

bonjour
oui , ça ne marche toujours pas
mais en essayant comme ci dessous ça fonctionne

Code: Tout sélectionner

Sub Copi2FeuillesEtEnregistre()
    Dim NomFichier As String
    NomFichier = "S:\PGB\DER\_Commun\MBO\RESULTAT ECO  suivi quotidien\Suivis Valos forwards\ljdate_varpara_hist.xls"
    Sheets(Array(1, 2)).Copy
    ActiveWorkbook.Close True, NomFichier
End Sub

merci bien