Exporter des données en CSV_VBA Résolu/Fermé

Question

Bonjour, 

Je suis en train de mettre en place un outil permettant d'exporter une plage de données de mon classeur en CSV avec comme séparateur (^)

L'idée c'est une fois appuyer sur le bouton, il se crée un répertoire. Ce répertoire contiendra des sous répertoire représentant chacun le répertoire d'enregistrement de mon fichier CSV généré.
Jusqu'ici tout va bien.

Mon problème c'est que, ma macro arrive à créer le répertoire et les sous répertoire, mais dans mon répertoire, les données ne sont pas exportées.
S'il vous plaît, je dois rendre ce travail pour demain soir.

Voici un exemple de mon travail avec les macros: https://www.cjoint.com/c/DJwqtCH1nDt 


Au secours !

Partager son savoir est la meilleure façon d'apprendre!

Le Pingou · Answer

Bonjour,
Vaux-t-il la peine de chercher la solution ou c'est trop tard ... ?

senecartour · Answer

Bonsoir Le Pingou,
Non, je galère toujours je n'arrive pas à trouver la solution.
Si vous pouvez m'aider à résoudre le problème ce sera vraiement gentil!
Merci d'avance,

Le Pingou · Answer

Bonjour,
OK je regarde votre fichier et comment fonctionne votre code.....  pour cerner le problème... !

Le Pingou · Answer

Bonjour,
A première vue, il manque une valeur pour [cMax] dans la ligne d'instruction :  For Index = 1 To cMax
Avez-vous une précision.... ?

senecartour · Answer

Au fait je n'ai pas de précision sur Max, j'ai essayé de d'dapter un code retouvé sur le net.
Mais mon idée, c'est d'arriver à extraire en csv la palge de donnée.
Si vous avez une solution, vous pouvez modifier le code!!
Merci d'avance!

Le Pingou · Answer

Bonjour,
Merci pour l'information, la solution pour demain.
Toutefois essayer de supprimer la ligne d'instruction 

For Index = 1 To cMax
y compris :       Next Index
Bonne nuit.
 
 
Salutations.
Le Pingou

senecartour · Answer

Bonsoir Le Pingou,
Avez-vous trouvé la solution?
Merci d'avance!

Le Pingou · Answer

Bonjour,
J'attendais de savoir si vous avez essayé selon mon message précédent !

Le Pingou · Answer

