Creer fichier dans un repertoire
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
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 Submerci de votre aide
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
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
Re,
As-tu essayé d'exécuter la macro lorsque ton fichier Workbooks("ljdate") est ouvert en arrière plan ?
bonjour
oui , ça ne marche toujours pas
mais en essayant comme ci dessous ça fonctionne
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 Submerci bien