Discussion :

[AmauryLondon]

Bonjour tout le monde,

j'ai un fichier qui va lire/enregistrer des infos dnas un autre fichier excel

et qui pour cela fait des appels vers ce fichier.

Pour l'instant aucun probleme,car je suis le seul utilisateur mais quand il sera deploye, on sera 4/5 dessus et donc il risque d'y avoir le moment ou le fichier sera deja entrain d'etre utilise par une autre personne;

quel genre de boucle faut il pour faire patienter la 2eme personne qui veut ouvrir le fichier? eviter qu'elle soit en read only par exemple quand elle veut enregistrer par exemple

Merci par avance...

[Daranc]

regardes le partage de classeur . mais je ne peut pas te renseigner plus j'ai toujours éviter de m'en servir .
ce que je fait sur les BD commune ( par exemple un fichier d'adresse commune) c'est ouvrir le fichier télécharger le tableau en mémoire et fermer le fichier. en cas de modification l'enregistrement rouvre le classeur et le referme aussitôt.
ceci est valable pour un fichier qui ne doit pas être lu en continu.
il s'agit dans les faits d'un créateur de bon d’échantillons . chacun à un éditeur de bon et les données sont stockées dans divers classeurs. Adresse , références, BP . chaque classeur de sauvegarde est ouvert et refermé aussitôt. ce principe est bon pour ce type de fonctionnement ; dans ton cas j'ignore ce que tu veux faire

[fring]

Bonjour,

Pour vérifier si un classeur est déjà utilisé et éviter de l'ouvrir en lecture seule, tu peux tester ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Dim FichNum As Integer, ErrNum As Integer, FichNom As String
 
FichNom = "C:\temp\toto.xls" '<-- chemin complet et nom du classeur à tester
On Error Resume Next
FichNum = FreeFile()
Open FichNom For Input Lock Read As #FichNum
Close FichNum
ErrNum = Err
On Error GoTo 0
Select Case ErrNum
    Case 0: Workbooks.Open FichNom '<-- le classeur n'est pas utilisé
    Case 70: MsgBox "Le classeur est déjà ouvert par un autre utilisateur, veuillez réessayer plus tard"
End Select
 
End Sub

[AmauryLondon]

Daranc c'est un peu le meme systeme que ton principe de bon
a part que definitivement je peux pas les stocker en archive trop de donnees

ca va chercher une page contact
une page produit
enregistre dans un histo l'affiche dans le fichier excel par personne (je leur demande juste de cliker pour actualiser la liste)

on doit pouvoir voir les produits que les autres fonts..

est ce que tu as deja eu des problemes d'enregistrement simultanes et autres?

MERCI fring pour la verif lecture seule; comment juste la faire boucler pour quil attende que le fichier soit de nouveau libre pour quil enregistre

sinon comment faire pour ouvrir le fichier en lecture seule juste pour aller recuprerer des donnees merci par avance

[fring]

comment juste la faire boucler pour quil attende que le fichier soit de nouveau libre

Tu peux faire comme ceci, dans cet exemple il va tester le fichier toutes les 5 secondes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Ouverture_Fichier()
Dim FichNum As Integer, ErrNum As Integer, FichNom As String
 
FichNom = "D:\temp\test.xls" '<-- chemin complet et nom du classeur à tester
On Error Resume Next
FichNum = FreeFile()
Open FichNom For Input Lock Read As #FichNum
Close FichNum
ErrNum = Err
On Error GoTo 0
Select Case ErrNum
    Case 0: Workbooks.Open FichNom '<-- le classeur n'est pas utilisé
    Case 70: Application.OnTime Now + TimeValue("00:00:05"), "Reco"
End Select
 
End Sub
 
Sub reco()
Ouverture_Fichier
End Sub

sinon comment faire pour ouvrir le fichier en lecture seule juste pour aller recuprerer des donnees

Là je ne comprend pas la question, dans ce cas il suffit d'ouvrir le fichier et il sera en lecture seule ou non selon qu'il est déjà utilisé ou pas.

[AmauryLondon]

merci pour la boucle ; et il ya moyen de boucler mais sans lancer un autre sub;

merci

sinon ma question que tu comprends pas est: Comment forcer l'ouverture dun fichier en lecture seul (meme si il serait dispo en ecriture) comme ca si quelqun lit le fichier et que quelquun veut ecrire ca passe sans probleme

merci

[Daranc]

jamais eu de problème du à une double utilisation
mais les bons d'échantillonnage ne se font pas non plus à longueur de temps

chez nous ça fonctionne comme ceci
pour l'adresse (les contacts) le fichier contact est ouvert le tableau des adresses est chargé en memoire et le fichier est fermé le tableau en mémoire est utilisé pour choisir le contact et écrire les données sur le BP letableau d'adresse est viré de la memoire
l'interface échantillon est active on construit la référence et on valide
le classeur référence est ouvert on charge l'ensemble des référence on referme le fichier et on test la validité de la référence entrée .
une déclinaison de gamme est possible ( une même référence pouvant avoir plusieurs options l’opération appelle le même classeur et vérifie toute les références
lorsque que le bon est prêt il est m@illé au service de préparation et l'ensemble de ses données sont stocké dans un classeur archive . la ligne correspondant au numéro du bon préparé.
Pour faire un nouveau BP un autre classeur est appelé selon le même principe et la cellule A1 de ce classeur est incrémenté de 1 après avoir été copiée sur le BP ( le numéro du BP)
pour ceci ça tourne plutôt bien ( je n'ai pas de retour de dysfonctionnement)
7 personnes ont à disposition des versions bridées ( il ne peuvent pas valider l'envoi des échantillons)..les macro qui font ceci ne sont activées que sur deux PC : le préparateur qui édite les BP et envoie les échantillons
et le deuxième c'est le mien ...privilège que je me suis auto accordé pour mettre le programme au point)

[fring]

merci pour la boucle ; et il ya moyen de boucler mais sans lancer un autre sub

En quoi ça pose problème ?

Comment forcer l'ouverture dun fichier en lecture seu

Comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Open Filename:="D:\temp\test.xls", ReadOnly:=True

[AmauryLondon]

Fring, cest juste que pour la clarete de la sub; jevite au maximum de relancer des sous-sub.

sinon merci pour l'ouverture seule.