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
Elle doit d'ailleur etre fausse car si l'utilisateur sélectionne "ccas" dans la combobox4 , le "if" ne marchera pas :/.
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
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
Partager