Sauvegarder en csv les cellules avec des informations

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Sauvegarder en csv les cellules avec des informations

mirascheat

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 :

Sub save_file()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
With .Workbooks("marche5.xls" ).Sheets("Library" ).Range(Range("A1" ), Range("A65536" ).End(xlUp))
.SaveAs "C:\library", xlCSV
End With
Sheets("Library" ).Activate
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub

par avance merci

Publicité

JihemAir

Je sais pas

Code :

Sub save_file()
Dim objSheet As Worksheet
With Application
.DisplayAlerts = False
.ScreenUpdating = False
Set objSheet = ThisWorkbook.Sheets("Feuil1" )
objSheet.Range("A1", "A65536" ).Select
ThisWorkbook.SaveAs "C:\library", xlCSV
.DisplayAlerts = True
.ScreenUpdating = True
End With
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 ?

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Sauvegarder en csv les cellules avec des informations

Sujets relatifs
Additionner les informations dans un fichier	[Java] import d'informations d'une page Web
[VBA] Enlever les bordure a toutes les cellules d'un tableau	[C++] Créer un fichier word a 2 cellules avec une image tif
informations pour la réalisation d'un formulaire	Besoin d informations sur les DLL SVP
initialisation et réception d'informations pas usb	[Matlab] comment sauvegarder une matrice en .txt avec mise en forme
comment sauvegarder tous les éléments d'un objet ?	Comment insérer un caractère dans 9000 cellules contenant un nombre
Plus de sujets relatifs à : Sauvegarder en csv les cellules avec des informations

Page générée en 0.082 secondes