Export a partir d'ExcelRésolu

Question

J'exporte une sheet vers un fichier .txt
Comment faire pour n'exporter que les lignes avec un contenu.

Actuellement, j'exporte les 64000 lignes

suffit il de sélectionner les cellules  actives à la place de la sheet ?

AglarEdain · Accepted Answer

Ah, merci GEDDi !


La voilà la bonne vieille méthode à laquelle je pensais. Mais je la retrouvais plus.

+1

<hr />AglarEdain
J'avais cherché une signature originale... mais j'ai rien trouvé.

cs_DARKSIDIOUS · Answer

Salut,

Si tu fais du VBA, pourquoi tu poste dans le forum VB.NET ???

Je déplace vers le forum approprié !
______________________________________
DarK Sidious

VINCENTNINI2 · Answer

Sorry et merci pour le déplacement

cs_MPi · Answer

Détermine le nombre de lignes avec 
nbLignes = Cells(Rows.Count, "A").End(xlUp).Row 
' change le A pour la colonne la plus longue

et copie seulement cette partie

MPi

VINCENTNINI2 · Answer

j 'ai bien déterminé mon nombre de lignes a exporter mais j'utilise 

Worksheets("Sheet2").Select
         ActiveSheet.SaveAs Filename:="H:\User" & NomT, FileFormat:=xlTextMSDOS, _
         Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
         CreateBackup:=False

J'ai essayé avec Cells.select mais cela ne marche pas

AglarEdain · Answer

Excel est bête... Tu lui demandes d'enregistrer une feuille Excel au format Excel Text MSDOS, il enregistre une feuille. C'est normal.

Tu devrais créer un algo qui écrit un fichier avec ce que tu veux dedans. Bref, c'est le retour aux bonnes vieilles méthodes.

Essaye de chercher du côté de la référence Scripting.FileSystemObject.

<hr />AglarEdain
J'avais cherché une signature originale... mais j'ai rien trouvé.

GEDDi · Answer

Bonjour,

Admettons que ta variable VTArray() de type tableau Variant comporte des lignes completes, càd qu'une ligne représente un ensemble de valeurs de cellules séparées par une virgule ou une tabluation etc...
Sans passer par FSO, le VBA a une méthode tres bien pour manipuler les IO : Open

Open "c:\output.csv" For Output As #1
  For i =  1 To UBound(VTArray)
      Print #1, VTArray(i)
  Next i
Close #1

 Gerome GUILLEMIN  (développeur C/C++, VB, .NET)
-- =:: Visitez mon site web en cliquant ici ::=--

VINCENTNINI2 · Answer

grand merci

Export a partir d'Excel

8 réponses

Votre réponse

Discussions similaires