chercher les données

[yvon51]

bonjour à toutes et à tous,

dans un classeur, je dispose d'une feuille qui doit être remplie par chaque membre du personnel chaque jour pour être remboursé de frais en fin de mois.

pour la fabrication de certains calculs de ce fichier, j'ai été aidé par Monique.

on trouve dans ce classeur une autre feuille contenant toutes les données permanentes utilisées dans la rédaction de la fiche de remboursement.

le problème qui se pose est le suivant:

sachant que nous sommes en réseau, est-il possible que chaque salarié ai, en local, la fiche de remboursement et que le fichier contenant les données permanentes n'existe que dans le serveur?
cette config est nécessaire car de temps à autre certaines données évolues, et je me vois mal aller 10 fois par an sur 90 machines faire les modifs.

si la réponse est oui, y a-t-il une procédure pour lier les fichier ou bien cela se fait-il automatiquement ?

merci beaucoup

yvon51

 

[Pascal76]

Re Yvon

Voilà un début de code :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Workbooks("donnees.xls").Close
Application.DisplayAlerts = True
End Sub

Private Sub Workbook_Open()
ChDir "\\serveur"
Workbooks.Open Filename:="\\serveur\donnees.xls"
End Sub

A améliorer tester si donnees déjà ouvert
tester si donnees déjà fermé

@+

Pascal

 

[yvon51]

Pascal

je viens d'écrire la macro en utilisant ton exemple, mais cela ne marche pas.
je te joins le *.zip de la macro avec l'explication du bug.

merci
yvon

 

[Pascal76]

Salut

Excuse je n'avais pas fait gaffe au message et vu que je finis à 16 h 30 ...

M'enfin aujourd'hui c'est RTT alors on bosse chez soi

Dis La ligne qui bug correspond au lancement d'une macro appelée "Déplacements_simple1.xls!ouvrir"

Tu as une macro qui s'appelle comme cela ???

Sinon peux -tu m'envoyer ton fichier même sans données pour que je regarde tes macros où elles sont placées. Car les macros à l'ouverture et fermeture doivent être placées dans "This Workbook".

Tu me tiens au courant

Pascal

 

[yvon51]

merci Pascal,

je t'envoie les 2 fichiers maintenant par Courriel

merci encore

moi je pars vers 17h 15 et je n'ai pas internet chez moi. alors!!

je suis fonctionnaire

yvon51

 

[Pascal76]

Salut

Fonctionnaire et tu pars si tard !!!!!!! (LOL)

Bon je vais chercher mes gamins et j'essaie de regarder vite fait.

Sinon à lundi

Bon ouik

Pascal

 

[Pascal76]

Re

Regardes j'ai juste modifier ce classeur

Pascal

 

[yvon51]

ok je regarde

eh oui! mais je commence tard également

je ne travaille pas plus que les autres tu sais

bon WE

yvon51