Discussion :

[wa7ch3000]

Bonjour

Je souhaite utiliser une fichier excel comme mini base de données dans mon application écrite en Visual Basic,
je sait comment piloter excel depuis VB6 mais ca ne fonctionne que si la fichier excel n'est pas protéger par mot de passe
alors, pourrez vous SVP m'aider dans ces points :

1 - ouvrir un fichier Excel protégé par mot de passe
2 - puis de modifier une donnée
3 - refermer ce fichier en le protégeant à nouveau par le même mot de
passe
J'ai déjà écrit la partie 2 qui concerne mes besoins.

tout ce que je trouve dans les forums, c'est une explication pour
l'ouverture des feuilles ou onglets protégés par un mot de passe dans
un fichier ; alors que mon souhait est l'ouverture du fichier.

Merci

[MrBoo]

Salut,

Apparemment, il serait possible d'utiliser une syntaxe du genre :

Code :

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

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

Mais je n'ai jamais tenté l'expérience.
Je te laisse voir si ça t'est utile...

A+

[wa7ch3000]

Salut,

Apparemment, il serait possible d'utiliser une syntaxe du genre :

Code :

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

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

Mais je n'ai jamais tenté l'expérience.
Je te laisse voir si ça t'est utile...

A+

merci pour votre réponse, voici le code qui permet d'ouvrir une fichier protéger par mot de passe :

Code :

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

Set wbExcel = appExcel.Workbooks.Open("C:\BD.xls", Password:="XXXX")

mais j'ai trouver un problem lors de fermeture du fichier !!
je suis obliger de confirmer chaque fois l'enregistrement des modifs

alors, je veux que l'enregistrement soit automatique sans confirmation

y'a t'il une solution

[M E H D I]

Essaye ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
Set wbExcel = Application.Workbooks.Open("C:\File.XLS", Password:="XXXX")
 
*********************
        TRAITEMENT
*********************
wbExcel.Save   'Sauvegarder avant de fermer
 
wbExcel.Close

[wa7ch3000]

merci mehdi mais le même problème :
un message apparu lors de fermeture :

"Un fichier nommé 'BD.xls' existe déja à cet emplacement. voulez vous le remplacer ?"

y'a t'il d'autre sol pleaaaaaaaaaaaaaaase

[M E H D I]

Avec ce code tu vas forcer l'écrasement du fichier. essaye le

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
 
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
Set wbExcel = Application.Workbooks.Open("C:\DB.XLS", Password:="XXXX")
 
*********************
        TRAITEMENT
*********************
'Sauvegarder sans demande de confirmation
Application.DisplayAlerts = False
wbExcelDestination.SaveAs "C:BD.XLS"
Application.DisplayAlerts = True
 
 'fermer le fichier
wbExcel.Close

[wa7ch3000]

merci mehdi
résolu