Demande d' aide sur Macro export

[Aladin]

Bonjour le forum
J' ai une macro qui fonctionne tres bien pour une exportation en fichier texte
mais je veux la modifier en lui faisant faire un arret lorsqu' il rencontrera en colonne a le mot "depart reservé interdit"
Voici la macro
Sub Export_txt()
Dim c As Range, ValC As String
Sheets("DATA").Select
Open "E:\recap.txt" For Output As 1
For Each c In Range("A1:F130")
ValC = c.Value
If ValC <> "" Then
Print #1, Application.Trim(ValC)
End If
Next c
Close #1
End Sub
Merci d' avance pour tpute aide sur la modif de cette macro
Aladin

 

[pierrejean]

Re : Demande d' aide sur Macro export

bonjour Aladin

pour terminer l'export teste

Sub Export_txt()
Dim c As Range, ValC As String
Sheets("DATA").Select
Open "E:\recap.txt" For Output As 1
For Each c In Range("A1:F130")
ValC = c.Value
If ValC<>"depart reservé interdit" then
If ValC <> "" Then
Print #1, Application.Trim(ValC)
End If
Else
Exit for
End If
Next c
Close #1
End Sub

 

[Aladin]

Re : Demande d' aide sur Macro export

Bonjour PierreJean et le forum
Merci pour ta modif, le test est positif, c est exactement ce que je voulais.
excellent travail et bonne continuation
Aladin

 

[Aladin]

Re : Demande d' aide sur Macro export

Bonjour le forum
Je reprend mon post car je voudrais changer cette macro en faisant intervenir une boite de dialogue pour l' enregistrement et non le chemin en dur.
Merci d' avance pour toute aide
Aladin

 

[pierrejean]

Re : Demande d' aide sur Macro export

bonjour Aladin

après avoir energiquement frotté ta lampe teste

Sub Export_txt()
Dim c As Range, ValC As String
Sheets("DATA").Select
[COLOR=red]on error goto fin[/COLOR]
[COLOR=red]chemin = InputBox("Chemin SVP", "Export")
[/COLOR]Open [COLOR=red]chemin[/COLOR] For Output As 1
For Each c In Range("A1:F130")
ValC = c.Value
[COLOR=black]If ValC<>"depart reservé interdit" then
[/COLOR]If ValC <> "" Then
Print #1, Application.Trim(ValC)
End If
[COLOR=black]Else
Exit for
End If
[/COLOR]Next c
Close #1
[COLOR=red]exit sub[/COLOR]
[COLOR=red]fin:[/COLOR]
[COLOR=red]msgbox("Chemin non valide")[/COLOR]
[COLOR=red]onerror goto[/COLOR][COLOR=red] 0[/COLOR]
End Sub

 

[Aladin]

Re : Demande d' aide sur Macro export

Bonjour le forum et PierreJean
Je te remercie pour la modif, elle fonctionne parfaitement en entrant le chemin dans la boite de dialogue, mais y a t- il moyen de le faire avec la boite de dialogue de Windows ?
N' y aurait il pas moyen de mettre les données sur la meme ligne
A1:F1 (meme ligne)
A2:F2 (meme ligne)
Merci d' avance pour toute aide
Aladin

 

[pierrejean]

Re : Demande d' aide sur Macro export

bonjour Aladin

pour la seconde partie de ta question:

Teste

Sub Export_txt()
Dim c As Range, ValC As String
Sheets("DATA").Select
[COLOR=red]on error goto fin[/COLOR]
[COLOR=red]chemin = InputBox("Chemin SVP", "Export")[/COLOR]
Open [COLOR=red]chemin[/COLOR] For Output As 1
For Each c In Range[COLOR=red]("A1:A30")[/COLOR]
[COLOR=red]for n=1 to 6[/COLOR]
[COLOR=red]ValC = ValC & Cells(c.Row,n) & " "[/COLOR]
[COLOR=red]next n[/COLOR]
[COLOR=red]If Instr(ValC,"depart reservé interdit")=0 then[/COLOR]
If ValC <> "" Then
Print #1, Application.Trim(ValC)
End If
[COLOR=black]Else[/COLOR]
[COLOR=black]Exit for[/COLOR]
[COLOR=black]End If[/COLOR]
Next c
Close #1
[COLOR=red]exit sub[/COLOR]
[COLOR=red]fin:[/COLOR]
[COLOR=red]msgbox("Chemin non valide")[/COLOR]
[COLOR=red]onerror goto[/COLOR][COLOR=red] 0[/COLOR]
End Sub

pour la 1ere partie, je regarde

 

[pierrejean]

Re : Demande d' aide sur Macro export

Re

Apres recherche, je t'invite a aller ici, et en fin de page telecharger le classeur démo

Utiliser le contrôle ListView en VBA Excel - Club d'entraide des développeurs francophones

 

[Aladin]

Re : Demande d' aide sur Macro export

Bonjour le forum et Pierrjean
Je te remercie pour ton travail et aussi pour le lien qui m' aidera enormément. La macro me donne le resultat attendu.
Aladin