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 : 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
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 : 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
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