Sélectionner qu'une zone à enregistrer

[ghost974]

Bonjour,

J'aimerais sauvegarder un tableau excel au format csv, mais qu'une seule partie.
Est ce que c'est possible de faire une sorte de sélectionner des cellules à conserver pour la sauvegarde ?

Merci

 

[kjin]

Re : Sélectionner qu'une zone à enregistrer

Bonjour,
Un essai à adater
A+
kjin

 

[ghost974]

Re : Sélectionner qu'une zone à enregistrer

Waow génial 😱, c'est exactement ce que je voulais, merci merci ! je vais essayer d'adapter à mes besoins, je reviens vers toi si j'ai des problèmes !

 

[ghost974]

Re : Sélectionner qu'une zone à enregistrer

Ca marchait parfaitement, càd que le fichier se créait dans le meme répertoire que le fichier excel d'origine mais maintenant, je ne sais pas pourquoi, les nouveaux fichiers vont se créer dans Mes documents, là où sont en fait automatiquement enregistrés mes Workbook .xlsx (je suis sous office 2007).
Pourquoi ?
Merci

 

[ghost974]

Re : Sélectionner qu'une zone à enregistrer

En fait je souhaite créer un fichier dans le dossier courant. Application.path enregistre dans celui de l'application, ce n'est pas ca que je veux.
Si ma macro ce truc sur un fichier dans c:/blabla/excel.xls, je veux que le fichier créé aille dans c:/blabla

Merci pour votre aide

 

[Dull]

Re : Sélectionner qu'une zone à enregistrer

Salut ghost974, Kjin 🙂, le Forum

Pas sur d'avoir compris 😱

essaye ça

Sub ExportCsv()
Dim Plage As Range, Lign As Variant, Cel As Range, VCel As String
Set Plage = ActiveSheet.Range("A1:D10")
Open[B] ThisWorkbook.Path & "/" & [/B]Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".csv" For Output As #1
For Each Lign In Plage.Rows
VCel = ""
For Each Cel In Lign.Cells
VCel = VCel & Cel.Value & ";"
Next
Print #1, VCel
Next
Close
End Sub

Edition : le 974 veut-il dire ce que je crois?
Nou artrouv 🙂

Bonne Journée

 

[ghost974]

Re : Sélectionner qu'une zone à enregistrer

Merci c'est exactement ça 😉

ps: Ouaip le 974 veut dire ce dont à quoi tu penses 😎 Mais j'suis au Canada pour étude héhé