julien91080
XLDnaute Occasionnel
Bonjour a la communauté,
Je souhaite avoir un code qui au moment de l'ouverture d'un fichier excel, le code vérifie l'emplacement de ce dernier et s'il n'est pas dans un répertoire précis, alors il se détruit/supprime.
Je suis embêté car j'ai trouvé un code qui fonctionne sur du .xls mais pas du .xlsm:
Dans Thisworkbook:
Private Sub Workbook_Open()
If ThisWorkbook.Path <> "C:\Users\transfert" Then
Call Suicide2
End If
End Sub
Dans un module :
Option Explicit
Sub Suicide2()
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End Sub
Ca fonctionne affreusement bien sur du 2003 mais il n'apprécie pas le " Kill .FullName". Mais je voudrais que cela fonctionne sur du Excel 2010 .
Merci par avance pour votre aide.
Cordialement
Je souhaite avoir un code qui au moment de l'ouverture d'un fichier excel, le code vérifie l'emplacement de ce dernier et s'il n'est pas dans un répertoire précis, alors il se détruit/supprime.
Je suis embêté car j'ai trouvé un code qui fonctionne sur du .xls mais pas du .xlsm:
Dans Thisworkbook:
Private Sub Workbook_Open()
If ThisWorkbook.Path <> "C:\Users\transfert" Then
Call Suicide2
End If
End Sub
Dans un module :
Option Explicit
Sub Suicide2()
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End Sub
Ca fonctionne affreusement bien sur du 2003 mais il n'apprécie pas le " Kill .FullName". Mais je voudrais que cela fonctionne sur du Excel 2010 .
Merci par avance pour votre aide.
Cordialement