fichier excel: le nom est variable

[nayrous]

Bonjour le forum,

j'ai un userform dans lequel je saisie le nom du fichier à créer.
je renomme ses onglets.
ensuite, importer les données à partir d'un fichier texte dans chaque onglet
Les deux classeurs sont ouverts

Mon problème c'est:
apès avoir créer le fichier,le nom est variable, je ne sais pas comment le déclarer

Mon idée est de copier le nom de fichier dans la cellule "A1" ensuite je récupère le nom à partir de la cellule
voici le code:
Sub Test()
' Variable objet d'un classeur
Dim essai As Workbook
Dim Newclss As Workbook

' Instanciation de la variable pour connaître le classeur actif
Set essai = ActiveWorkbook
If UserForm1.TextBox1.Value <> "" Then
Set Newclss = essai.Sheets("Feuil1").Range("A1").Value
End If

' Amène le classeurs cible en avant plan, celui-ci devient le [ ActiveWorkbook ]
Newclss = Workbooks("Newclss.xls").Activate
' je remplie la feuille à partir du fichier texte

End Sub
ce code n'est pas fonctionnels.

je vous joins mon exemple.

sinon, S.V.P proposez-moi d'autre solution.

merci d'avance
cordialement,

 

[Gorfael]

Re : fichier excel: le nom est variable

Salut nayrous et le forum
Comme l'extrait de macro contient une erreur, je pense que ça suffit :
Set Newclss = essai.Sheets("Feuil1").Range("A1").Value

Tu déclares la variable Newclss comme étant un classeur (ça c'est bon), par contre tu lui attribues la valeur d'une cellule => il faut que tu crées un nouveau classeur et que tu lui attribues un nouveau nom (celui de la valeur de la cellule). Ou tu ouvres le classeur du nom de cette cellule.
Set Newclss = WorkBooks(essai.Sheets("Feuil1").Range("A1").Value)
A+

 

[nayrous]

Re : fichier excel: le nom est variable

merci Gorfael pour votre réponse
mais j'ai encore une erreur de compilation:"Fonction ou variable attendue"
' Amène le classeurs cible en avant plan, celui-ci devient le [ ActiveWorkbook ]
Newclss = Workbooks("Newclss.xls").Activate