Microsoft 365 Mise jour fichiers avec mot de passe

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Mars 2020

• #16

Là vous fermer votre fichier :
Workbooks.Open(Filename:=ThisWorkbook.Path & "\MMG Raport TBS - BASE.xlsm", Password:="1").Close True

Méthode Workbooks.Open (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

Essayez pour l'ouvrir :
Workbooks.Open(Filename:=ThisWorkbook.Path & "\MMG Raport TBS - BASE.xlsm", Password:="1")

 

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 12 Mars 2020

• #17

vous allez avoir besoin de patience, je suis vraiment désolé. mais cela ne marche pas.

 

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 30 Mars 2020

• #18

Bonjour Sylvanu,
J’espère que vous allez bien.
Bien compris ce que vous voulez que je fasses. maintenant quelle est la macro pour y parvenir et ou la mettre?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 30 Mars 2020

• #19

Bonjour,
Le plus simple à utiliser : Ouvrir les trois fichiers avec mot de passe, et à la fin les refermer. Comme déjà dit au post #10.
Ce que vous vous obstinez à refuser.

 

Dernière édition: 30 Mars 2020

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 30 Mars 2020

• #20

je ne refuse pas, je ne comprend pas ou mettre la macro dans le fichier COM?
Workbooks.Open(Filename:=ThisWorkbook.Path & "\MMG Raport TBS - BASE.xlsm", Password:="1")

 

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 31 Mars 2020

• #21

J'ai fait comme dans le post"10", et mis la macro : Workbooks.Open(Filename:=ThisWorkbook.Path & "\MMG Raport TBS - BASE.xlsm", Password:="1") dans le fichier COM.
cela me demande toujours le mot de passe !

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Mars 2020

• #22

Bonjour,
Ci joint deux fichiers. Les mettre sur votre bureau;
Ouvrez fichier Travail.
Le fichier1 est protégé par un mot de passe.Si vous cliquez sur le bouton le fichier s'ouvre.
Avec la simple macro :

VB:

Sub Ouvre()
    Workbooks.Open Filename:="fichier1.xlsm", Password:="1234"
End Sub

 

Pièces jointes

• Travail.xlsm

  21.1 KB · Affichages: 2
• Fichier1.xlsm

  11.5 KB · Affichages: 2

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 31 Mars 2020

• #23

je vous remercie pour vos efforts. mais seul le fichier rapport DG doit avoir un bouton. le fichier Base lui doit toujours être fermé et protégé. je ne sais vraiment pas quoi faire pour que cela fonctionne.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Mars 2020

• #24

Je vous le répète depuis le post #10.

le fichier Base lui doit toujours être fermé et protégé.

Cliquez pour agrandir...

Alors votre problème est insoluble.
Pour accéder à Base il doit être ouvert et déprotégé.

 

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 1 Avril 2020

• #25

comment expliquer que si le fichier Com n'a pas de mot de passe, cela fonctionne?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Avril 2020

• #26

D'abord Bonjour de si bon matin,

S'il vous plait, relisez le post #4, je vous y explique le problème. Si COM n'est pas protégé, évidemment que cela fonctionne.

 

Vote positif 0 Vote négatif