Probléme de code lié a une macro (Excel 2003)
Bonjour a tous je cherche a crée un petit programme (a l'aide d'un userform contenant 4 combobox et 2 bouttons) qui permet de copier la feuil1 d'un document excel et de la coller dans un nouveau document.Cette manipulation doit être effectué 4 fois car j'ai 4 fichiers excel qui sont (ville,ville_nat,ccas,ccas_nat)
Pour résumer je veux donc a l'aide d'un programme copier/coller la premiére feuille de chaque fichier (ville,ville_nat,ccas,ccas_nat) dans un fichier excel vierge.
Pour ceci j'ai commencé a tapé quelques codes mais il me met une erreur 424 :/. voici donc le code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Private Sub btnquitter_Click()
End
End Sub
Private Sub CommandButton1_Click()
Call Module2.essai
End Sub
Private Sub UserForm_Activate()
Dim I As Integer, Chemin As String, Fichier As String
Chemin = "C:\testmathieu\*.xls"
Fichier = Dir(Chemin)
Do While (Len(Fichier) > 0)
Me.ComboBox1.AddItem Fichier
Me.ComboBox2.AddItem Fichier
Me.ComboBox3.AddItem Fichier
Me.ComboBox4.AddItem Fichier
Fichier = Dir()
Loop
End Sub " |
Dans
Code:
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
| Private Sub CommandButton1_Click()
Call Module2.essai
End Sub
j'appel une macro qui s'appelle essai et qui est la suivante , le probléme doit venir de celle-ci
Sub essai()
If ComboBox1.Text = "CCAS.XLS" Then
ChDir "C:\testmathieu"
Workbooks.Open Filename:="C:\testmathieu\test.xls"
Windows("CCAS").Activate
Sheets("Bulletins de paye").Select
Sheets("Bulletins de paye").Copy Before:=Workbooks("test.xls").Sheets(1)
If ComboBox2.Text = "CCAS_nat.XLS" Then
ChDir "C:\testmathieu"
Workbooks.Open Filename:="C:\testmathieu\test.xls"
Windows("CCAS_nat").Activate
Sheets("Répartition par nature").Select
Sheets("Répartition par nature").Copy Before:=Workbooks("test.xls").Sheets(1)
If ComboBox3.Text = "ville.XLS" Then
ChDir "C:\testmathieu"
Workbooks.Open Filename:="C:\testmathieu\test.xls"
Windows("ville").Activate
Sheets("Bulletins de paye").Select
Sheets("Bulletins de paye").Copy Before:=Workbooks("test.xls").Sheets(1)
If ComboBox4.Text = "ville_nat.XLS" Then
ChDir "C:\testmathieu"
Workbooks.Open Filename:="C:\testmathieu\test.xls"
Windows("ville_nat").Activate
Sheets("Répartition par nature").Select
Sheets("Répartition par nature").Copy Before:=Workbooks("test.xls").Sheets(1)
End If
End If
End If
End If
End Sub |
Elle doit d'ailleur etre fausse car si l'utilisateur sélectionne "ccas" dans la combobox4 , le "if" ne marchera pas :/.
J'espére avoir était clair et vous remercie de l'intêret porté a mon post :)
Pour des spécifications n'hésité pas.
ps : pour la copie de la feuil1 , j'ai a chaque fois spécifié le nom de celle-ci ( exemple : "Répartition par nature")
ET
J'utilise Office Excel 2003
