Enregistrement portant le nom de plusieurs cellules

[foobr]

Bonjour,

Je viens vers vous pour la première fois mais surement pas la dernière

Je souhaite via une macro que mon fichier excel s'enregistre avec le nom portant plusieurs infos :
- En premier lieu un texte ne brut (saisie dans la macro )
- En second que cela corresponde a une cellule
- En 3 de même
- Et en 4 l'heure

TEST A1 B1 00h00m17s.xls (Exemple)

Sub Enregistrer()
Dim Nom As String
Nom = Range("A9") & ".xls"
If ThisWorkbook.Path = "" Then 'si le document n'a jamais été enregistré
  SendKeys Nom
  Application.Dialogs(xlDialogSaveAs).Show 'boîte de dialogue Enregistrer sous
Else
  If Range("A9") = "" Then MsgBox "Entrez le nom du fichier en A1", 48: Range("A9").Select: Exit Sub
  If MsgBox("Voulez-vous enregistrer le fichier sous le nom " & Nom & " ?", 4) = 6 Then
    On Error Resume Next
    ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Nom 'Enregistre dans le même dossier
    If Err Then MsgBox "Le nom proposé contient des caractères interdits", 48: Range("A9").Select
  End If
End If
End Sub

J'ai essayé via ce code récupérer sur le forum dans un autre topic mais sans succès.
PS: Est-ce possible d’exécuter la macro lors du simple clic enregistrement ? Ou faut passer obligatoirement par l’exécution d'une macro ?

Merci d'avance et une bonne soirée.
Cdt.

 

[foobr]

j'ai reussi a faire ça

Sub Enregistrer()
Dim Path As String
Dim FileName1 As String
Dim FileName2 As String
Dim FileName3 As String
Dim FileName4 As String
Dim FileName5 As String
Path = ""
FileName1 = Range("A2")
FileName2 = Range("B2")
FileName3 = Range("C2")
FileName4 = Range("D2")
FileName5 = Range("E2")
ActiveWorkbook.SaveAs Filename:="Poteau " & FileName1 & " " & FileName2 & " " & FileName3 & " " & FileName4 & " " & FileName5 & Format(Time, " HH""h""mm""m""s""s") & ".xlsm", FileFormat:=xlNormal
End Sub

Surement pas très propre mais bon fonctionnel.