Exporter des données d'un tableau Excel vers un fichier csv sous condition avec "print"

**Thierry_59300** · 06/04/2016, 11h43

Bonjour à tous !

Je souhaite exporter une plage de données d'un tableau Excel vers un fichier .csv grâce à la commande print.

J'ai créé un bouton avec une macro qui fonctionne et qui me copie toutes les données vers un fichier csv :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Bouton_Click()
Dim Plage As Object, oL As Object, oC As Object, Tmp As String
Set Plage = Worksheets("ONGLET_1").Range("a2:g" & Worksheets("ONGLET_1").Range("C65000").End(3).Row)
Open "Nomdefichier.csv" For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & ";"
Next
Print #1, Tmp
Next
Close
Shell "C:\Program Files (x86)\Notepad++\notepad++.exe " & "C:\Users\" & Environ("username") & "\Documents\Nomdefichier.csv", vbNormalFocus
End Sub

Mon problème c'est que je souhaiterais ne pas recopier les lignes du tableau lorsque le mot "NU" se trouve dans la colonne C.

J'ai essayé d'inclure une condition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
    
          While Cells(oL, 3).Value <> NU              'ajout de la commande While

Tmp = Tmp & CStr(oC.Text) & ";"

          Wend                'ajout d'un code de fin

Next

Apparemment ma syntaxe n'est pas bonne mais je n'arrive pas à comprendre où est mon erreur.

Si quelqu'un peut m'aider, je le remercie par avance !

**Marc-L** · 06/04/2016, 12h03

Bonjour !

Il y a pourtant une l'icône # dédiée pour baliser le code
et même une animation dans les règles de ce forum pour les moins doués ‼

Si tu traduis ton ajout : « Tant que la cellule est différente de la variable s'appelant NU alors … »
Donc plusieurs erreurs !
• Déjà il n'y a pas de variable NU; pour du texte ne pas oublier les guillemets ‼
• oL n'est pas une référence de ligne, ne peut être utilisée dans Cells !
• Pourquoi ne pas utiliser la variable objet oC de la boucle For ?!

Sinon repartir du code initial en ajoutant un simple If …

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

**Thierry_59300** · 06/04/2016, 12h12

OK, merci pour cette réponse, je vais reprendre mon code en me servant de la fonction If

**Thierry_59300** · 07/04/2016, 07h49

Bonjour,

Après pas mal d'essais, j'arrive au bout de ma macro en utilisant un if comme recommandé par Marc_L.

Voici mon code pour celui ou celle que çà intéresse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Private Sub Bouton_Click()
 
Dim Plage As Object, oL As Object, oC As Object, Tmp As String
Set Plage = Worksheets("ONGLET_1").Range("a2:g" & Worksheets("ONGLET_1").Range("C65000").End(3).Row)
Open "Nomdefichier.csv" For Output As #1
For Each oL In Plage.Rows
If oL.Cells(3) <> "NU" Then
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & ";"
Next
Print #1, Tmp
Debug.Print Tmp
End If
Next
Close
Shell "C:\Program Files (x86)\Notepad++\notepad++.exe " & "C:\Users\" & Environ("username") & "\Documents\Nomdefichier.csv", vbNormalFocus
 
End Sub

Bonne journée à tout le monde !

**Marc-L** · 07/04/2016, 09h15

La fonction CStr de la ligne de code n°12 ne sert à rien car la donnée .Text est déjà du texte !

______________________________________________________________________________________________________

Copier / Coller n'est pas programmer !

**Thierry_59300** · 07/04/2016, 09h35

Bonjour Marc et merci pour cette réponse.

J'ai supprimé la fonction CStr, mais lorsque je lance ma macro, le fichier txt qui s'ouvre ne fait apparaître que des ;;;;.

Je n'ai plus aucune donnée de mon tableau.

Je ne comprends pas mon erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part