Macro importer des données d'un classeur externe

noe2008 Messages postés 191 Statut Membre -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Salut les amis ,
j'ai besoin d'une macro pour importer des données d'un classeur excel 2010 à un autre , c'est à dire quand exécute la macro elle me laissera le choix de choisir le classeur qui se trouve dans mon disque dure , une fois sélectionné et ouvert elle copie les données de la feuille active de B12:B42 dans le classeur de départ dans la feuille active dans C22:C52
cordialement !

1 réponse

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour

    a mon humble avis il serait + prudent d'indiquer le nom des feuilles plutôt qu' activesheet, sauf si tu n'as qu'une seule feuille dans les 2 classeurs

    Option Explicit
    '----------
    Sub copier_externe()
    Dim Fich As String, tampon

    Fich = Application.GetOpenFilename
    Workbooks.Open (Fich)
    tampon = ActiveSheet.Range("B12:B42")
    ActiveWorkbook.Close

    Range("C22:C52") = tampon

    End Sub


    0
    1. noe2008 Messages postés 191 Statut Membre 4
       
      Merci michel
      la feuille source s'appelle " Donnée" la feuille destination s'appelle "Nom"
      je veux ajouter dans la macro de copier aussi les cellules A2:D2 et N3:P12 du classeur destination dans E3:G3 et H6:J15 du classeur de départ
      merci infiniment
      0
      1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320 > noe2008 Messages postés 191 Statut Membre
         
        j'ai répondu à ta demande initiale

        Tu as le principe, à toi d'adapter
        0
      2. noe2008 Messages postés 191 Statut Membre 4 > michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention  
         
        Salut michel ta macro est magique
        j'ai réussi à insérer les noms des feuilles dans la macro mais je n'arrive pas à ajouter dedansde copier aussi les cellules A2:D2 et N3:P12 du classeur destination dans E3:G3 et H6:J15 du classeur de départ

        Merci de votre aide
        0
      3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320 > noe2008 Messages postés 191 Statut Membre
         
        Pourquoi ne pas annoncer la globalité de ce que tu désires au départ ?

        Il faut bien te rendre compte que ce que tu demandes n'est pas forcément facile et que personne ne veut passer parfois plusieurs heures à essayer de résoudre un problème bénévolement pour se voir dire après coup:" il faut en plus que.... "
        0