Discussion :

[sethipremier]

Bonjour, voilà mon bout de 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
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
 
Private Sub CheckBox10_Click()
Rem création du fichier programme suivant activation des modules, ici module 1
 
If CheckBox10.Value = True Then
 
Workbooks.OpenText Filename:="C:\base1\mod1.txt"
    Workbooks("mod1.txt").Activate
    ActiveSheet.Range("a1", "i5").Copy
    Workbooks.OpenText Filename:="C:\base1\test.txt"
    ActiveSheet.Paste
    ActiveWindow.Close savechanges:=True
    ActiveWorkbook.Save
    ActiveWindow.Close savechanges:=True
End If
 
End Sub
Private Sub CheckBox11_Click()
Rem création du fichier programme suivant activation des modules, ici module 2
 
If CheckBox11.Value = True Then
 
Workbooks.OpenText Filename:="C:\base1\mod2.txt"
    Workbooks("mod2.txt").Activate
    ActiveSheet.Range("a1", "i4").Copy
    Workbooks.OpenText Filename:="C:\base1\test.txt"
    ActiveSheet.Paste
    ActiveWindow.Close savechanges:=True
    ActiveWorkbook.Save
    ActiveWindow.Close savechanges:=True
 
End If
 
End Sub
Private Sub CheckBox12_Click()
Rem création du fichier programme suivant activation des modules, ici module 3
 
If CheckBox12.Value = True Then
 
Workbooks.OpenText Filename:="C:\base1\mod3.txt", Origin:=xlWindows
    ActiveSheet.Range("a1", "i4").Copy
    Workbooks.OpenText Filename:="C:\base1\test.txt", Origin:=xlWindows
    ActiveSheet.Paste
    ActiveWindow.Close savechanges:=True
    ActiveWorkbook.Save
    ActiveWindow.Close savechanges:=True
 
End If
 
End Sub

Je vous explique :

Je voudrais que quand je clique sur CheckBox10, CheckBox11, CheckBox12 je mette mod1.txt, mod2.txt et mod3.txt à la suite dans test.txt.

Pour le moment j'arrive bien à mettre mod1.txt dans test.txt quand le clique sur CheckBox10, mais quand je clique sur CheckBox11, mod2.txt m'écrase ce qu'il y avait dans test.txt

Une petite aide serais la bienvenue. Merci de votre attention

[sethipremier]

Re bonjour,
j'ai reussi à me débrouiller seul ...

comme je ne suis pas chien, je montre comment j'ai reussi, car cela pourrait servir à d'autres

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
Private Sub CheckBox10_Click()
Rem création du fichier programme suivant activation des modules, ici module 1

If CheckBox10.Value = True Then

Workbooks.OpenText Filename:="C:\base1\mod1.txt"
    Workbooks("mod1.txt").Activate
    ActiveSheet.Range("a1", "i5").Copy
    Workbooks.OpenText Filename:="C:\base1\test.txt"
    Workbooks("test.txt").ActiveSheet.Range("A1").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    ActiveWindow.Close savechanges:=True
    ActiveWorkbook.Save
    ActiveWindow.Close savechanges:=True

End If

End Sub
Private Sub CheckBox11_Click()
Rem création du fichier programme suivant activation des modules, ici module 2

If CheckBox11.Value = True Then

Workbooks.OpenText Filename:="C:\base1\mod2.txt"
    Workbooks("mod2.txt").Activate
    ActiveSheet.Range("a1", "i4").Copy
    Workbooks.OpenText Filename:="C:\base1\test.txt"
    Workbooks("test.txt").ActiveSheet.Range("A1").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    ActiveWindow.Close savechanges:=True
    ActiveWorkbook.Save
    ActiveWindow.Close savechanges:=True

End If

End Sub
Private Sub CheckBox12_Click()
Rem création du fichier programme suivant activation des modules, ici module 3

If CheckBox12.Value = True Then

Workbooks.OpenText Filename:="C:\base1\mod3.txt", Origin:=xlWindows
    ActiveSheet.Range("a1", "i4").Copy
    Workbooks.OpenText Filename:="C:\base1\test.txt", Origin:=xlWindows
    Workbooks("test.txt").ActiveSheet.Range("A1").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    ActiveWindow.Close savechanges:=True
    ActiveWorkbook.Save
    ActiveWindow.Close savechanges:=True

End If

End Sub

A+