Nom de fichier valeur cellule
s
Bonsoir
je souhaite exporter un fichier txt a partir de mon fichier excel, avec comme nom du fichier la valeur d'une cellule
donc j'ai défini une variable w égale la valeur de la cellue en question
mais le fichier s'enregistre sous (w) au lieu de prendre la valeur associé à cette viriable
Voici mon code
Sub txtexport()
With Sheets("feuil2")
Dim w
w = Range("Q1").Value
Sheets("feuil1").Select
End With
Dim i As Long, derlig As Long, tabl
derlig = Range("A" & Rows.Count).End(xlUp).Row
tabl = Range("A1:A" & derlig)
Open "\\SERVEUR\dHistorique\ (w).txt" For Output As #1
For i = 1 To UBound(tabl, 1)
If tabl(i, 1) <> "" Then
Print #1, tabl(i, 1)
End If
Next
Close #1Bonsoir,
essayez ceci :
Open "\\SERVEUR\dHistorique\ " & w & ".txt" For Output As #1Il faut "sortir" la variable w de la ligne de code "texte" du chemin, pour cela, on ferme le texte on concatène la variable qui sera remplacée alors par sa valeur et on ré ouvre afin de finir le "chemin"
@ bientôt
LouReeD
Ravis que cela vous convienne !
@ bientôt
LouReeD