Bonjour tout le monde
J'essais de créer un nouveau fichier exel en l'enregistrant.
j'arrive à créer un nouveau fichier, mai je n'arrive pas à le nommer.
Voici le code
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 Sub enregistrersous() Dim msg As String Dim nomClasseur As String Dim vclasseur As Workbook On Error Resume Next Set vclasseur = Workbooks.Add nomClasseur = Application.GetSaveAsFilename If Err.Number <> 0 Then msg = "impossible d'enregistrer le Classeur" & nomClasseur & vbCr msg = msg & "erreur N° " & Err.Number & " : " & Err.Description MsgBox msg, vbExclamation, "Enregistrement impossible" End If End Sub
Y a t'il un moyen de nommer le fichier lors de sa création.
Cordialement
A bientôt
Partager