Save as + nom fichier

Bonjour le forum

Je voudrais que mon fichier se "save-as" via un bouton dans un sous répertoire

Pour info le répertoire serais c:\MonFichier

Sous_répertoire MonFichier_Sheet1-C5_Sheet1-C6

Nom de fichier MonFichier_Sheet1-C5_Sheet1-C6_date_heure

J'ai essayé en prenant un exemple et en essayant d'adapter mais je ne suis pas très doué.

Pourriez-vous m'aider svp.

Pour info voici la soupe que j'ai faite...

Dans Module2

' Répertoire de sauvegarde
Public Sub DefinitionCheminNomFichier(ByRef RepertoryPath$, ByRef FileName$)

  RepertoryPath = "C:\MIKE\Devis " & Sheets("Maison type").Range("C5").Text & " " & Sheets("Maison type").Range("C6").Text

  ' Vérifier si chemin existe avec l'année, sinon le créer
  If Dir(RepertoryPath, vbDirectory) = "" Then MkDir RepertoryPath

  ' Chemin définitif
  RepertoryPath = RepertoryPath & "\"

  ' Vérifier si chemin existe, sinon le créer
  If Dir(RepertoryPath, vbDirectory) = "" Then MkDir RepertoryPath

  ' Nom du fichier
  FileName = "Devis_" & Sheets("Maison type").Range("C5").Text & " " & Sheets("Maison type").Range("C6").Text & "_" & Format(Date, "dd-mm-yy") & "_" & Format(Time, "hh-mm")

End Sub

Dans Module1

' Sauvegarde fichier excel
Private Sub SauverExcel()
Dim RepertoryPath As String, FileName As String
Dim Rep As Integer
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet

Application.ScreenUpdating = False
' Définition du chemin et nom du fichier
Call Module2.DefinitionCheminNomFichier(RepertoryPath, FileName)
' Si le répertoire demandé n'existe pas (voir procédure "DefinitionCheminNomFichier") on le créé

RepertoryPath = "C:\MIKE\Devis " & Sheets("Maison type").Range("C5").Text & " " & Sheets("Maison type").Range("C6").Text & "\"

ActiveWorkbook.SaveAs FileName:="Devis_" & Sheets("Maison type").Range("C5").Text & " " & Sheets("Maison type").Range("C6").Text & "_" & Format(Date, "dd-mm-yy") & "_" & Format(Time, "hh-mm")

Application.ScreenUpdating = True
End Sub

Bonjour Heavy_B,

En espérant avoir bien compris ta demande

Je te propose le code suivant :

Sub DefinitionCheminNomFichier()

 'Identification du répertoire de sauvegarde
  RepertoryPath = "C:\MIKE\Devis " & Sheets("Maison type").Range("C5").Text & " " & Sheets("Maison type").Range("C6").Text & "\"

  ' Vérifier si chemin existe avec l'année, sinon le créer
  If Dir(RepertoryPath, vbDirectory) = "" Then MkDir RepertoryPath

  ' Nom du fichier
  FileName = "Devis_" & Sheets("Maison type").Range("C5").Text & " " & Sheets("Maison type").Range("C6").Text & "_" & Format(Date, "dd-mm-yy") & "_" & Format(Time, "hh-mm")

    'Enregistrer-sous 
    ActiveWorkbook.SaveAs (RepertoryPath & FileName)

End Sub

Bonjour Shadoz,

Désolé de la réponse tardive mais j'avais pas mal de chose à faire et je n'ai eu le temps que maintenant de regarder à ce que tu as fait.

Je viens de tester et cela marche parfaitement, je pense que je cherche parfois trop loin...

Un très grand merci pour la solution.