Variable de nom de fichier pour l'export vers txt

Résolu
ic_ba Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
boujour,

Voilà, il y a t-il quelqu'un qui peut m'aider concernant une variable de nom de fichier pour un export en txt.
Ci-dessous dans le code ligne 5, je cherche à changer 'Fichier.txt' par une variable contenu dans une cellule ("ex: E11") de la Feuil1. Si on peut introduire STXT(E11,..,..) c'est encore mieux.
merci de votre aide,

voici le code VBA: 

Private Sub CommandButton1_Click()
Dim myFso As Object, csvFile As Object, textLine As String
Dim exportFileName As String
Dim curCell As Range

exportFileName = "C:\repertoire\Fichier.txt"

Set myFso = CreateObject("Scripting.FileSystemObject")
Set csvFile = myFso.CreateTextFile(Filename:=exportFileName, overwrite:=True)

Set curCell = ThisWorkbook.Sheets("Feuil1").Range("A1")

While curCell.Text <> vbNullString
    textLine = vbNullString
    While curCell.Text <> vbNullString
        textLine = textLine & IIf(textLine = vbNullString, vbNullString, vbTab) & curCell.Text
        Set curCell = curCell.Offset(0, 1)
    Wend
    Set curCell = ThisWorkbook.Sheets("Feuil1").Range("A" & curCell.Row + 1)
    ' écrire la ligne dans le fichier
    csvFile.WriteLine textLine
Wend

csvFile.Close
Set csvFile = Nothing: Set myFso = Nothing

End Sub


Cordialement.
A voir également:

2 réponses

Réponse 1 / 2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

Peut être tout simplement : 

Dim NomFic As String

NomFic = Sheets("Feuil1").Range("E11").Value
'on ajoute l'extension .txt si celle-ci n'est pas saisie dans la cellule
If Right(NomFic, 4) <> ".txt" Then NomFic = NomFic & ".txt"
exportFileName = "C:\repertoire\" & NomFic
2
Réponse 2 / 2
ic_ba Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
merci Franck,

ça fonctionne à merveille tout simplement.

Cordialement
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
De rien.
A+
0

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site
ScarexStupid -
Rossignol -

9 réponses
Colis en cours de transport vers votre site de livraison ?
Ninan_5568 -
JulieVdr -

7 réponses
vérifiez la variable d'environnement TEMP
erwan38 -
F4 -

72 réponses