Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
Public sNomRep
Sub MKDossier()
sNomRep = "/Users/Matthieu/" ' "C:\CLI11PTE\AA-RECLAMATION GAZ\Historique des Réclamations\AA
CreationDossier (sNomRep)
End Sub
Sub CreationDossier(sNomRep As String)
'ChDrive "C"
SHCreateDirectoryEx 0&, sNomRep, 0&
End Sub
'Faire apparaite bulle
ActiveSheet.Shapes("MonBouton1").Visible = True
Application.OnTime Now + TimeValue("00:00:02"), "EffacerMessage1"
Exit Sub
End Sub
'Effacement de la bulle
Sub EffacerMessageDossier()
ActiveSheet.Shapes("MonBouton1").Visible = False
'Call Enregistrer_Classeur
'Sheets("Echéancier").Range("K4").Value = Format(Now, "dddd dd mmmm yyyy / h:mm")
End Sub