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

 

[mutzik]

Re : Enregistrement silencieux et invisible

bonjour,

1. tu récupères l'emplacement actuel (this workbookpath) et tu le mets dans une variable
2. tu enregistres ton fichier dans ton repertoire secret
3. tu reenregistres ce fichier dans ta variable du point 1.

si l'utilisateur fait un enregistrer sous, il ne verra que ce dernier enregistrement
NB, sauf s'il est assez malin pour regarder et réouvrir l'avant dernier fichier dans la liste

sinon, il vaudrait mieux copier et coller ce fichier dans l'endroit secret, ceci n'est pas visible dans les x derniers fichiers (mais dans le code VBA ...)

 

[jpmasclet]

Re : Enregistrement silencieux et invisible

merci pour ta réponse, concernant ta proposition n° 1 : y a une risque tout de meme donc je privilegerai la deux mais je n'ai rien compris 🙂

Peux tu m'en dire plus ?
Merci

 

[wilfried_42]

Re : Enregistrement silencieux et invisible

Bonjour

Voici une macro

Sub copie()
    monfichier = "Exemple.xls"
    moncheminsecret = "D:\"
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Bidon.xls"
    FileCopy ThisWorkbook.Path & "\" & monfichier, moncheminsecret & monfichier
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & monfichier
    Kill ThisWorkbook.Path & "\" & "bidon.xls"
    Application.DisplayAlerts = True
End Sub

On va passé par une copie du fichier, mais comme on ne peut pas copier un fichier ouvert, on le renomme precedemment en fichier Bidon, on copie le fichier et on le renome avec son vrai nom, finalement on detruit le fichier bidon

 

[wilfried_42]

Re : Enregistrement silencieux et invisible

re:

autre methode

Avant la sauvegarde dans ton fichier tu mets :

Application.DisplayRecentFiles = False

remet la liste des fichiers recents à zero

le remetre à vrai à la fin de ta procedure

 

[jpmasclet]

Re : Enregistrement silencieux et invisible

bonjour et merci pour tes réponses,

Je vais regarde tes propositions, ta solution 2 me parait pas mal je vais essayer ça.
merci

 

[jpmasclet]

Re : Enregistrement silencieux et invisible

je reviens sur vos propositions mais j'ai du rajouter (je pense ) une variable qui pose probleme à ça : "Application.DisplayRecentFiles = False"

En faite mon repertoire est testé pour si le fichier existe, si oui msgbox si non sauvegarde.

A cause je pense du test du repertoire, quand je fais enregister sous, je me retrouve a nouveau dans mon rep. secret.....

 

[wilfried_42]

Re : Enregistrement silencieux et invisible

re:

ChDir "C:\"

te renverra sur la racine principale, Adapte pour ton repertoire

 

[jpmasclet]

Re : Enregistrement silencieux et invisible

Merci Wilfried pour ta réponse mais soit je place mal ce code soit cela ne fonctionne pas.

Je l'ai placé tout en dernier juste avant le End sub, et ça ne marche pas du tout.

 

[wilfried_42]

Re : Enregistrement silencieux et invisible

re:

oui c'est normal, je n'ai pas assez refflechi, ce n'est pas parceque tu changes je repertoire actuel, que tu change le chemin du classeur

La seule solution que je vois c'est de refaire un saveas avec le nouveau chemin

Finalement on en revient presque à la 1ere solution😕

 

[jpmasclet]

Re : Enregistrement silencieux et invisible

merci wilfried, bon et bien ça m'arrange pas trop,
n'y a t'il aucun moyen ?? le fait d'enregister me derange vraiment car il n'est pas permis au employé d'enregister sur le c:/ (pas de permission)... il y aurai la solutoin mes documents mais pour certains collaborateurs avc nom composé, le "mes documents" est différent de son login , donc impossible de programmer l'emplacement via son username....

je sais pas comment je m'en sort la...

 

[wilfried_42]

Re : Enregistrement silencieux et invisible

re:

Quand tu ouvres ton fichier de base tu memorises son emplacement ou avant le SaveAs sur ton chemin secret

mem = thisworkbook.path

Le dernier saveAs au lieu de mettre "c:\" tu mets mem & "\" & nomfichier

 

[jpmasclet]

Re : Enregistrement silencieux et invisible

merci pour la soluce mais ça ira pas du tout, car si la personne est dans un repertoire partagé, on va généré 80 fichiers (80 collaborateurs) dans le disque commum donc c risqué pour moi..

 

[wilfried_42]

Re : Enregistrement silencieux et invisible

re:

il est chargé à parti d'où le classeur ?

 

[jpmasclet]

Re : Enregistrement silencieux et invisible

En faite je vais l'envoyer mail a tout les collaborateurs.