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 .
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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 .
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
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
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
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
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
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
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