Bonjour Forum et à tous ceux qui me liront,

J'aurais une question sur un problème que j'ai lorsque j'utilise une macro de recup de données :

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
Public Sub Affaire()
Dim fich$, feuil$, i&, Cell   As Range
On Error Resume Next
 
If Range("F3").Value = "1" Then
Set Cell = Range("b2")
ElseIf Range("F3").Value = "2" Then
Set Cell = Range("g7")
ElseIf Range("F3").Value = "" Then Exit Sub
End If
 
feuil = Sheets(2)
For i = 6 To 300 ' a adapter
Range("F" & i).Value = GetValueWithADO(Range("E" & i), feuil, Cell)
 
Next i
 
End Sub

Mon PC est en reseau et le probleme est le suivant si sur un autre PC un des fichiers et ouvert , il s'ouvrira aussi chez moi (lecture seul)
J'ai essayé avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If thisworkbook.readonly = true then....
mais c'est comme si j'avais rien mis.

J'espère avoir été clair, je suis au boulot et ai écrit un peu rapidement
n'hésiter à me contacter pour d'autres renseignements


Merci d'avance Forum.