Bonjour
Merci pour votre aide
Je souhaiterais que le nom du fichier soit automatique dans la macro et ne pas l'avoir à le réécrire dedans.
Par ailleurs je souhaiterais ajouter un h pour l'heure entre 13h50 par exemple et que la date soit ddmmyyyy.
Merci pour vore aide
Je souhaiterais en fait ne pas avoir à insérer manuellement le nom de mon fichier dans la macro comme par exemple test vba V1 mais que le nom soit insérer automatiquement dans le fichier lors de la sauvegarde.
Merci
J'ai essayé d'utiliser votre syntaxe pour l'heure et la date, cependant la syntaxe combinée suivante ne fonctionne pas :
SaveAs FileName:=ThisWorkbook.Path & "\" & " Fichier Commun FR_cloture juin 2013" & strDate & ".xlsx", [/B]FileFormat:=xlOpenXMLWorkbook
Merci
Sub XLSXSave()
Application.DisplayAlerts = False
Dim Fichier As String
Dim strDate As String
strDate = Format(Now, "mmm-dd-yyyy hh:h-mm")
Fichier = ThisWorkbook.FullName
With ActiveWorkbook .SaveAs FileName:=ThisWorkbook.Path & "\" & " Fichier Commun FR_cloture juin 2013" & strDate & ".xlsx", FileFormat:=xlOpenXMLWorkbook
End With
Dim wb As Workbook
For Each wb In Workbooks 'boucle sur tous les classeurs ouverts
wb.Close True 'fermeture du classeur avec sauvegarde
Next
ActiveWorkbook.Close
Application.Quit
Application.DisplayAlerts = True
End Sub