[ADO] fichier ouvert sur un autre poste

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
j'aurais besoin de votre aide, je rencontre un problème avec ma macro qui s’arrête avec un petit message..
Pièce jointe 504277

Après analyse, je me suis aperçu que le problème arrive quand la macro analyse un fichier ouvert sur un autre PC du réseau. après avoir fait fermé ce fichier tout fonctionne
Je ne sais pas du tout comment palier à ce problème..
voici une parti du code

L'arret de la macro ce fait que la ligne

Code:

Sheets(OngletAnalyse).Range("A1").CopyFromRecordset Rst

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
                Set Cn = New ADODB.Connection
                Set oCat = New ADOX.Catalog
                With Cn
                    .Provider = "Microsoft.Jet.OLEDB.4.0"
                    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                        & rep & "\" & Nom_fic(x) & ";Extended Properties=""Excel 12.0;HDR=NO;"""
                    .Open
                End With
                Set oCat.ActiveConnection = Cn
                For Each FeuilleT In oCat.Tables
                    Onglet = Replace(FeuilleT.Name, "'", "")
                    Onglet = Replace(Onglet, "$", "")
                    'Onglet = Replace(Onglet, "#", ".")
                    If InStr(Onglet, "Print_Area") = "0" And InStr(Onglet, "_xlnm.") = "0" And InStr(Onglet, "Print_Titles") = "0" And InStr(Onglet, "FilterDatabase") = "0" Then
                        nbonglet = nbonglet + 1
                        Nom_onglet(nbonglet) = Onglet
                    End If
                Next
                Set FeuilleT = Nothing
                Set oCat = Nothing
For y = 1 To nbonglet
 
    texte_SQL = "SELECT * FROM [" & Nom_onglet(y) & "$]"
    Debug.Print Nom_onglet(y) '6066 Onglet
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
    Sheets(OngletAnalyse).Range("A1").CopyFromRecordset Rst

Merci pour votre aide

19/09/2019, 14h01
joe.levrai

Bonjour,

peux-être en forçant la lecture seule ?

Code:

HDR=Yes;IMEX=1;ReadOnly=True
19/09/2019, 14h06
djo007

joe.levrai,

oui même comme ca..
19/09/2019, 15h12
Thumb down

bonjour,
quelle valeur est dans OngletAnalyse quand sa bug?

Rst est à Nothing?
20/09/2019, 09h03
djo007

1 pièce(s) jointe(s)

Citation:

Envoyé par Thumb down

bonjour,
quelle valeur est dans OngletAnalyse quand sa bug?

Rst est à Nothing?

Non la valeur n'est pas à Nothing

Pièce jointe 504420

Bonjour à vous, bonjour au Forum,

Plusieurs exemples de fonctions.
Elles ont en commun la gestion de l'erreur lors de l'ouverture du classeur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function IsOpenWkb(Lewkb As String)
'par: https://excel-malin.com
 
Dim NumeroFichier As Long, NumeroErreur As Long
 
    On Error Resume Next
    NumeroFichier = FreeFile()
    Open Lewkb For Input Lock Read As #NumeroFichier
    Close NumeroFichier
    NumeroErreur = Err
    On Error GoTo 0
 
    Select Case NumeroErreur
    Case 0:    IsOpenWkb = False
    Case 70:   IsOpenWkb = True
    Case Else: Error NumeroErreur
    End Select
End Function

L'argument de la fonction est le chemin complet du fichier.

20/09/2019, 10h20
Thumb down

bonjour,
tu n'as pas répondu sur la question du OngletAnalyse !
20/09/2019, 10h55
djo007

1 pièce(s) jointe(s)

Citation:

Envoyé par MarcelG

ta fonction, me dit bien que le fichier est déjà ouvert ("occupé") voici une capture d'écran du résultat.
Pièce jointe 504474

Si ça peut aider, je me suis aperçu d'une chose, si le fichier est ouvert sur un autre pc et que moi je l'ouvre sur mon pc (en lecteur seule du coup) et que je lance la macro cela fonctionne...

Citation:

Envoyé par Thumb down

oups désolé ^^
OngletAnalyse correspond à un nom de classeur qui s'appel Analyse la valeur est bien définit, elle est déclaré au début du programme

Code:

OngletAnalyse = "Analyse" 'Onglet Analyse
19/11/2019, 13h13
djo007

Bonjour à tous,

Je suis toujours embête avec mon problème et après des heures passées je ne trouve pas de solutions si quelqu'un a une idée..
22/11/2019, 08h33
djo007

Juste si cela peut aider, j'ai trouver une solution pour contourner le problème...
Le problème ne vient pas de l'acces au fichier, mais du fait de venir copier ce qu'il y a dedans.. il est impossible de copier les données du fichier en lecture seule
Du coup je viens contrôler si le fichier est déjà utilisé et si il est utilisé de copie le fichier dans le dossier temporaire de windows et je traille avec la copie.. voilà voilà...
22/11/2019, 10h05
Thumb down

bonjour,
et en passant ton classeur en mode partagé?
11/12/2019, 11h50
djo007

Citation:

Envoyé par Thumb down

bonjour,
et en passant ton classeur en mode partagé?

le problème c'est que j'ai près de 5000 classeurs.. du coup ce que j'ai fais (explication juste avant ton post) fonctionne très bien ;)