Copier coller cellule de plusieurs classeurs à un autre classeur
Résolu/Fermé
she
-
Modifié par she le 1/07/2014 à 14:27
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 - 2 juil. 2014 à 08:22
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 - 2 juil. 2014 à 08:22
A voir également:
- Copier coller cellule de plusieurs classeurs à un autre classeur
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Aller à la ligne dans une cellule excel - Guide
- Super copier - Télécharger - Gestion de fichiers
- Style d'écriture a copier coller - Guide
1 réponse
skk201
Messages postés
938
Date d'inscription
jeudi 11 septembre 2008
Statut
Membre
Dernière intervention
16 octobre 2016
54
Modifié par skk201 le 1/07/2014 à 15:47
Modifié par skk201 le 1/07/2014 à 15:47
Bonjour
Comme ça c'est déjà un peu plus simple
Et si tu veux importer des données d'un classeur sans l'ouvrir voici une bonne astuce :
Cela importe dans la cellule A1, la Cellule A1 du classeur "ABBA.xlsm" Dans le réertoire \C:\
N'hésitez pas a poser des questions
*Pensez mettre vos messages en [Résolu] et cliquer sur le + des conseil qui vous ont été utils"
Private Sub CommandButton1_Click()
Set Wbk2 = Workbooks("Stat_metiers.xls")
Set Wbk3 = Workbooks("fichier.xls")
Workbooks("Ind_metiersES.xlsm").Sheets("Feuil1").Range("B2:X2") = Wbk2.Sheets("Feuil1").Range("C45:X45").Value
Workbooks("Ind_metiersES.xlsm").Sheets("Feuil1").Range("B3:X3") = Wbk2.Sheets("Feuil1").Range("C47:X47").Value
Workbooks("Ind_metiersES.xlsm").Sheets("Feuil1").Range("B4:X4") = Wbk2.Sheets("Feuil1").Range("C50:X50").Value
Workbooks("Ind_metiersES.xlsm").Sheets("Feuil1").Range("B5:X5") = Wbk2.Sheets("Feuil1").Range("C51:X51").Value
Workbooks("Ind_metiersES.xlsm").Sheets("Feuil1").Range("B7:X7") = Wbk2.Sheets("Feuil1").Range("C54:X54").Value
For i = 1 to 22
Workbooks("Ind_metiersES.xlsm").Sheets("Feuil1").Range(Chr(65+i)&"6") = Wbk3.Sheets("Feuil1").Range("E"&(i*112)+2).Value
Next
End Sub
Comme ça c'est déjà un peu plus simple
Et si tu veux importer des données d'un classeur sans l'ouvrir voici une bonne astuce :
Dim Classeur_Chemin as string
Classeur_Chemin = "C:"
Dim Classeur_Nome as String
Classeur_Nome = "ABBA.xlsm"
Cells(1, 1) = ExecuteExcel4Macro("'" & Classeur_Chemin & "\[" & Classeur_Nome & "]" & "Feuil1'!R1C1")
Cela importe dans la cellule A1, la Cellule A1 du classeur "ABBA.xlsm" Dans le réertoire \C:\
N'hésitez pas a poser des questions
*Pensez mettre vos messages en [Résolu] et cliquer sur le + des conseil qui vous ont été utils"
1 juil. 2014 à 16:35
1 juil. 2014 à 16:38
merci de votre réponse skk201
le code marche comme je voulais.
Par contre, comme je suis nulle en vba.
j'ai donc ,qq question concernant le code, j'ai pas tous compris.
Dans la ligne
Workbooks("Ind_metiersES.xlsm").Sheets("Feuil1").Range(Chr(65+i)&"6") =Wbk3.Sheets("Feuil1").Range("E"&(i*112)+2).Value
que veut dire Range(Chr(65+i)&"6") et pourquoi avoir mis p + 2 ici dans
Range("E"&(i*112)+2).Value
merci
1 juil. 2014 à 17:04
merci encore pour votre réponse
2 juil. 2014 à 08:22