Bonjour,
Je souhaite récupérer une plage de données d'un fichier excel et le copier dans un autre fichier xls en fonction d'une sélection dans une combobox.
J'ai une erreur au niveau de la copie de ma sélection. Est-ce quelqu'un peu me dépanner svp?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86 Private Sub CommandButton1_Click() 'Déclaration des variables Dim Nbre As Integer Dim i As Integer Dim ColonneDeb As String Dim LDeb As Integer Dim ValCar As Integer Dim ChoixCode As String Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel Dim wbEtudiant As Excel.Workbook Dim wsEtudiant As Excel.Worksheet 'initialisation des variables ColonneDeb = "B" LDeb = 3 Nbre = 0 ChoixCode = ComboBox1.Value 'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("D:\Mes documents\Développement\excel\Enquete_Eurequa\Résultat\Enquete.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1) 'Appel de la fonction du calcul du nombre de fichier XLS à traiter Nbre = Nbre_Fich("D:\Mes documents\Développement\excel\Enquete_Eurequa\", "*.xls") wsExcel.Range("A1") = Nbre 'Changement du nom des fichiers dans le répertoire Call Name_File(Nbre) 'Boucle permettant le remplissage des valeurs des étudiants For i = 1 To Nbre 'Ouveture du document de l'étudiant Set wbEtudiant = appExcel.Workbooks.Open("D:\Mes documents\Développement\excel\Enquete_Eurequa\evales_" & i & ".xls") Set wsEtudiant = wbEtudiant.Worksheets(1) 'Test du code du cours If (wsEtudiant.Range("C11").Value = ChoixCode Xor Code = 0) Then 'Sélection des valeurs à copier wsEtudiant.Activate wsEtudiant.Range("G29:G40").Copy 'Titre du Tableau wsExcel.Activate wsExcel.Range(ColonneDeb & (LDeb - 1)) = "Etudiant" & i ActiveSheet.Paste ("B3") 'Passage Colonne suivante ValCar = Asc(ColonneDeb) ValCar = ValCar + 1 ColonneDeb = Chr(ValCar) 'Fermeture du document de l'etudiant wbEtudiant.Close Else 'Fermeture du document de l'etudiant wbEtudiant.Close End If Next i 'fermeture de l'application wbExcel.Close 'Fermeture du classeur Excel appExcel.Quit 'Fermeture de l'application Excel 'Désallocation mémoire Set wsExcel = Nothing Set wbExcel = Nothing Set appExcel = Nothing End Sub
Partager