Bonjour,
J'ai besoin d'aide, je suis débutant.
Je souhaite que mon fichier soit enregistré sous un nom prédéfinie avec des informations contenue dans certaines cellules.
A savoir que ce nom est conditionné selon des cases d'options et que c'est pas toujours les même cases.
Voila la macro développé :
Sub Workbook_save()
'macro pour sauvegarder avec un nom prédéterminé
a = Range("ae8").Value 'situation 1
b = Range("o8").Value 'situation 1
c = Range("z10").Value 'situation 1
d = Range("ae10").Value 'situation 2
e = Range("o10").Value 'situation 2
f = Range("z12").Value 'situation 2
g = Range("p8").Value 'situation 3
h = Range("o8").Value 'situation 3
i = Range("ai10").Value 'situation 3
j = Range("p10").Value 'situation 4 et 5
k = Range("o12").Value 'situation 4 et 5
l = Range("o14").Value 'situation 4 et 5
If OptionButton927 = True Then 'situation 1
ThisWorkbook.SaveAs Filename:="D.E.S - " & a & "-" & c & "-" & b & ".xls"
ElseIf OptionButton929 = True Then 'situation 2
ThisWorkbook.SaveAs Filename:="D.E.S - " & g & "-" & i & "-" & h & ".xls"
ElseIf OptionButton928 = True Then 'situation 3
ThisWorkbook.SaveAs Filename:="D.E.S - " & j & "-" & k & "-" & l & ".xls"
ElseIf OptionButton930 = True Then 'situation 4
ThisWorkbook.SaveAs Filename:="D.E.S - " & j & "-" & k & "-" & l & ".xls"
ElseIf OptionButton930 = True Then 'situation 5
ThisWorkbook.SaveAs Filename:="D.E.S - " & d & "-" & f & "-" & e & ".xls"
End If
End Sub
Merci et bonne soirée