Voici mon code VBa , est-ce que quelque chose permet de réouvrir le dernier fichier excel que j'ai sauvegardé ????
Sub sauvegardesimple()
Application.ScreenUpdating = False
'client en B2 à adapter
nom = Range('J1673')
'N° en A2 à adapter
numéro = Range('J1674').Value
'nom de la feuille à adapter
nomfeuille = 'Devis simplifié (2)'
'répertoire courant et sousrépertoire de stockage
répertoire = ThisWorkbook.Path & '\\Répertoire de stockage\\'
'vérif sousrépertoire existe
Set fs = CreateObject('scripting.filesystemobject')
If fs.folderexists(répertoire) = False Then
répertoire = ThisWorkbook.Path
End If
'choix
ChDir (répertoire)
fermer = Application.GetSaveAsFilename(nom & numéro & '.xls', 'Fichiers Excel,*.xls')
If fermer = False Then erreur = 1: Exit Sub
'Sheets(nomfeuille).Copy
'empêche les messages d'erreur
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=fermer _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
'autorise les messages d'erreur
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub