Enregistrement portant le nom de plusieurs cellules

foobr · 8 Novembre 2018

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)

Code:

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 · 9 Novembre 2018

j'ai reussi a faire ça

Code:

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.

Enregistrement portant le nom de plusieurs cellules

foobr

XLDnaute Nouveau

foobr

XLDnaute Nouveau

Discussions similaires