Discussion :

[djoumusic]

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

[casefayere]

Bonsoir,
inspires-toi de ce code :

Code :

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

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

[djoumusic]

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

[casefayere]

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

[djoumusic]

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

[casefayere]

re,

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

peut on le faire sans l'ouvrir,

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

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

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)

[casefayere]

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

Code :

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

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 :

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

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 :

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

Windows("recup.xls").Activate

Code :

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

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"

[BenjGe]

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

essaie comme ça

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

[djoumusic]

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 ?