OVH Cloud OVH Cloud

forcé une macro ?

3 réponses
Avatar
aravis
Bonjour,

Peut-on forcé une macro au demarrage d'un fichier ?
Si je demarre le fichier, la macro est automatiquement lancé et se fermé a
la fermeture du fichier .

Merci d'avance

3 réponses

Avatar
RGI
Bonjour

oui avec

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Private Sub Workbook_Open()

End Sub


salutations

RGI

Bonjour,

Peut-on forcé une macro au demarrage d'un fichier ?
Si je demarre le fichier, la macro est automatiquement lancé et se fermé a
la fermeture du fichier .

Merci d'avance


Avatar
aravis
dans mon cas ca ne se lance pas du tout, meme quand je ferme mon fichier.


Private Sub Workbook_Open()
Dim projet As Single
projet = Format(Now(), "ddmmyyyy")
ActiveWorkbook.SaveAs Filename:="V:Production
LP11morganSPCompresseurs du " & projet & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True
End Sub


cordialement
Avatar
RGI
bonjour

il faut mettre le code dans thisworkbook

salutations

ca marche ;-)

RGI


dans mon cas ca ne se lance pas du tout, meme quand je ferme mon fichier.


Private Sub Workbook_Open()
Dim projet As Single
projet = Format(Now(), "ddmmyyyy")
ActiveWorkbook.SaveAs Filename:="V:Production
LP11morganSPCompresseurs du " & projet & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True
End Sub


cordialement