Bonjour le forum,
Pour Enregistrer Sous forme de fichier une feuille Excel, sous le nom de la cellule B3 assorti à la date du jour, j'utilise le code suivant:
1) comment faire pour annuler le lancement de la sauvegarde (du code) si la cellule B3 est vide ?
2) comment faire pour ajouter l'heure de l'enregistrement au nom du fichier ?
Merci d'avance pour toute aide,
Mi
Pour Enregistrer Sous forme de fichier une feuille Excel, sous le nom de la cellule B3 assorti à la date du jour, j'utilise le code suivant:
Mes questions sont:Dim Dossier As String, Fichier As String
With ActiveSheet
Dossier = CStr(.Range('B3').Value)
Fichier = CStr(.Range('B3').Value) & ' ' & Format(Date, 'dd-mm-yyyy')
End With
If Trim(Dossier) = '' Then Exit Sub
If Trim(Fichier) = '' Then Exit Sub
'Sauvegarde
On Error GoTo CreerDossier
Application.DisplayAlerts = False
ActiveSheet.SaveAs 'Chemin\\' & Dossier & '\\' & Fichier & '.xls'
Application.DisplayAlerts = True
' MsgBox 'Ok, c'est enregistré.'
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
CreerDossier:
If Err.Number = 1004 Then
'Création du dossier
MkDir 'Chemin' & Dossier
Resume
Else
MsgBox 'Erreur : ' & Err.Number & vbLf & Err.Description
End If
1) comment faire pour annuler le lancement de la sauvegarde (du code) si la cellule B3 est vide ?
2) comment faire pour ajouter l'heure de l'enregistrement au nom du fichier ?
Merci d'avance pour toute aide,
Mi