copie d'un classeur à l'autre

[hehee]

Je désire prendre des données dans mon classeur actif, puis par la suite, les copier dans un nouveau classeur. Voici mon code

Sub nouveau_classeur()
Dim chemin As String
Dim nom As String

'Trouve le nom du classeur actif
nom = ActiveWorkbook.Name

'Trouve le chemin du fichier actuel, puis le nom inscrit dans la cellule "nom_fichier"
'Ce chemin complet sera le nom du nouveau fichier
chemin = ThisWorkbook.Path & "\" & Range("nom_fichier") & " " & Date & ".xlsx"

'Crée un nouveau fichier
Workbooks.Add

'Enregistre sous le fichier
ActiveWorkbook.SaveAs Filename:=chemin _
    , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

'Copie les données de "Feuil5" du premier classer vers "Feuil1" du nouveau classeur
Workbooks(nom).Feuil5.UsedRange.Copy ActiveWorkbook.Feuil1.Range("A3") '--> Bug ICI!!!

'Enregistre
ActiveWorkbook.Save

'Ferme le classeur
ActiveWorkbook.Close

'Réactive le premier classeur
Workbooks(nom).Activate

End Sub

Cependant, au moment de copier, ça bug : "Propriété ou méthode non gérée par cet obet"

Comment faire ?

Merci !

 

[Pierrot93]

Re : copie d'un classeur à l'autre

Bonjour,

modifie peut être comme suit :

Workbooks(nom).Feuil5.UsedRange.Copy ActiveWorkbook.Sheets("Feuil1").Range("A3")

bon après midi
@+

 

[hehee]

Re : copie d'un classeur à l'autre

Bonjour,

modifie peut être comme suit :

Workbooks(nom).Feuil5.UsedRange.Copy ActiveWorkbook.Sheets("Feuil1").Range("A3")

bon après midi
@+

Même erreur

 

[Pierrot93]

Re : copie d'un classeur à l'autre

Re,

si feuil5 n'est pas le codename :

Workbooks(nom).Sheets("Feuil5").UsedRange.Copy ActiveWorkbook.Sheets("Feuil1").Range("A3")

 

[Pierrot93]

Re : copie d'un classeur à l'autre

Re,

si feuil5 n'est pas le codename :

même si codename d'ailleurs....