Sauvegarder en csv les cellules avec des informations

Sauvegarder en csv les cellules avec des informations - VB/VBA/VBS - Programmation

Marsh Posté le 25-06-2004 à 13:21:07    

Bonjour,
Je voudrais sauvegarder une feuille de mon classeur en .csv mais seulement les cellules avec des informations ... j'ai tenté celà mais ca ne semble pas marcher :

Code :
  1. Sub save_file()
  3. With Application
  4.     .DisplayAlerts = False
  5.     .ScreenUpdating = False
  6.    
  7.     With .Workbooks("marche5.xls" ).Sheets("Library" ).Range(Range("A1" ), Range("A65536" ).End(xlUp))
  8.         .SaveAs "C:\library", xlCSV
  9.     End With
  10.     Sheets("Library" ).Activate
  11.    
  12.     .DisplayAlerts = True
  13.     .ScreenUpdating = True
  14. End With
  15.    
  16. End Sub


 
par avance merci

Reply

Marsh Posté le 25-06-2004 à 13:21:07   

Reply

Marsh Posté le 25-06-2004 à 13:39:03    

Code :
  1. Sub save_file()
  2. Dim objSheet As Worksheet
  4.     With Application
  5.         .DisplayAlerts = False
  6.         .ScreenUpdating = False
  7.         Set objSheet = ThisWorkbook.Sheets("Feuil1" )
  8.         objSheet.Range("A1", "A65536" ).Select
  9.         ThisWorkbook.SaveAs "C:\library", xlCSV
  10.        
  11.         .DisplayAlerts = True
  12.         .ScreenUpdating = True
  13.     End With
  14.      
  15. End Sub

Je pense qu'il faut passer par un objet feuille.


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
Reply

Sujets relatifs:

Leave a Replay

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