Sélectionner qu'une zone à enregistrer

K

kjin

XLDnaute Barbatruc

• 15 Août 2008

• #2

Re : Sélectionner qu'une zone à enregistrer

Bonjour,
Un essai à adater
A+
kjin

 

Pièces jointes

• TestCsv_V1.zip

  7.3 KB · Affichages: 37

Vote positif 0 Vote négatif

G

ghost974

XLDnaute Nouveau

• 15 Août 2008

• #3

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 !

 

Vote positif 0 Vote négatif

G

ghost974

XLDnaute Nouveau

• 20 Août 2008

• #4

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

 

Vote positif 0 Vote négatif

G

ghost974

XLDnaute Nouveau

• 20 Août 2008

• #5

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 20 Août 2008

• #6

Re : Sélectionner qu'une zone à enregistrer

Salut ghost974, Kjin , le Forum

Pas sur d'avoir compris

essaye ça

Code:

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

 

Dernière édition: 20 Août 2008

Vote positif 0 Vote négatif

G

ghost974

XLDnaute Nouveau

• 20 Août 2008

• #7

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é

 

Vote positif 0 Vote négatif