macro pour deproteger un fichier en liaison avec mot de passe lecture

Bonjour,
j'ai 2 fichiers,
"source" et "recup"
"source" contient en a1 : 123
mon fichier "recup" a une liaison vers source pour recuperer cette valeur en a1 aussi.

mon probleme est que "source" a un mot de passe pour la lecture/modification
et a chaque fois que j'ouvre "recup" on me demande le mot de passe de "source" et la mise a jour n'est pas systematique, non plus.

je voudrais avoir une macro sur "recup" sur l'ouverture,
de facon à pouvoir ecrire mon mot de passe si on me le demande pour la mise a jour,

j'ecrirais mon mot de passe dans le fichier "recup" en (f1)
et j'en recupere la valeur a renseigner si un mot de passe est demander pour "source".

est-ce possible ?

Merci !!!

julien

je reformule,

j'ai 1 fichier excel en liaison avec autre fichier qui contient un mot de passe pour la lecture..
a chaque ouverture de mon fichier, je suis obligé de saisir le mot de passe.. pour effectuer les mises a journ

y a t il une macro qui pourrait dire

si le fichier lié demande un mot de passe alors mot de passe = 1234

merci ...

je suis assez embeter avec ça...

Julien

Bonsoir,
inspires-toi de ce code :

Code:

---

WorkBooks.Open "C:\chemin complet\monClasseur1.xls", Password:="Toto"

---

OK !
comment pourrais je faire pour avoir un code du style,
si le workbook demande un mot de passe, alors password = 1234

c'est possible... ?

il faudrait en fait, un truc comme :
si le linksource demande un mot de passe, alors
password = 123

c'est chaud, j'y arrive pas !!

Je ne comprends plus car dans ma solution je te propose d'intégrer le passeport dans le code, j'ai mis toto mais pourquoi pas 123

oui, mais ca necessite d'ouvrir le workbooks...
peut on le faire sans l'ouvrir,
et surtout,... c'est qu'il est possible que dans mon utilisation,
le fichier soit ou pas protegé...
et s'il n'est pas protegé et que j'entre le parametre password... ca va beugué...
donc,
il me faut un code qui verifie si excel va demander un mot de passe pour le fichier, et si oui... alors on l'indique...

re,

Citation:

---

j'ai 1 fichier excel en liaison avec autre fichier qui contient un mot de passe pour la lecture..
a chaque ouverture de mon fichier, je suis obligé de saisir le mot de passe.. pour effectuer les mises a journ

---

déjà là tu ouvres le fichier

Citation:

---

peut on le faire sans l'ouvrir,

---

oui mais autre manipulation à voir dans le forum avec les connections d'un classeur fermé

Citation:

---

et s'il n'est pas protegé et que j'entre le parametre password...

---

par contre, je ne connais pas le moyen de connaitre à l'avance si un fichier est protégé ou non

Citation:

---

il me faut un code qui verifie si excel va demander un mot de passe pour le fichier, et si oui... alors on l'indique...

---

ça se fait normalement avec les boites de dialogue excel
j'ai l'impression d'être largué par rapport à ta demande

Bonne nuit,
Demain j'irais peut-être mieux (fatigue)

re,

Citation:

---

Citation:

---

j'ai 1 fichier excel en liaison avec autre fichier qui contient un mot de passe pour la lecture..
a chaque ouverture de mon fichier, je suis obligé de saisir le mot de passe.. pour effectuer les mises a journ

---

déjà là tu ouvres le fichier

---

ben non, je n'ouvre pas le fichier source qui a le mot de passe.. mais celui qui
essaie de recuperer les infos...
sinon, avec les fichiers ouverts... ca marche !

Bonjour djoumusic, le forum

Je pense mieux cerner ta demande mais pour l'instant je ne vois pas la solution :oops:, si je peux (question de temps), je regarderai si des solutions existent.

Bonne journée en attendant, en espérant que quelqu'un connaisse la réponse

je viens de lire cet article et pour lire dans un classeur fermé (si cet article est toujours d'actualité) tu es mal barré
http://silkyroad.developpez.com/VBA/ClasseursFermes/

Bon courage

mais non...
on lit bien par liaison quand le fichier n'est pas protegé par un mot de passe..
là il faut juste connaitre le nom de la boite de dialogue qui s'ouvre pour nous demander le mot de passe, et dire a notre fichier dans le thisworkbook,
si cette boite de dialogue, alors ce mot de passe...
qu'est ce que vous en pensez...???

oui mais excel ouvre quand même le classeur même s'il ne te le montre pas.
L'informatique ça reste pragmatique, et Excel n'a pas de boule de cristal pour voir le contenu d'un fichier sans l'ouvrir.

Sinon le raisonnement que tu fais n'est pas le bon. Tu ne parviendras pas simplement à intercepter la fenêtre de demande de mot de passe pour la renseigner automatiquement. Ca va être une complication pour rien.

Si tu pars sur l'idée qui t'a été proposée:

Code:

---

1 2 3 4 5 6 7 8

on error resume next 'ouvre le classeur sans erreur qu'il ait ou non un mot de passe WorkBooks.Open "C:\chemin complet\monClasseur1.xls" WorkBooks.Open "C:\chemin complet\monClasseur1.xls", Password:="Toto" on error goto 0 'recopie les valeurs de la source à la cible, à adapter Workbooks("classeur cible.xls").Worksheets("feuille cible").Range("plage cible").value= _ Workbooks("monClasseur1.xls").Worksheets("feuille source").Range("plage source").value

---

ok je vais essayer comme ca,
je peux mettre mon mot de passe dans une cellule ?

Code:

---

WorkBooks.Open "C:\chemin complet\monClasseur1.xls", Password:= range("a1").value

---

je plante total : voila le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test2()     On Error Resume Next 'ouvre le classeur sans erreur qu'il ait ou non un mot de passe Workbooks.Open "C:\Users\Djou\Desktop\source.xls" Workbooks.Open "C:\Users\Djou\Desktop\source.xls", Password:="Toto" On Error GoTo 0 'recopie les valeurs de la source à la cible, à adapter Workbooks("recup.xls").Worksheets("feuil1").Range("a1").Value = _ Workbooks("source.xls").Worksheets("feuil1").Range("c4").Value   End Sub

---

lorsque je le lance en pas à pas,
a l'ouverture, du fichier le mot de passe m'est demandé..
et ensuite, lorsque je clique sur annuler pour continuer la procedure,

Code:

---

1 2	Workbooks("recup.xls").Worksheets("feuil1").Range("a1").Value = _ Workbooks("source.xls").Worksheets("feuil1").Range("c4").Value

---

m'envoie un message d'erreur,
n'appartient pas a la selection...

cepandant en faisant comme ça..
ca semble fonctionner

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1()   Range("A1").Select Workbooks.Open "C:\Users\Djou\Desktop\AVRIL 2010\BRASSERIE avril 2010p.xls", Password:=123 Workbooks("recup").Activate ActiveCell.FormulaR1C1 = "='C:\Users\Djou\Desktop\AVRIL 2010\[BRASSERIE avril 2010p.xls]Planning'!R[3]C[2]" Workbooks("source").Close   Range("A2").Select   End Sub

---

par contre j'ai à chaque ouverture de fichier la demande du mot de passe...
et ça c'est embetant !

Bonjour le forum, djoumusic

Citation:

---

par contre j'ai à chaque ouverture de fichier la demande du mot de passe...
et ça c'est embetant !

---

si tu as la demande de mot de passe avec le mot de passe estompé à l'intérieur, il suffit de faire

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1() APPLICATION.DisplayAlerts = false 'enleve la boite de dialogue Range("A1").Select Workbooks.Open "C:\Users\Djou\Desktop\AVRIL 2010\BRASSERIE avril 2010p.xls", Password:=123 Workbooks("recup").Activate ActiveCell.FormulaR1C1 = "='C:\Users\Djou\Desktop\AVRIL 2010\[BRASSERIE avril 2010p.xls]Planning'!R[3]C[2]" Workbooks("source").Close APPLICATION.DisplayAlerts = true 'remet la boite de dialogue Range("A2").Select   End Sub

---

mais, non,
ce n'est pas a l'execution de la macro que j'ai la demande
c'est a l'ouverture du fichier...
j'ai mis Application.DisplayAlerts = False dans thisworkbook open, ca ne fait rien
ni en auto_open dans un module..

je ne sais pas comment faire...

je ne comprends pas, j'ai fait un essai adapté simplement avec

Code:

---

1 2 3 4 5

Sub Macro1() Application.DisplayAlerts = False 'enleve la boite de dialogue Range("A1").Select Workbooks.Open "C:\Users\Dominique\Documents\essai.xls", Password:=123 End Sub

---

et je n'ai eu la boite de dialogue
d'autre part, je ne saisis pas non plus ton code

Code:

---

1 2 3 4 5 6

Sub Macro1()   Range("A1").Select Workbooks.Open "C:\Users\Djou\Desktop\AVRIL 2010\BRASSERIE avril 2010p.xls", Password:=123 Workbooks("recup").Activate '....

---

si recup est vraiment le nom de fichier, il faut ecrire

Code:

---

Windows("recup.xls").Activate

---

Code:

---

1 2 3

'... ActiveCell.FormulaR1C1 = "='C:\Users\Djou\Desktop\AVRIL 2010\[BRASSERIE avril 2010p.xls]Planning'!R[3]C[2]" Workbooks("source").Close

---

et là c'est quoi "source", ça ne serait pas plutot "BRASSERIE avril 2010p.xls"

désolé je ne suis pas allé assez loin dans le code

essaie comme ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub test2()   'ouvre le classeur sans erreur qu'il ait ou non un mot de passe On Error GoTo Erreur Workbooks.Open "C:\Users\Djou\Desktop\source.xls", Password:="toto" On Error GoTo 0 'recopie les valeurs de la source à la cible, à adapter Workbooks("recup.xls").Worksheets("feuil1").Range("a1").Value = _ Workbooks("source.xls").Worksheets("feuil1").Range("c4").Value   Exit Sub Erreur: Workbooks.Open "C:\Users\Djou\Desktop\source.xls" Resume Next End Sub

---

et oui tu peux stocker le mot de passe dans une cellule

ok vos proposition, fonctionne,
donc je dois configurer mes liaisons pour chaque ouverture,
de maniere à ce que mes cellules n'est que des valeurs et qu'elle n'est plus de liaisons...
car avec mon code, j'inscris dans ma cellule la liaison du type "=c/......"

et qu'une fois les cellules, remplient... ben forcement a chaque ouverture
j'ai la demande de mot de passe avec ou sans application.display = false

c'est ça ?