Discussion :

[catsyl]

Bonjour,

Je me suis fait aidé et je dispose d'un petit formulaire sur lequel une cellule incrémente le numéro de la fiche incident.
Il s'agit d'un fichier XLS avec une macro.

Plusieurs personnes auront à créer des fiches incident. Je souhaiterais maintenant, que le formulaire soit renseigné, puis enregistré, si possible avec le nom de la cellule "num fichier", au format XLS (sans macro).
J'obtiendrai donc un dossier contenant le formulaire et un autre dossier contenant les n formulaires correctement nommés.

Est ce possible ? Je joins le fichier.
D'avance, merci.

[jfontaine]

Bonjour,

Ci dessous une procédure exemple

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
Sub Export_Onglet()
 
Dim strFichier As String
Dim sh As Worksheet
 
Set sh = ThisWorkbook.ActiveSheet
 
 
ThisWorkbook.ActiveSheet.Copy
 
strFichier = ThisWorkbook.Path & "\" & sh.Range("C2").Value & ".xls"
 
ActiveWorkbook.SaveAs Filename:=strFichier, FileFormat:=xlNormal, Password:="", writerespassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
 
ActiveWorkbook.Close
 
End Sub

[catsyl]

Merci Jérôme,

Mon niveau est basic, alors je voudrais savoir :
est ce que je dois simplement copier le code que tu me recommandes dans ma fenêtre à la suite de :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Fiche Incident").Select
n = Right([G2], 1) + 1
k = Right([G2], 2): k = Left(k, 1)
If n = 10 Then
n = 1
k = Split(Range(k & "1").Offset(, 1).Address, "$")(1)
End If
If k = "AA" Then k = "A": n = 1
[G2] = "XXX" & Date & k & n
End Sub

Merci.

[jfontaine]

Non, il est préférable de mettre ce code dans Module.

Dans cet exemple on considère que le nom du fichier se trouve dans la cellule C2 il te faut adapter à ton cas.

[catsyl]

Merci Jérôme, mais ça ne fonctionne pas.
J'ai pourtant placé le code dans Module puis enregistré.

Normalement, en ouvrant le formulaire, le numéro en G2 s'incrémente, puis à l'enregistrement est généré un fichier XLS portant le nom de cette cellule G2.

Je ne sais pas ou est mon erreur. Merci pour le coup de main.

(formulaire joint)