Faire une copie vers dossier du jour
Bonjour,
je voudrai faire une amélioration sur cette macro qui fonctionne à merveille , je souhaiterai avec le premier bouton créer un dossier du jour ( nommer avec la date du jour ) ok pour ça
ensuite avec le bouton 2 je voudrais faire une copie vers mon dossier du jour et là problème
ci_joint fichier pour exemple
besoin d'aide pour que la macro prenne en compte les nouveaux dossiers pour chaque jours
merci
Sub Enregistrer_Une_Copie()
Dim ENDROIT As String, Nom_De_Fichier As String
N1 = Range("C4").Text ' le contenu de la cellule C4
If N1 = "" Then Exit Sub
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "\Users\groupe\Desktop\test\
If .Show = -1 Then
ENDROIT = .SelectedItems(1) & "\"
On Error GoTo 100 'Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ThisWorkbook.ActiveSheet.Copy
Nom_De_Fichier = N1 & "_" & Format(Date, "ddMMyy") & "_S_BP.xlsx"
With ActiveWorkbook
.ActiveSheet.DrawingObjects.Delete
.SaveAs Filename:=ENDROIT & Nom_De_Fichier
.Close
MsgBox "Votre base de données est sauvegardée dans le chemin : " & Chr(10) & ENDROIT, vbInformation, ""
End With
Else
End If
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Exit Sub
100
End Sub
merci pour votre aide
salut :
Vois si cela te convient
L'enregistrer sera dans le bureau
Bonjour Belkacem,
t'es un chef
un très grand merci
salutation