[Macro Excel] Sauvegarder une sélection en fichier plat

Sauvegarder une sélection en fichier plat [Macro Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 30-06-2007 à 12:30:20    

Une petite question qui me prend la tête ces derniers jours.
 
J'aimerai faire une sauvegarde en fichier plat d'une feuille cachée. Cette dernière contient une seule colonne renseignée avec 4000 lignes de formules. Le résultat de ces formules donne un résultat sur un certain nombre de lignes puis au bout d'un moment, le résultat est vide.
Sauf, que quand je sauvegarde, j'ai mes 4000 lignes qui sont extraites même si elles sont vides.
 
Voici mon bout de code :

Code :
  1. ' Génération du fichier
  2. nom_sauv = repertoire & Sheets("Sommaire" ).[B10].Value
  3.    
  4. Sheets("se_print" ).SaveAs Filename:=nom_sauv, _
  5.         FileFormat:=xlUnicodeText, CreateBackup:=False


 
Mon premier problème est comment récupérer mon nombre de lignes sans passer par une boucle while qui vérifie les cellules une par une.
Mon deuxième problème est comment sauvegarder ma sélection en sachant que c'est une feuille cachée.
 
Merci pour votre aide  :D .
 
Pour info, je continue de mon côté mes recherches...

Reply

Marsh Posté le 30-06-2007 à 12:30:20   

Reply

Marsh Posté le 30-06-2007 à 12:32:28    

si tes lignes commencent à la ligne 1, tu as une fonction qui va jusqu'en bas de la colonne, et qui te retourne le numéro en questio :)

Reply

Marsh Posté le 30-06-2007 à 15:03:50    

Ok merci, ça devient :
 

Code :
  1. nb = (Sheets("cd" ).Range("A1" ).End(xlDown).Row - 1)


 
 
Il ne me reste plus qu'à trouver une solution pour faire une sauvegarde en fichier plat d'une sélection de type :
 

Code :
  1. Sheets("se_print" ).Range("A1:A200" ).SaveAs Filename:=nom_sauv, _
  2.         FileFormat:=xlUnicodeText, CreateBackup:=False


 
Bon bien sûr, l'ajout du Range("A1:A200" ) ne compile pas, mais l'esprit de ce que je veux obtenir y est.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed