Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
272 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Transfert de données d'un fichier excel à un autre

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Transfert de données d'un fichier excel à un autre

n°2264464
jipsi
Posté le 15-08-2015 à 19:39:51  profilanswer
 

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

mood
Publicité
Posté le 15-08-2015 à 19:39:51  profilanswer
 

n°2264470
Marc L
Posté le 16-08-2015 à 09:49:08  profilanswer
 

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

jipsi a écrit :

dans un classeur » bla bla » qui est multiple

            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 …
 

n°2264483
patrice337​40
Avec la réponse, c'est facile.
Posté le 16-08-2015 à 23:44:27  profilanswer
 

Bonjour,
 
Tu devrais commencer ton code par :

Code :
  1. Option Explicit

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

Code :
  1. Sub Recopiedonnées()


Message édité par patrice33740 le 16-08-2015 à 23:44:49

---------------
Cordialement, Patrice

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Transfert de données d'un fichier excel à un autre

 

Sujets relatifs
ajouter un fichier .dllimport fichier csvavec ubuntu ??? operation non permise
Requête, données multiples séparées par des caractères[résolu] Comment ajouter des fichier d'une version sur Sourceforge
Problème de données php dans envoi de mail htmlMini Excel – système de donnée en grille
récupération données tableau html avec python[vbs] recup user name pr copier un fichier sur le bureau
d3.js : filtrer X dernières données d'un .csv[Shell Linux] Recherche dans un fichier evolué
Plus de sujets relatifs à : Transfert de données d'un fichier excel à un autre


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR