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é avecmais c'est comme si j'avais rien mis.
Code : Sélectionner tout - Visualiser dans une fenêtre à part If thisworkbook.readonly = true then....
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.
Partager