Discussion :

[m82cpr]

Bonjour,

J'ai créer un userform avec une zone de liste. En fonction du choix selectionné dans cette zone, un nom s'affiche dans une zone de texte au dessous.

J'aimerais enregister une copie de mon fichier excel et cette copie doit prendre le nom qui est dans la zone de texte de l'userform.

J'ai écrit le code pour enregistrer le fichier dans un dossier précis, mais je ne sais pas comment faire pour qu'il prenne le nom qui est dans la zone de texte du userform.

Voici mon code : (pour l'instant j'ai moi même mis le nom du fichier)

Sub CreerCopie()
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Range("nomdossier") & "\test.xlsm"
Application.Quit
End Sub

Toute aide serait la bienvenue.
Merci beaucoup

[Daniel.C]

Bonjour,

En adaptant le nom de l'userform et celui de la textbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub CreerCopie()
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & UserForm1.TextBox1 & ".xlsm"
Application.Quit
End Sub

[m82cpr]

Merci Daniel !
Ca fonctionne super bien.

Juste une dernière petite question. Comment puis-je faire pour que la copie s'enregistre dans un dossier que je viens de créer avec la première ligne de code. Le nom du dossier est inscrit dans la cellule que j'ai nommée nomdossier.

Sub CreerCopie()
MkDir ActiveWorkbook.Path & "\" & Range("nomdossier")
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & UserForm1.TextBox1 & ".xlsm"
Application.Quit
End Sub

Merci encore

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub CreerCopie()
MkDir ActiveWorkbook.Path & "\" & Range("nomdossier")
ThisWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & Range("nomdossier") & "\" & UserForm1.TextBox1 & ".xlsm"
Application.Quit
End Sub