Bonjour,

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
63
64
65
66
67
68
69
70
71
72
73
74
75
Sub vba()
 
Dim DernLigne As Long
 
Dim feuille As Variant
 
Dim Code As Variant
 
Dim Sommetotal As Long
 
Dim Fs As Object, A As Object
 
Dim i As Byte
 
        feuille = Sheets("information").Range("B6").Value
 
        Code = Sheets("information").Range("c6").Value
 
Sheets(feuille).Select
 
DernLigne = Sheets(feuille).Range("A65536").End(xlUp).Row
 
MsgBox (DernLigne)
 
MsgBox (Sheets(feuille).Range("D6").Value)
 
date_export = Replace(Sheets("information").Range("D6").Value, "/", "-")
 
MsgBox (date_export)
 
Set Fs = CreateObject("Scripting.FileSystemObject")
 
Set A = Fs.CreateTextFile("c:\" & date_export & ".txt", True)
 
A.WriteLine ("Type Ecriture   Code Journal    Date de Pièce   N° Compte Général   N° Compte tiers Libellé d'écriture  Montant débit   Montant crédit  N°Plan  N° section")
 
     For i = 1 To DernLigne
 
  'MsgBox i
 
        If Sheets(feuille).Range("A" & i).Value <> "" Then
 
        A.WriteLine (Code & vbTab & date_export & vbTab & Range("C" & i) & vbTab & Range("A" & i) & vbTab & Range("D" & i) & vbTab & Range("E" & i) & vbTab)
 
        'Sheets("TRAVAIL").Range("M" & i).Value = "Date_export_" & Date_export
 
        'Sheets("TRAVAIL").Range("A" & i & ":M" & i).Interior.Color = RGB(255, 0, 0)
 
'       Sheets("TRAVAIL").Range("A" & i & ":J" & i).Copy
 
        '  DernLigne2 = Sheets("FichierExport").Range("A65536").End(xlUp).Row + 1
 
      '    MsgBox (DernLigne2)
 
      '  Sheets("FichierExport").Range("A" & DernLigne2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
Else
 
 
 
End If
 
 
 
    Next
 
    A.Close
 
 
 
 
 
 
 
End Sub
J'ai une erreur dépassement de capacité sur cette variable DernLigne ( qui peut atteindre 1000 en valeur)

J'ai essayé de lui assigné une autre type que long mais cela ne change rien.

Ou est mon erreur?

guigui69