Phenome bizarre avec enregistrement de securite

[rainbow69006]

Bonjour

J'ai fais ce code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\save\" & ThisWorkbook.Name & " " & Environ("UserName") & ".xls"
Application.DisplayAlerts = True
Application.Quit
End Sub

Je l'ai mi sur 2 classeurs. Il marche impeccablement (lorsque je ferme mon classeur, sa ferme excel et sa cree une copie de sauvegarde)

Le probleme c'est lorsque j'ai les 2 classeurs d'ouvert et que j'en ferme un eh bien la sa me ferme mes 2 classeurs (normal) mais sa ne me cree pas 1 sauvegarde de chacun , mais 2
chacun de la forme:
pour le premier :ThisWorkbook.Name & " " & Environ("UserName") & ".xls"
pour le deuxieme :ThisWorkbook.Name & " " & Environ("UserName") & " & Environ("UserName") &".xls"

Comment puis je y remerdier?

merci

 

[Roland_M]

Re : Phenome bizarre avec enregistrement de securite

bonsoir
c'est normal puisque la sauvegarde se fait ...........

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save'..................1' celui qui exécute dans le code
Application.DisplayAlerts = False
'.................... 2' le classeur actif
ActiveWorkbook.SaveAs Filename:= _
"C:\save\" & ThisWorkbook.Name & " " & Environ("UserName") & ".xls"
Application.DisplayAlerts = True
Application.Quit
End Sub

il faudrait pour cela les séparer !



Roland

 

[Cousinhub]

Re : Phenome bizarre avec enregistrement de securite

Bonsoir, pourquoi fermer Excel?
A la place de :

Application.Quit

Mets plutôt ;

Me.Close

Ainsi, tu fermeras ton 1er classeur, mais pas le deuxième (à moins que tu ne le veuilles)

 

[rainbow69006]

Re : Phenome bizarre avec enregistrement de securite

Roland_M
Desoler je n'ai pas tout compris a ta solution, Peut tu me reexpliquer

merci

PS :Non le MEclose

Sa ne marche pas.
Pour exemple si j'ouvre le fichier 1 puis le fichier 2
- si je ferme le fichier1 puis le fichier 2 sa marche
- si je ferme le fichier 2 puis le fichier 1 sa ne marche pas (sa me fais alors 2 copies du fichier 1)

bizarre

 

[Roland_M]

Re : Phenome bizarre avec enregistrement de securite

re🙁roland)

ThisWorkbook est le classeur dans lequel code s'exécute
ActiveWorkbook est le classeur actif

selon l'ordre de chargement ActiveWorkbook et peut être le classeur
ThisWorkbook qui porte le nom définit par:
ActiveWorkbook.SaveAs Filename:= _
"C:\save\" & ThisWorkbook.Name & " " & Environ("UserName") & ".xls"

il y a confusion entre ThisWorkbook et ActiveWorkbook pour ce qui concerne les noms des classeurs
il faudrait peut être pratiquer autrement, exemple avec des boutons pour enregistrer séparément les classeurs ?

Roland

 

[rainbow69006]

Re : Phenome bizarre avec enregistrement de securite

Oui je suis assez d'accord mais connais tu un moyen de supprimer la croix rouge d'un fichier excel (pas de tout mes fichier excel 🙂)
je sais le faire pour un userform mais pas pour un fichier

Merci de tes conseils

 

[Compte Supprimé 979]

Re : Phenome bizarre avec enregistrement de securite

Rainbow69006,

Il y'a un problème dans ton code 😕

Tu l'exécute sur ThisWorkbook, et tu le sauvegardes sur ActiveWorkbook

Essaye plutôt

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
Application.DisplayAlerts = False
[B][COLOR=green]ThisWorkbook[/COLOR][/B].SaveAs Filename:= _
"C:\save\" & ThisWorkbook.Name & " " & Environ("UserName") & ".xls"
Application.DisplayAlerts = True
Application.Quit
End Sub

A+

 

[rainbow69006]

Re : Phenome bizarre avec enregistrement de securite

Merci Bruno

Mias sa ne marche pas mieu

Non en fait sa cree les copie sa marche, sa ferme les classeurs, mais on se retrouve sur les fichiers copies et si on les ferme sa nous recree une copie...

grrr

C'est grrrrrr ce truc


🙂