Probleme sur une macro d'enregistrment en TXT

[christ-94]

Bonjour

J'utilise une macro qui crée un fichier TXT
aujourd'hui j'aimerais une modification (que le chemin et le chemin du fichier soit recupere dans une cellule "feuil2, renge a1")

voici le code que j'utilise

Sub ExportTXT()
Dim Range As Object, Line As Object
Dim StrTemp As String
Dim Rep As Variant
Dim L As Integer
Dim c As Byte

Rep = ("Q:\DIRIM\EXMA\Plan\test.scr")
If Rep = False Then Exit Sub

L = 1
With Sheets("Feuil1")
Set Range = .Range("A1:A2" & .Range("A65536").End(xlUp).Row) 'Quatre Colonnes
End With

Open Rep For Output As #1

For Each Line In Range.Rows
For c = 1 To 1
StrTemp = StrTemp & CStr(Cells(L, c).Text) 'Si séparateur TABULATION (par exemple
Next c
L = L + 1
Print #1, StrTemp
StrTemp = ""
Next

Close #1

Set Range = Nothing

J'ai bien modifier

Rep = ("Q:\DIRIM\EXMA\Plan\test.scr")

Par

Sheets ("feuil2")
Rep = Range("a1")

J'ai une erreur "variable objet ou variable bloc with non definie"

 

[wilfried_42]

Re : Probleme sur une macro d'enregistrment en TXT

salut à toi

ecris plutot req=sheets("Feuil2").range("A1").value


salutations

 

[christ-94]

Re : Probleme sur une macro d'enregistrment en TXT

Merci pour la reponse

Mais il y a toujours un probleme


j'ai modifier comme ca

Req = Sheets("Feuil2").Range("A1").Value
If Rep = False Then Exit Sub

la macro ne passe pas le if

J'ai donc supprime le if

Req = Sheets("Feuil2").Range("A1").Value
L = 1
With Sheets("Feuil1")
Set Range = .Range("A1:A2" & .Range("A65536").End(xlUp).Row) 'Quatre Colonnes
End With
Open Rep For Output As #1

Nouveau probleme, la valeur Rep reste a vide donc erreur dans la macro

 

[christ-94]

Re : Probleme sur une macro d'enregistrment en TXT

ci joint le fichier

Merci encore

 

[Hervé]

Re : Probleme sur une macro d'enregistrment en TXT

bonjour

regarde la syntaxe de ta variable :

Req = Sheets("Feuil2").Range("A1").Value
L = 1
With Sheets("Feuil1")
Set Range = .Range("A1:A2" & .Range("A65536").End(xlUp).Row) 'Quatre Colonnes
End With
Open Rep For Output As #1

salut

 

[christ-94]

Re : Probleme sur une macro d'enregistrment en TXT

Re-bonjour

Merci, a trop l'avoir sous les yeux
Impossible de voir l'erreur
Merci encore sa fonctionne