IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Connection ADODB sur un fichier en lecture seule


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Octobre 2007
    Messages
    24
    Détails du profil
    Informations forums :
    Inscription : Octobre 2007
    Messages : 24
    Par défaut Connection ADODB sur un fichier en lecture seule
    Bonjour à tous,

    Dans un fichier d'analyse de résultats, j'utilise une macro qui permet d'exécuter une requête sql sur certaines feuilles du classeur.
    Voici le code :
    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
    30
    31
    32
     
    Dim cmdConnection As ADODB.Connection
    Dim cmdRecordSet As ADODB.Recordset
    Dim requeteSQL As String
     
    requeteSQL = _
        "Select " & _
            "[BUD_PROPRIETE$].PK_PROPRIETE, " & _
            "0, " & _
            "0, " & _
            "[BUD_PROPRIETE$].CD_PROPRIETE, " & _
            "0 " & _
        "From [BUD_PROPRIETE$] " & _
        "Where " & _
            "[BUD_PROPRIETE$].CD_PROPRIETE = 200"
     
    Set cmdConnection = New ADODB.Connection
    With cmdConnection
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = _
            "Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source=" & ThisWorkbook.FullName & ";" & _
            "Extended Properties=""Excel 12.0;" & _
            "HDR=YES;" & _
            "ReadOnly=false"""
        .Open
    End With
     
    Set cmdRecordSet = New ADODB.Recordset
    Set cmdRecordSet = cmdConnection.Execute(requeteSQL)
     
    Feuil1.Range("A1").CopyFromRecordset cmdRecordSet

    Tout fonctionne normalement sauf que... (sinon cela ne serait pas drole !) dès que le fichier est en lecture seule, la requête ne renvoie strictement rien...
    Mon problème est que le fichier doit être en lecture seule (plusieurs utilisateurs en simultané).

    J'ai cherché partout mais n'ai pas trouvé de solution... Auriez vous une idée ?

    Merci d'avance !!! :-)

  2. #2
    Invité
    Invité(e)
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Set cmdRecordSet = New ADODB.Recordset
     cmdRecordSet.open  requeteSQL,cmdConnection

Discussions similaires

  1. [Débutant] save_system sur un fichier en lecture seule
    Par mestes dans le forum MATLAB
    Réponses: 0
    Dernier message: 02/03/2015, 16h55
  2. Modifier ou supprimer fichier en lecture seule
    Par axel-erator dans le forum Langage
    Réponses: 2
    Dernier message: 01/12/2005, 17h57
  3. Réponses: 8
    Dernier message: 09/08/2005, 11h44
  4. Réponses: 7
    Dernier message: 05/08/2005, 16h32
  5. [PDE] Editeur de fichiers en lecture seule
    Par simsky dans le forum Eclipse Java
    Réponses: 7
    Dernier message: 13/07/2005, 12h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo