Discussion :

[chevrotine56]

Bonjour,

j'ai fait la macro suivante qui me permet de copier des données depuis Excel vers un fichier bloc note.
Je voudrais ajouter un morceau de code pour effacer le contenu du bloc note avant de coller les nouvelles données. (sinon elles sont misent à la suite)
Mais je ne trouve pas la commande.

Des idées?

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
Sub test()
 
Dim Cible As Integer, DerLigne As Integer, y As Integer
Dim chemin As String, Resultat As String, Rep_1 As String, ep_2 As String
Dim Cell As Range
Dim I As Integer
 
'Définit la dernière ligne non vide dns la colonne A
DerLigne = Range("A65536").End(xlUp).Row
 
Cible = FreeFile
 
'ouvre le script
chemin = ThisWorkbook.Path
Open chemin & "\Script_test.scr" For Append As #Cible
 
'------Effacer le bloc note------
 
 
'copie les ref du plan
Resultat = "-CALQUE CH 0"
Print #Cible, Resultat
Resultat = Cells(1, 10)
Print #Cible, Resultat
Resultat = Cells(2, 10)
Print #Cible, Resultat
Resultat = Cells(3, 10)
Print #Cible, Resultat
Resultat = Cells(4, 10)
Print #Cible, Resultat
 
'defini la boucle
For I = 7 To DerLigne + 1
 
    If I = 7 Then
        'Script le coin A
        Resultat = "-CALQUE CH A"
        Print #Cible, Resultat
    ElseIf I > 7 Then
        'Compare les coins
        Rep_1 = Cells(I, 1)
        Rep_2 = Cells(I - 2, 1)
    End If
 
    If Rep_1 = Rep_2 Then
 
    ElseIf Rep_1 <> Rep_2 And Rep_1 <> "" And Rep_2 <> "" Then
        'Script le coin en cours
        Resultat = "-CALQUE CH " & Cells(I, 1).Value
        Print #Cible, Resultat
        Print #Cible, Chr(10)
    End If
 
        'Copie le script du cercle et du texte
        Resultat = Cells(I, 10).Value
        Print #Cible, Resultat
 
Next I
 
Close #Cible
 
End Sub

merci

[jurassic pork]

Hello,
tu peux essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open chemin & "\Script_test.scr" For Output As #Cible

Ami calmant, J.P

[chevrotine56]

Ca fait le boulot, mais y a un soucis après avec la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open chemin & "\Script_test.scr" For Append As #Cible

quand je les met l'une a la suite, la première fonctionne, pas la seconde.

[jurassic pork]

il ne faut pas mettre les deux lignes
avec Output en fait on récrée un fichier et on écrit dedans.
avec Append on ouvre le fichier et on écrit à la fin du contenu du fichier ouvert.

[chevrotine56]

Légère subtilité, merci pour l'info et l'aide.