Bonjour tout le monde  
 
Je suis débutant en macro Excel et je bute sur la finalisation d’une macro qui va chercher des cellules dans un classeur » bla bla » qui est multiple  pour les recopier dans un autre classeur « listing » qui est unique.  
 
Je cherche à récupérer les données de plusieurs cellules dispersées du classeur BlaBla pour les ranger dans le classeur listing sur une ligne qui sera incrementée au fur et à mesure des nouveaux classeurs Blabla.
 
Je transcris le code VBA qui coince :    
 
Sub Recopiedonnées()
'
' Recopiedonnées Macro
' Macro enregistrée le 15/08/2015 par jpschoch
'
 
Dim Entree As Workbook, Sortie As Workbook
 
Nomfichierentree = ActiveWorkbook.Name
Dim Chemin As String
Chemin = "C:\Users\jean-pierre\Desktop\Nouveau crop 2015 double"
             
NomFichierSortie = "Application.GetOpenFilename (listing.xls)"
Chemin = "C:\Users\jean-pierre\Desktop\Nouveau crop 2015 double\Historique"
Set NomFichierSortie = Workbooks.Open(listing.xls)
               
Sortie.Worksheets("Feuil1" ).Cells(A$, B$) = Entree.Worksheets("Feuil1" ).Cells(D5, F5)
         
ThisWorkbook.SaveAs Filename:=Chemin & Worksheets("Feuil1" )
Close
 
End Sub
 
 
 
Cela bloque au niveau de la ligne :
Set NomFichierSortie = Workbooks.Open(listing.xls)
 
 
Avec au débogage :
Erreur d’exécution « 424 »
Objet requis
 
 
 
Merci d'avance pour votre aide      
 
Bonne soirée à tous  
 
 
jipsi

 
            Bonjour, bonjour !
 
            Merci d'éditer le post afin de baliser le code grâce à l'icône prévue à cet effet !
 

            Cela ne veut rien dire car un classeur est forcément unique !
 
            Sinon l'erreur provient de la non existence du fichier à ouvrir ! Normal car sans disque ni dossier indiqué pour son ouverture …
 

Bonjour,
 
Tu devrais commencer ton code par :

c'est-à-dire, avant la ligne :