Discussion :

[illight]

Bonjour à tous,

Cela faisait longtemps que j'étais pas venu ici

J'ai un souci très étrange : j'ai créé une macro Excel, pour pouvoir ouvrir un fichier Excel protégé par un mot de passe, que je veux laisser à la main de l'utilisateur pour le saisir. Voici la macro utilisée :

Code :

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

1
2
3
4
 
NomFichierFinal = ActiveWorkbook.Name
FichierDemande = Application.GetOpenFilename(FileFilter:="Fichiers Excel (*.xlsx*), *.xlsx*", Title:="Choisissez un fichier Excel à ouvrir", MultiSelect:=False)
Set wbk = Application.Workbooks.Open(FichierDemande)

Rien de bien fou me direz-vous.

Du coup, sur le fichier Excel que je cherche, il y a un mot de passe, variable, et que je dois laisser à la main de l'utilisateur pour le saisir au moment de l'ouverture du fichier Excel.

Ce qui m'intrigue le plus (j'ai fait du pas à pas pour vérifier), c'est qu'au moment du GetOpenFileName, quand je choisis mon fichier Excel, il fait comme s'il l'ouvrait et me demande le mot de passe.
Donc je le rentre, et ensuite, quand il lance la vraie application d'ouverture du fichier, il me redemande le mot de passe.

Je pensais que la fonction GetOpenFileName était faite uniquement pour récupérer le nom du fichier sélectionné, sauf que là il me demande aussi le mot de passe du fichier.

Comment faire pour contourner le problème et qu'il ne me demande le mot de passe qu'une fois ?
Faut-il que j'utilise une autre boite de dialogue de recherche de fichier ? Faut-il que je fasse un inputbox pour récupérer au préalable le mot de passe du fichier Excel ?

Merci d'avance pour votre aide

[deedolith]

Salut,

Comme alternative, tu peux passer par l'objet FileDialog.

[patmeziere]

bonjour
chez moi office 2013 je n'ai pas ce phénomène
l'imput password n'est pas déclanché par le getopentfilename
par contre à l'open oui

[illight]

J'ai essayé ça mais j'ai le même phénomène.

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
Dim oFD As FileDialog
'Paramètre la fenêtre Ouvrir
Set oFD = Application.FileDialog(msoFileDialogOpen)
With oFD
    .ButtonName = "Sélectionner"
    .Title = "Sélectionnez un fichier"
    'Interdit la multi sélection
    .AllowMultiSelect = False
    'With .Filters
    ' .Add "Fichiers Excel (*.xlsx*), *.xlsx*"
    'End With
    If .Show Then
       FichierDemande = .SelectedItems(1)
    End If
End With

De plus, normalement, et si j'ai bien compris, l'argument msoFileDialogOpen me permet d'ouvrir le fichier, sauf qu'il ne me l'ouvre pas.


j'ai essayé avec l'autre argument msoFileDialogFilePicker qui permet normalement de juste sélectionner un fichier. Et par la suite j'ouvre le fichier, mais j'ai pareil : il me demande 2 fois le mot de passe pour le fichier Excel...

[deedolith]

Es-tu sur que tu n'as pas un évenement imprévu qui se déclenche ?
Genre Workbook_Open, Workbook_Activate, ou Application_NewWorkbook ect ... ?
A partir de quel gestionnaire d'évenement ton code est-il appelé ?

[illight]

C'est une procédure que je lance manuellement :

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
Sub ImportFichier()
Dim wbk As Workbook
'récupération du fichier
NomFichierFinal = ActiveWorkbook.Name
NbFeuilles = Sheets.Count
 
FichierDemande = Application.GetOpenFilename(FileFilter:="Fichiers Excel (*.xlsx*), *.xlsx*", Title:="Choisissez un fichier Excel à ouvrir", MultiSelect:=False)
Set wbk = Application.Workbooks.Open(FichierDemande)
'copie de de la page dans le classeur actuel (qu'on supprimera après)
ActiveSheet.Copy After:=Workbooks(NomFichierFinal).Sheets(NbFeuilles)
DoEvents
Sheets(Sheets.Count).Name = "Infos"
'fermeture du classeur
Application.DisplayAlerts = False
wbk.Close SaveChanges:=False
Application.DisplayAlerts = True
 
End Sub

Et Comme je l'ai dit avant, quand je fais du pas à pas, je vois bien qu'il me demande le mot de passe au moment du GetOpenFileName, et aussi au moment de l'ouverture du fichier.

Et pareil si j'utilise ce que tu m'as dit :

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 ImportFichier()
Dim wbk As Workbook
'récupération du fichier
NomFichierFinal = ActiveWorkbook.Name
NbFeuilles = Sheets.Count
 
Dim oFD As FileDialog
'Paramètre la fenêtre Ouvrir
Set oFD = Application.FileDialog(msoFileDialogOpen)
With oFD
    .ButtonName = "Sélectionner"
    .Title = "Sélectionnez un fichier"
    'Interdit la multi sélection
    .AllowMultiSelect = False
    If .Show Then
       FichierDemande = .SelectedItems(1)
    End If
End With
 
End Sub

Au moment du SelectedItems, il me demande le mot de passe, quelquesoit le modèle du FileDialog utilisé. Il me demande aussi 2 fois le mot de passe.

[illight]

Bonjour à tous,


J'ai trouvé pourquoi !!!
En fait, quand la fenêtre de sélection s'ouvre, j'avais la prévisualisation des données à droite de l'explorateur, et cette visualsiation des données qui demandait le mot de passe.

En le désactivant, le problème a disparu

Petite question : savez-vous, peut-être dans l'application FileDialog, si on peut désactiver cette visualisation ?

[deedolith]

La propriété InitialView te permet de contrôler l'apparence de la boite de dialogue:
https://learn.microsoft.com/fr-fr/of...og.initialview
https://learn.microsoft.com/fr-fr/of...filedialogview