Discussion :

[djo007]

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


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 :

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

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

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
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

[joe.levrai]

Bonjour,

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

Code :

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

HDR=Yes;IMEX=1;ReadOnly=True

[djo007]

joe.levrai,

oui même comme ca..

[Thumb down]

bonjour,
quelle valeur est dans OngletAnalyse quand sa bug?

Rst est à Nothing?

[djo007]

bonjour,
quelle valeur est dans OngletAnalyse quand sa bug?

Rst est à Nothing?

Non la valeur n'est pas à Nothing

[MarcelG]

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 :

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
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.

[djo007]

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


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...

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 :

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

    OngletAnalyse = "Analyse" 'Onglet Analyse

[Thumb down]

bonjour,
tu n'as pas répondu sur la question du OngletAnalyse !

[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..

[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à...

[Thumb down]

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

[djo007]

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