enregistrement fichier en reseau

[aziz]

Bonjour a tous
voici mon probleme 🙁 :
j'ai un fichier un reseau (2 pc uniquement)
et lors de l'enregistrement (sans créer un bouton macro)
je souhaiterai quand l'un ou l'autre fait des modifs, le fichier enregistre par défaut la date, l'heure et le dernier pc qui à enregistrer.

merci pour votre aide
voici mon fichier

 

[wazzebu]

Re : enregistrement fichier en reseau

Bonjour Aziz,

J'ai trouvé il y a quelque temps sur ce merveilleux forum de quoi répondre à ta question!!

Je te joins le fichier excel avec la macro qui permet de faire ce que tu veux, il faut que tu l'adapte a ton fichier !!

Voila, bonne journée 🙂

Wazzebu

 

[wazzebu]

Re : enregistrement fichier en reseau

Re,

Soyons fou je te met directement le code:

Private Sub Workbook_Open()

Sheets(1).Range("A" & Sheets("Essais").Cells(1, 1).End(xlDown).Row + 1) = Now 'historique enregistrement

Sheets(1).Range("B" & Sheets("Essais").Cells(1, 2).End(xlDown).Row + 1) = Environ("UserName") 'Nom du pc qui a enregistre

End Sub

Voila

 

[aziz]

Re : enregistrement fichier en reseau

Merci super sympa
je vais essayer

 

[aziz]

Re : enregistrement fichier en reseau

Merci cela fonctionne tres bien 😉
mais je veux mettre ces infos directement dans le titre du fichier
si je prend tu fichier j'aimerai obtenir "essais 01/08/2008 11:58 propriétaire"

merci encore

 

[wazzebu]

Re : enregistrement fichier en reseau

Re,

je vois ce que tu veux, je vais regarder sur le forum si je trouve de quoi le faire !! (parce que la comme ça j'suis pas capable 😱 )

a +

 

[wazzebu]

Re : enregistrement fichier en reseau

Re,

Bon encore une fois MERCI le forum !!!

J'ai modifié le fichier:

à l'ouverture:
-il écrit qui a ouvert le fichier et quand (précèdente version)
-il sélectionne le dernier enregistrement pour l'écrire dans deux cellules

à la fermeture:
-il enregistre le fichier à l'adresse indiqué (ici un dossier Test dans C🙂 avec date + nom + .xls

Le problème qui reste c'est que la date qui s'affiche sur le nom du fichier ne s'affiche pas en format date mais en format nombre 😕

J'essaye de voir pour modifier ca 🙂 mais j'suis même pas sur qu'on puisse le faire !!

Dis moi ce que tu en penses

Bon ap'

Wazzebu

 

[aziz]

Re : enregistrement fichier en reseau

😕
salut je viens d'essayer mais il me met une erreur d'excution 1004 ??

autre question : dans user name il me met propriétaire comment faire pour changer de nom sur mon PC (Xp).......mille merci 🙂

@+

 

[jeanpierre]

Re : enregistrement fichier en reseau

Bonjour aziz, wazzebu, re à tous,

Pour ta dernière question, regardes dans Excel Outils/Options et Général

Tu peux changer le nom d'utilisateur. Si j'ai compris.

Bonne journée.

Jean-Pierre

 

[wazzebu]

Re : enregistrement fichier en reseau

Re Aziz, Bonjour Jeanpierre,

Est-ce que l'erreur arrive quand tu fermes le fichier?? Parce que si c'est ca peut être que tu n'as pas créé de dossier Test dans C:

Dis moi si c'est ca,

Wazzebu

 

[aziz]

Re : enregistrement fichier en reseau

Bonjour jean-pierre et re wazzebu 🙂

pour le changement de nom : Excel Outils/Options et Général

cela ne fonctionne pas il me met tjrs propriétaire.


ta as raison wazzebu le chemin n'était pas défini.....et cela fonctionne mais petit souci lors du format de la date & l'heure voici ce que donne le fichier :

"essais 39295.5580555556 Propriétaire" .....😕

 

[wazzebu]

Re : enregistrement fichier en reseau

Re,

Et oui c'est ce que je disais qu'en j'ai écrit "la date qui s'affiche sur le nom du fichier ne s'affiche pas en format date mais en format nombre"!!! 😀

Donc Excel enregistre la date sous cette forme et je cherche encore pour modifier ça !!!

Mais pour l'instant nada ... 🙁

Je te fais signe si je trouve

 

[jeanpierre]

Re : enregistrement fichier en reseau

Re,

As-tu enregistré, refermé Excel et réouvert ?

Sinon, pas d'autres idée....

 

[wazzebu]

Re : enregistrement fichier en reseau

OUAIS,

Ca y est j'ai trouvé un moyen d'enregistrer autre chose que "essais 39295.6013425926 wazzebu.xls" ca enregistre : "essais 01 08 2007 14 48 wazzebu.xls" Et oui en effet windows n'accepte pas des fichiers avec des "/"ou des ":", donc j'ai mis un format personnalisé "jj mm aaaa hh mm" !!!

Désolé que ca est pris tant de temps mais je débute 😀

Tu as le fichier joint !!

Dis moi si ca te convient

Wazzebu

 

[aziz]

Re : enregistrement fichier en reseau

pour jeanpierre j'ai fermé et redemarrer excel ...et meme le PC j'ai toujours propriétaire...😡

Et un grand merci à Wazzebu pour son aide c'est exactement ce qu'il me faut...petite derniere & technique :

remplacer le fichier existant est ce possible ? afin d'eviter un " Saveas"

Sub enregistrement()

Range("D1").Select
Nomfichier = Range("D1").Text

Range("E1").Select
Nomfichier2 = ActiveCell.FormulaR1C1
ActiveWorkbook.SaveAs Filename:= _
"C:\Test\essais " & Nomfichier & " " & Nomfichier2 & ".xls"

Application.DisplayAlerts = False

End Sub