Discussion :

[Charlie3]

Bonjour,

Suite à mon premier topic ici (encore merci BrunoM45 pour ton aide), je reviens avec une nouvelle question afin d'améliorer ma macro ci-dessous :

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
33
34
35
36
37
38
39
40
' Fonction ADODB pour 2010
Function LireCellule_ClasseurFerme( _
        Chemin As String, _
        Fichier As String, _
        Feuille As String, _
        Cellule As Variant) As Variant
 
    Application.Volatile
 
    Dim Source As Object, Rst As Object, ADOCommand As Object
    Dim Cible As String
 
    Feuille = Feuille & "$"
    Cible = Cellule.Address(0, 0, xlA1, 0) & ":" & _
        Cellule.Address(0, 0, xlA1, 0)
 
    Set Source = CreateObject("ADODB.Connection")
      Source.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=" & Chemin & "\" & Fichier & _
        ";Extended Properties=""Excel 12.0;HDR=No;"";"
 
    Set ADOCommand = CreateObject("ADODB.Command")
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cible & "]"
    End With
 
    Set Rst = CreateObject("ADODB.Recordset")
    '1 = adOpenKeyset, 3 = adLockOptimistic
    Rst.Open ADOCommand, , 1, 3
    Set Rst = Source.Execute("[" & Feuille & Cible & "]")
 
    LireCellule_ClasseurFerme = Rst(0).Value
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Function

Cette fonction sert à aller récupérer des données dans un autre classeur à l'aide de 4 variables à savoir : le chemin où se trouve le fichier, le nom du fichier, le nom de la feuille de calcul et l'emplacement de la cellule.

J'utilise cette fonction pour aller récupérer un ensemble d'informations situées dans différents classeurs. Cependant, ces classeurs sont protégés par un mot de passe qui empêche la macro de fonctionner.

J'aurais donc aimé savoir comment compléter ma macro afin que celle-ci puisse ouvrir les fichiers protégés (a priori, tous les fichiers ont le même mdp) sans supprimer la protection.

Merci d'avance pour votre aide.

A bientôt !

[Kimy_Ire]

Donc la méthode "Open" tu as

Code :

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

Filename:="mon_nom", Password:="mon_pw"

Tente d'y insérer ton mdp.

Je sais que ca fonctionne pour un workbook mais je ne sais pas si cela fonctionnera pour ton cas particlier.
Exemple :

Code :

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

Workbooks.Open Filename:="mon_nom", Password:="mon_pw"

Tiens moi au courant !

[Charlie3]

Bonjour Kimy_Ire, merci de ton aide.

Le problème ici c'est que ma fonction n'ouvre pas un fichier en particulier mais un fichier dicté par une variable de la fonction.

Du coup, je ne vois pas où/comment insérer ton bout de code à ma macro...

[Charlie3]

Personne d'autre pour me donner un peu d'aide ?

[Michel_M]

Bonjour

Lu ici
http://silkyroad.developpez.com/VBA/...ursFermes/#LII

..."Il n'est pas possible d'utiliser un classeur protégé par un mot de passe."...

Désolé