Concatener le nom d'une feuille avec la valeur d'une cellule pour enregistrement

[AlCapone]

Bonjour,

Nouveau petit problème sur macro. Je souhaiterai nommer le fichier texte que j'enregistre depuis une feuille excel via la macro ci-dessous mais en concaténant le nom de la feuille avec la valeur d'une cellule.
Cette macro récupérée sur un forum et adaptée, fonctionne nickel mais je n'arrive pas y inclure la fonction.

J'ai essayé : Fichier = "ImportFourn_Clt"&"Range("c6")&".txt"
Mais visiblement j'ai dû loupé un épisode et surtout pas encore commencé ma formation VBA.


Dim fs As Object, a As Object
Dim Chemin As String, Fichier As String
Dim var1 As String
Const sep As String = vbTab

Application.ScreenUpdating = False

Chemin = "u:\A - xxxxx\xxxxxxx\xxxxxx"
Fichier = "ImportFourn_Clt.txt"

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Chemin & "\" & Fichier, True)

With Worksheets("Fichier d'import")
For x = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(x, 14) <> 0 Or .Cells(x, 15) <> 0 Then
For Y = 1 To 15
var1 = var1 & sep & .Cells(x, Y)
Next Y
a.WriteLine Right(var1, Len(var1) - 1): var1 = vbNullString
End If
Next x
a.Close
End With

Set a = Nothing: Set fs = Nothing



Vous remerciant de vos lumières,

AlCapone

 

[Paf]

Re : Concatener le nom d'une feuille avec la valeur d'une cellule pour enregistrement

Bonjour

peut-être Fichier = "ImportFourn_Clt" & Range("c6") & ".txt"

A+

 

[AlCapone]

Re : Concatener le nom d'une feuille avec la valeur d'une cellule pour enregistrement

Bonjour Paf,

Toujours en veille VBA 🙂

J'ai un message d'erreur sur cette ligne :

Set a = fs.CreateTextFile(Chemin & "\" & Fichier, True)


AlC...

 

[Paf]

Re : Concatener le nom d'une feuille avec la valeur d'une cellule pour enregistrement

re,

plusieurs raisons possibles
- le répertoire n'existe pas
- ou plus probable, la Cellule C6 contient des caractères interdits comme "/" par exemple

A+

 

[AlCapone]

[RESOLU] Concatener le nom d'une feuille avec la valeur d'une cellule pour enregist

Oui, effectivement les "/" de la date n'ont pas plus.

Après modif' du format, ça fonctionne.

Merci bien

AlC...