Nommer un classeur et stocker son adresse aussi

bonjour,

j'essais de faire nommer un classeur créé et aussi de le manipuler avec son adresse.

Mais juste sauvegarder le classeur, ça ne marche pas.

C'est dur à quoi ?

Sub projet() Dim nom_base, ram As String ram = ".xlsx" Workbooks.Add nom_base = InputBox("nom_base", "nommer votre fichierfinale") Active.Workbooks.Close SaveChanges = True End Sub

Bonjour,

Essaie plutôt :

Sub projet()
    Dim nom_base As String
    nom_base = InputBox("nom_base", "nommer votre fichier")
    If nom_base <> "" Then
        Workbooks.Add
        With ActiveWorkbook
            .SaveAs nom_base & ".xlsx", xlOpenXMLWorkbook
            .Close
        End With
    End If
 End Sub

Cordialement.

Merci beaucoup Mferrand!