ricou69
XLDnaute Occasionnel
Bonjour touts le monde
cela est peut du au faite qu'il est protege par mot de passe ?????
Le bouton
ca marche encore
marche plus
Sub sauvegarde()
Dim DateDu As String
Select Case MsgBox("Souhaitez vous enregistrer ce classeur sous le nom de :" & " " & [bq3], vbYesNo + vbQuestion, "Confirmation d'enregistrement")
Case vbYes
DateDu = Day(Date) & "-" & Month(Date) & "-" & Year(Date)
ActiveWorkbook.SaveAs Filename:= _
"J:\MarcylEtoile\DGIndust\Batiment T5\T5-Services Communs\Dossiers_Services_Communs_T5\Planification\Milieux\STOCKS\" & [bq3] & " - Le " & DateDu & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
rep = MsgBox("Le classeur est sauvegardé sous le nom de " & [bq3] & " - Le " & DateDu, vbYes + vbInformation, "Copie sauvegarde classeur")
Case vbNo
Exit Sub
End Select
End Sub
'***************************************************************************************************
'Ca -> "C:\Documents and Settings\Dr Banner\Bureau\ <- c'est à modifier selon ton choix !
cela est peut du au faite qu'il est protege par mot de passe ?????
Le bouton
ca marche encore
marche plus
Sub sauvegarde()
Dim DateDu As String
Select Case MsgBox("Souhaitez vous enregistrer ce classeur sous le nom de :" & " " & [bq3], vbYesNo + vbQuestion, "Confirmation d'enregistrement")
Case vbYes
DateDu = Day(Date) & "-" & Month(Date) & "-" & Year(Date)
ActiveWorkbook.SaveAs Filename:= _
"J:\MarcylEtoile\DGIndust\Batiment T5\T5-Services Communs\Dossiers_Services_Communs_T5\Planification\Milieux\STOCKS\" & [bq3] & " - Le " & DateDu & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
rep = MsgBox("Le classeur est sauvegardé sous le nom de " & [bq3] & " - Le " & DateDu, vbYes + vbInformation, "Copie sauvegarde classeur")
Case vbNo
Exit Sub
End Select
End Sub
'***************************************************************************************************
'Ca -> "C:\Documents and Settings\Dr Banner\Bureau\ <- c'est à modifier selon ton choix !