erwanhavre
XLDnaute Occasionnel
Bonjour je galère un peu
je cherche à l'aide d'un Bouton enregistrer le fichier en cour mais aussi l'enregistrer Avec le nom : "PLAN CONSULT"
celui-ci doit être situé dans le même dossier que celui ouvert et dois écraser sans alerte le précédent "PLAN CONSULT"
Voici ma macro à certainement modifier
merci à vous
Sub Macro16()
'
' Macro16 Macro
'
Dim LePath As String
If MsgBox("Êtes vous certain d'avoir la qualification pour enregistrer le document ?", vbQuestion + vbYesNo, "Autorisation") = vbYes Then
LePath = ThisWorkbook.Path & "\"
ActiveWorkbook.Save
d = "PLAN CONSULT" & ".xlsm"
ActiveWorkbook.Activate
ActiveWorkbook.SaveAs Filename:=LePath & d _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
End Sub
je cherche à l'aide d'un Bouton enregistrer le fichier en cour mais aussi l'enregistrer Avec le nom : "PLAN CONSULT"
celui-ci doit être situé dans le même dossier que celui ouvert et dois écraser sans alerte le précédent "PLAN CONSULT"
Voici ma macro à certainement modifier
merci à vous
Sub Macro16()
'
' Macro16 Macro
'
Dim LePath As String
If MsgBox("Êtes vous certain d'avoir la qualification pour enregistrer le document ?", vbQuestion + vbYesNo, "Autorisation") = vbYes Then
LePath = ThisWorkbook.Path & "\"
ActiveWorkbook.Save
d = "PLAN CONSULT" & ".xlsm"
ActiveWorkbook.Activate
ActiveWorkbook.SaveAs Filename:=LePath & d _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
End Sub