Bonjour,
Ou voulez-vous insérer la plage de donnée à exporter (la position dans le classeur CSV.... ?

Le Pingou · Answer

Bonjour,
Pour finaliser la solution j'ai besoin de la réponse aux 2 messages précédents !

Maurice · Answer

Bonjour

le principe des csv le separateure est ";"

Voila une macro avec le test du repertoire

Sub CreatRepertoire()
Chemin = ActiveWorkbook.Path & "\"
   MonRep = Chemin & "Export"
      If Dir(MonRep, vbDirectory) = "" Then
         MkDir (MonRep)
      End If
 Export MonRep
End Sub

Sub Export(Chemin)
Non = ActiveSheet.Name
Ext = ".csv"
Fichier = Non & Ext
CheminFiche = Chemin & "\" & Fichier
Sep = ";"
Nlig = Cells(Rows.Count, 2).End(xlUp).Row
   Set Plage = Range("B6:E6,B8:E" & Nlig)
      Open CheminFiche For Output As #1
         For Each Lig In Plage.Rows
            Tmp = ""
               For Each Cel In Lig.Cells
                  Tmp = Tmp & CStr(Cel.Text) & Sep
               Next
            Print #1, Tmp
         Next
      Close
   Set Plage = Nothing
MsgBox "Votre fichier CSV a été créé avec succès!"
End Sub

A+
Maurice

Le Pingou · Answer

Bonjour,
Merci pour l'information.
Concernant la suppression de  For Index = 1 To cMax y compris : Next Index
Le fichier [csv] est bien créer mais il est vide.

Entre temps Maurice vous a fournis une solution, ne voulant pas faire les choses à double, est-ce que cela vous suffit pour adapter votre code... ?

Le Pingou · Answer

Bonjour,
Dans l'attente de votre bon vouloir, voici ma proposition basé sur votre fichier : https://www.cjoint.com/?3JAo7MMnNpw

senecartour · Answer

Le Pingou,
Vous ne savez même pas à quel point vous m'avez sauvé!
C'est excellet! c'est exactement ce que je voulais
Merci infiniement.

En parallèle, Je souhaiterais rajouter une module dans mon outil qui permet de masquer certains onglets en fonction de la valeur dans un autre onglet.
 J'ai commencé à coder mais je suis bloqué. Voici mon code:


Sub masquer_onglet()

Dim ws As Worksheet
Dim ilinecourante As String
Dim iderligne As String
Dim icolonnecourante As String
Dim idernierecolonne As String

iLigneCourante = 3
ipremierecolonne = 1
idernierecolonne = 2
iDerniereLigne = Sheets("Validation_Onglets").Range("A" & Rows.Count).End(xlUp).Row


With ActiveWorkbook
For iLigneCourante = 3 To iDerniereLigne
If Worksheet.Name = Worksheets("Validation_Onglets").Cells(iLigneCourante, 1).Value 
And  Worksheets("Validation_Onglets").Cells(iLigneCourante, 2) = "OUI"
Then
    Worksheet.Visible = xlSheetVeryHidden
iLigneCourante = iLigneCourante + 1
End If
Next
End With

Je vous remets le fichier: https://www.cjoint.com/?DJApSw3YDti


Si vous m'aidez à résoudre ce dernier point, vous me sauvez vraiment

End Sub

Le Pingou · Answer

Bonjour,
Merci pour l'information.
J'ai donné un oeil à votre fichier et je suis surpris que l'export ne fonctionne pas et dans ce cas je ne vais pas aller plus loin sans une explication.

Maurice · Answer

Bonjour

tien voila ta macro modifier

Sub Masquer_Onglet()
Nlig = Cells(Rows.Count, 1).End(xlUp).Row
   For L = 4 To Nlig
      If Cells(L, 2).Value = "Oui" Then
            Sheets(Cells(L, 1).Value).Visible = 2
         Else
            Sheets(Cells(L, 1).Value).Visible = -1
      End If
   Next
End Sub

A+
Maurice

Maurice · Answer

re

voila ton modele avec les Boutons

http://cjoint.com/?3JAsZu3PWut

A+

Maurice

Maurice · Answer

Bonjour
je voie que 2 plage

voila une dernier macro 

Sub CreatRepCsv()
Chemin = ActiveWorkbook.Path & "\"
   MonRep = Chemin & "Dossier"
      If Dir(MonRep, vbDirectory) = "" Then
         MkDir (MonRep)
      End If
 ExportCsv MonRep
End Sub

Sub ExportCsv(Chemin)
Non = ActiveSheet.Name
Ext = ".csv"
Fichier = Non & Ext
CheminFiche = Chemin & "\" & Fichier
Sep = ";"
Nlig = Cells(Rows.Count, 2).End(xlUp).Row
Set A = Range(Cells(7, 2), Cells(8, 6))
Set B = Range(Cells(18, 2), Cells(Nlig, 6))
   Set plage = Union(A, B)
      Open CheminFiche For Output As #1
         For Each Lig In plage.Rows
            Tmp = ""
               For Each Cel In Lig.Cells
                  Tmp = Tmp & CStr(Cel.Text) & Sep
               Next
            Print #1, Tmp
         Next
      Close
   Set A = Nothing
   Set B = Nothing
   Set plage = Nothing
MsgBox "Votre fichier CSV a été créé avec succès!"
End Sub

A+
Maurice

senecartour · Answer

Bonsoir Maurice,
Merci beaucoup! c'est super!
Désolé pour le retard, j'étais en vacance!

Avec tes astuces, je me suis bien amélioré en VBA! Je continue à apprendre!
Encore Merci!

Maurice · Answer

Bonjour
Voila une nouvelle version
http://cjoint.com/?0KmncrSatyS

A+
Maurice

Exporter des données en CSV_VBA

20 réponses

Discussions similaires