Discussion :

[damijoo]

Bonjour,

Pour commencer bonne année à tous les utilisateurs du site.

Voici ma problématique :

via une macro je copie un fichier excel dans una utre et j'enregistre en format texte. Cependant, lors de lors de l'édition du fichier il me copie une ligne de trop en blanc.Book1.txt

J'ai essayé de lui dire de supprimer le contenu en dessous d'une certaine ligne, idem si je demande de supprimer les lignes mais rien y fait il reste toujours cette ligne en plus.

Ce que je desire est que cette ligne lors du format texte ne soit plus la.

Pouvez vous m'aider?


Bien à vous,

[clementmarcotte]

Bonjour




Ceci dit c'est plutôt normal que la marque de fin de fichier se trouve seule sur sa ligne.

Dans File System Object, il y a un moyen pour connaître le numéro de la ligne où va aboutir la prochaine information dans un fichier ouvert "Fort Appending". Donc en enlevant 1 à cette valeur, tu as la dernière ligne occupée. Le fichier d'aide de Microsoft Windows Script doit être à quelque part sur ton disque. Sinon il y a un chapitre complet sur MSDN

Là, ma batterie de portable est vide et je ne peux plus chercher à ta place.

[unparia]

Bonjour

et j'enregistre en format texte

par quelles instructions/code ?
On ne les voit pas.

[damijoo]

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
Workbooks(origine).Sheets(VLookupResultCSV).Activate
For i = A To 5000
If Workbooks(origine).Sheets(VLookupResultCSV).Cells(i, 4) <> "" Then
i = i + 1
Else
x = i - 1
Exit For
End If
 
Next i
 
 
 
 
'cas aaaa
 
 
If UCase(Counterpart) = UCase("aaaa") Then
 
 
Workbooks(origine).Sheets(VLookupResultCSV).Range("A1:K" & x).Copy
Workbooks(name1).Sheets(index).Range("A1:K" & x).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
 
Else
 
Workbooks(origine).Sheets(VLookupResultCSV).Activate
Stock = WorksheetFunction.Match("Stock", Workbooks(origine).Sheets(VLookupResultCSV).Range("A:A"), False)
dercol = Cells(Stock, Columns.Count).End(xlToLeft).Column
cop = Range(Cells(2, 1), Cells(x, dercol)).Copy
 
Workbooks(name1).Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues
 
 
 
Application.CutCopyMode = False
 
 
End If

[Arkham46]

Bonjour,

La boucle for...next incrémente déjà la variable i automatiquement.
Le i = i + 1 me semble de trop.

[Menhir]

Déjà, tu peux remplacer :

Code :

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

1
2
3
4
5
6
7
8
9
Workbooks(origine).Sheets(VLookupResultCSV).Activate
For i = A To 5000
If Workbooks(origine).Sheets(VLookupResultCSV).Cells(i, 4) <> "" Then
i = i + 1
Else
x = i - 1
Exit For
End If
Next i

Par :

Code :

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

x = Workbooks(origine).Sheets(VLookupResultCSV).Cells(Rows.Count, 4).End(xlUp).Row

Pour le reste, comme il n'y a pas d'instruction dans ton code qui génère le fichier texte, difficile de corriger le problème.