Récupération d'une info dans un .txt

[Dull]

Salut le Forum

Voila le Topo

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Open CheminDuServeur & "\OdM 2013" & ".txt" For Append As #1
Feuil1.[A1] = Feuil1.[A1] + 1
Print #1, Feuil1.[A1]
Close #1
End Sub

Private Sub Workbook_Open()
Open CheminDuServeur & "\OdM 2013" & ".txt" For Append As #1
Print #1, Feuil1.[A1]
Close #1
End Sub

CheminDuServeur étant une adresse de type G:\Ordre de mission

Avec ces codes j’inscris dans le fichier texte la valeur de la cellule A1 de la Feuille 1 à l'ouverture et à la fermeture du Fichier Excel.

le blème c'est que ce Fichier Excel est sur plusieurs ordinateurs en local et ce que je souhaiterais c'est que : quelque soit l'ordinateur qui ouvre son fichier c'est la dernière valeur du Fichier texte sur le serveur qui s'inscrit dans la cellule A1 de la Feuille 1.

Pourquoi ne pas mettre le fichier directement sur le Serveur
Parce que certain(e)s collègues (lessalesbêtes) oublient de fermer le Fichier et qu'il devient inutilisable pour les autres.

Pourquoi ne pas mettre un Timer au bout de N minutes d'inactivité
Parce que certains sont moins véloces que d'autres, les coups de téléphones, les pauses pipi...

Merci pour vos futures réponses les amis

Bonne Journée à toutes et à tous

 

[sousou]

Re : Récupération d'une info dans un .txt

Bonjour Dull

Voilà comment tu pourrais procéder.
Da,ns l'exemple ci-dessous
un fichier texte nommé monfichier ici dans le répertoire courant , mais ca marche sur le serveur
La macro écrire te montre comment écrire une ligne en fin de fichier (8) (pour ton beforeclose)
La macro lire lie le fichier et ne conserve que la dernière écriture (pour ton open)
En espérant que cela t'aidera

Sub ecrire()
Set fso = CreateObject("scripting.filesystemobject")
Set fichier = fso.opentextfile(ThisWorkbook.Path & "/monfichier.txt", 8)

fichier.writeline ("bbcbct1t1o")
End Sub
Sub lire()
Set fso = CreateObject("scripting.filesystemobject")
Set fichier = fso.opentextfile(ThisWorkbook.Path & "/monfichier.txt", 1)
While fichier.atendofstream = False
texte = fichier.readline
Wend
montexte = texte
MsgBox montexte
End Sub

 

[Dull]

Re : Récupération d'une info dans un .txt

Salut sousou, le Fil

A regarder comme ça, je crois que tu as tapé dans le mille

Étant en congé jusqu’à lundi prochain je ne pourrais tester qu'a ce moment. D'ici là je profite de la Famille et de la plage ...Sacréemétéo...ToutCommeChezVous...

Merci encore sousou et Bonne Journée à toutes et à tous

 

[mutzik]

Re : Récupération d'une info dans un .txt

salut les potes,

j'ai été confronté au même prob pour un fichier Notes de Frais
le fichier xlsm, un usf, un bouton 'créer Note De Frais' qui ouvre un fichier texte sur le serveur, j'y récupère le dernier num de note de frais crée, je l'incrémente et j'écris la nouvelle info à la suite.

puis j'ai fait du fichier un xlt et chacun peut l'ouvrir sans gêner le voisin, certains l'ont sur leur pc, d'autres utiilisent la version serveur

 

[Dull]

Re : Récupération d'une info dans un .txt

Salut Bertrand, le Fil

salut les potes,

j'ai été confronté au même prob pour un fichier Notes de Frais
le fichier xlsm, un usf, un bouton 'créer Note De Frais' qui ouvre un fichier texte sur le serveur, j'y récupère le dernier num de note de frais crée, je l'incrémente et j'écris la nouvelle info à la suite.

puis j'ai fait du fichier un xlt et chacun peut l'ouvrir sans gêner le voisin, certains l'ont sur leur pc, d'autres utiilisent la version serveur

C'est une idée je vais voir si je peux la mettre en application.

Bonne Journée