copier un classeur dans un nouveau classeur

[llebucheur]

Bonjour à tous,
Je me tourne une nouvelle fois vers vous. Je souhaite copier un classeur dont le nom peut varier dans un nouveau classeur. Je n'ai pas trouvé de discussion à ce sujet sur le forum. Je débute en VBA et je galère vraiment.😕

je colle ce que j'ai deja fait afin d'etre plus clair.


Sub creer()
Dim root As String
Dim j As Long
j = 1

root = ActiveWorkbook.Name

Set NewBook = Workbooks.Add
Do
CName = Application.GetSaveAsFilename
Loop Until CName <> False
NewBook.SaveAs Filename:=CName

For j = 1 To 7
Workbooks(root).Worksheets(j).Range("A1:AZ4000").Copy
ActiveSheet.Paste Destination:=Workbooks(CName).Worksheets(j).Range("A1:AZ4000").Paste
j = j + 1
Next

End Sub




Merci beaucoup pour votre aide! 🙂
Cordialement

 

[llebucheur]

Re : copier un classeur dans un nouveau classeur

je viens déja de remarquer que ".paste" est en trop
après: Range( "A1:AZ4000")

 

[llebucheur]

Re : copier un classeur dans un nouveau classeur

je vois que mon sujet déchaine les passion! ;-)
J'arrive un peu à m'en sortir mais il ne me copie que la première feuille de mon classeur. je colle ce que j'ai fait au cas ou quelqu'un saurait m'aider.

Sub creer()
Dim root As String
Dim Newroot As String
Dim X As Long
Dim j As Long
j = 1
X = 0

root = ActiveWorkbook.Name
X = InputBox("Veuillez indiquer le nombre de feuilles qui composent le classeur:")

Set NewBook = Workbooks.Add
Do
CName = Application.GetSaveAsFilename
Loop Until CName <> False
NewBook.SaveAs Filename:=CName
Newroot = ActiveWorkbook.Name
For j = 1 To X
Workbooks(root).Worksheets(j).Copy Before:=Workbooks(Newroot).Worksheets(j)
j = j + 1
Next

End Sub


Merci d'avance à tous ce qui se pencheront sur mon problème

 

[llebucheur]

Re : copier un classeur dans un nouveau classeur

hé Hop trouvé!
Je vous le copie au cas quelsu'un serait interesser même si je pense que ca ne doit pas être très compliquer pour vous.

Sub creer()
Dim root As String
Dim Newroot As String
Dim X As Long
Dim j As Long
j = 1
X = 0

root = ActiveWorkbook.Name
X = InputBox("Veuillez indiquer le nombre de feuilles qui composent le classeur:")

Set NewBook = Workbooks.Add
Do
CName = Application.GetSaveAsFilename
Loop Until CName <> False
NewBook.SaveAs Filename:=CName
Newroot = ActiveWorkbook.Name
For j = 1 To X
Workbooks(root).Worksheets(j).Copy Before:=Workbooks(Newroot).Sheets(j)
Next

End Sub


Si quelqu'un voit quelque chose de plus leger je suis preneur!
bonne continuation