Discussion :

[tytos]

Bonjour
J'aimerais savoir si c'est possible de créer un nouveau fichier à partir d'un userform (C'est a dire s'il existe un code que je peu actors derrière un bouton ) mais retrouvé toutes les feuilles comme dans l'ancien fichier exactement avec le même userforme dans le nouveau fichier
Merci

[riaolle]

Bonjour,
Pour faire cela tu peux enregistrer sous un autre nom le fichier.

[Invité]

Bonjour,
set NewWb =workbooks.add("c:\rep\ancienFicher.xlsm")

[kiki29]

Salut, si j'ai bien tout compris, tu peux utiliser ce genre de fonction pour garder le même nom de fichier, mais
en ajoutant un indice comme pour les copies Windows. Voir un exemple d'utilisation pour des PDF : ici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Function RenommerFichier(sDossier As String, sNomfichier As String) As String
Dim sNouveauNom As String
Dim sPre As String, sExt As String
Dim i As Long
Dim FSO As Object
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists(sDossier & "\" & sNomfichier) Then
        sNouveauNom = sNomfichier
        sPre = FSO.GetBaseName(sNomfichier)
        sExt = FSO.GetExtensionName(sNomfichier)
 
        i = 0
        While FSO.FileExists(sDossier & "\" & sNouveauNom)
            i = i + 1
            sNouveauNom = sPre & Chr(40) & Format(i, "000") & Chr(41) & Chr(46) & sExt
        Wend
        sNomfichier = sNouveauNom
    End If
    Set FSO = Nothing
 
    RenommerFichier = sDossier & "\" & sNomfichier
End Function

[tytos]

sincère merci ca à marché.