Vba en format texte

Version imprimable

07/01/2019, 19h17
damijoo

1 pièce(s) jointe(s)

Vba en format texte

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.Pièce jointe 439498

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,
07/01/2019, 20h50
clementmarcotte

Bonjour

:cristal:

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.
07/01/2019, 20h55
unparia

Bonjour

Citation:

et j'enregistre en format texte

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

Code:

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

07/01/2019, 21h37
Arkham46

Bonjour,

La boucle for...next incrémente déjà la variable i automatiquement.
Le i = i + 1 me semble de trop.
08/01/2019, 08h49
Menhir
Déjà, tu peux remplacer :
Code:

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:

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.