Enregistrement silencieux et invisible

[jpmasclet]

Bonjour a tous,

J'ai créer un macro qui me permet simplement d'enregister le fichier en silencieux dans un repertoire du reseau avec en nom ABC + le nom d'utilisateur.

Tout marche très bien.

Mon probleme, je voudrais que l'utilisateur ne puisse pas savoir ou a été enregistré le fichier, avec mon code lorsque l'utilisateur fait ouvrir ou a nouveua enregister sous, il est dans l'emplacement "secret" 🙂.

Avez vous une solution ?

mon code :

Dim dir As String
Dim str As String

Dim utilisateur
    utilisateur = Environ("username")


dir = "Z:\R1\R2\R3\Projets\TOP\SECRET\"
str = dir & "ABC " & utilisateur & ".xls"
ActiveWorkbook.SaveAs Filename:= _
str, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub

 

[jpmasclet]

Re : Enregistrement silencieux et invisible

Pour info si ça peut t'eclairer mon code utiliser (merci a xlnautes qui m'ont aidé d'ailleurs)

Dim RepDest As String
Dim FichDest As String
Dim utilisateur


Application.DisplayRecentFiles = False
utilisateur = Environ("username")
RepDest = "E:\SECRET\020208\"
FichDest = "quiz " & utilisateur & ".xls"
If dir(RepDest & FichDest) = "" Then
Application.DisplayRecentFiles = False
ActiveWorkbook.SaveAs RepDest & FichDest
Call Macro3
Else
Application.DisplayRecentFiles = False
MsgBox "Vous avez déja validé le Quiz!"
End If
Application.DisplayRecentFiles = True
End Sub

 

[wilfried_42]

Re : Enregistrement silencieux et invisible

re:

si j'ai bien compris (ce qui n'est pas sur)

tu recois par email un quiz, que tu ouvres sans sauvegardé, la macro l'enregistre dans un chemin secret (si le fichier n'existe pas) et lance Macro3 qui doit logiquement traiter le quiz !

Une fois le quiz traité, que doit il se passer (Fermeture ?)

 

[jpmasclet]

Re : Enregistrement silencieux et invisible

En faite la macro3, met simplement l'heure dans une celulle (en cas de ex equeo).
Apres le traitement, je pensai laisser le fichier ouvert pour la personne puisse regarder ses reponses, enfin j'ai pas trop pensé à le apres.... 🙂

 

[wilfried_42]

Re : Enregistrement silencieux et invisible

re:

si tu le laisses ouvert, il faut le sauvegarde sur un repertoire bidon

on error resume next
MkDir "c:\Bidon" ' C'est un exemple
on error goto 0
Thisworkbook.saveas "C:\Bidon\" & thisworkbook.name ' C'est toujours un exemple

ceci pour changer le chemin du fichier