J'ai un fichier excel pour des demandes d'absence.
J'ai fait un code VB qui, quand quelqu'un tape nom/prénom, motif, ... , il tape sur un boutonn "Exécuter" et le document excel s'enregistre sous un autre nom en gardant l'original intact. De plus, le fichier excel créé est vérouillé.

Je voudrais que le fichier créé prenne le nom de deux cellules concaténées (une cellule avec nom/prénom et une autre avec la date actuelle). Je n'y arrive pas. Je vous mets mon 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
 
Private Sub Exécuter_Click()
Dim Choix As String
 
Choix = Range("G6")
 
With ActiveSheet
.Copy ' crée un classeur avec la feuille active
End With
ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True
With ActiveWorkbook
.SaveAs "P:\PRIOUL" & "\" & Filename = (Choix)
.Close ' si nécessaire
End With
 
ThisWorkbook.Close False
 
 
End Sub
De plus, les cellules dont je prendre le contenu sont des cellules fusionnées (je sais pas si ça interfère).

Merci d'avance