Discussion :

[pilcar]

Bonjour,

pourriez vous me dire comment je pourrais ouvrir en automatque ce fichier excell qui me demande a chaque fois de saisir le password.

Merci

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
Sub Travail()
 
Dim Dossier As String, Fichier As String, Chemin As String
Dossier = "C:\"
Fichier = "essai.xlsx"
 
Chemin = Dossier & Fichier
 
Dim Presence As Boolean
Presence = False
 
For Each w In Workbooks
If w.Name = Fichier Then Presence = True
Next w
 
If Presence = True Then
Workbooks(Fichier).Activate
Else
Workbooks.Open Filename:=Chemin
End If
End Sub

[Theze]

Bonjour,

De cette façon (adapter le mot de passe) :

Code :

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

1
2
 
Workbooks.Open Chemin, , , , "MonMotDePasse"

Hervé.