Macro importer des données d'un classeur externe

Fermé
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 27 janv. 2016 à 23:04
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 28 janv. 2016 à 17:33
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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 janv. 2016 à 09:41
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
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4
28 janv. 2016 à 10:26
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
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023
28 janv. 2016 à 10:43
j'ai répondu à ta demande initiale

Tu as le principe, à toi d'adapter
0
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4 > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023
28 janv. 2016 à 17:18
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
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023
28 janv. 2016 à 17:33
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