probleme de fermeture...

[StefBel]

Bonjour,

J'ai programmé un fichier de facon a ce que je sauvegarde 2 copies, 1 avec VBA et 1 sans VBA.

Au début les 2 copies sauvegardais sans vba, mais en déplacant "CreateBackupIncre" au début les 2 copies se sauvegarde de la bonne facon.


Depuis que j'ai ajouté le code ci-bas, lorsque je fais oui pour sauvegarde les 2 copies se font mais mon dossier reste ouvert.

si je fais non le dossier ferme.

J'ai un sub workbook_before close ajouter mais lorsque je sauvegarde on dirait qu'il ne va pas dans ce sub.




Sub SaveWithoutMacros() 'Save a copy of the active workbook without macros

CreateBackupIncre

Dim vFilename As Variant
Dim wbActiveBook As Workbook



Application.DisplayAlerts = False

On Error GoTo CodeError



ActiveWorkbook.SaveCopyAs "G:\WEBXXXX\WEBENTRN\entrainement READ ONLY WEB2.xls"

Set wbActiveBook = Workbooks.Open("G:\WEBXXXX\WEBENTRN\entrainement READ ONLY WEB2.xls")


Set VBComps = wbActiveBook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, _
vbext_ct_ClassModule
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp

wbActiveBook.Save


SetAttr "G:\WEBXXXX\WEBENTRN\entrainement READ ONLY WEB2.xls", vbReadOnly





MsgBox "Une copie a été envoyé sur le site WEB XXXX"


Application.DisplayAlerts = True


Merci et bonne journée !!!

StefBel

 

[sergioMabres]

Bonjour StefBel
Vous pourriez avoir un problème avec l'ordre des fichiers sauvegardés
J'essaie d'enregistrer le fichier d'abord avec VBA
Après avoir enregistré le fichier sans VBA
Après la fermeture du fichier
Lors de la sauvegarde le fichier sans VBA, elle perd le code ne peut pas ouvrir ou exécuter plus VBA, pas le code qui est en cours d'exécution
Sergio