Existe t'il un moyen de proposer par défaut l'ouverture du dernier fichier
appelé par cette fonction comme le fait Excel lorsque par exemple l'on veut
mettre à jour une zone de données externe?
Cette fonction "GetOpenFilename" mémorise bien le dernier path mais ne
préselectionne pas par défaut le dernier fichier ouvert par elle même...
Dans le cas de la fonction "GetSaveAsFilename", nous disposons de
InitialFilename:= pour précharger un nom de fichier, qu'en est-il de
GetOpenFilename?
J'ai essayé en utilisant le nom du fichier dans FileFilter:= mais sans
succès pour le moment...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
PMO
Bonjour,
Une piste avec la collection Dialogs (voir code ci- dessous).
'********************** Option Explicit Sub aa() Static A$ Dim bool As Boolean If A$ = "" Then bool = Application.Dialogs(xlDialogOpen).Show Else bool = Application.Dialogs(xlDialogOpen).Show _ (arg1:=A$) End If If Not bool Then Exit Sub A$ = ActiveWorkbook.FullName End Sub '*********************
Cordialement.
PMO Patrick Morange
-----Message d'origine----- Existe t'il un moyen de proposer par défaut l'ouverture du dernier fichier
appelé par cette fonction comme le fait Excel lorsque par exemple l'on veut
mettre à jour une zone de données externe? Cette fonction "GetOpenFilename" mémorise bien le dernier path mais ne
préselectionne pas par défaut le dernier fichier ouvert par elle même...
Dans le cas de la fonction "GetSaveAsFilename", nous disposons de
InitialFilename:= pour précharger un nom de fichier, qu'en est-il de
GetOpenFilename?
J'ai essayé en utilisant le nom du fichier dans FileFilter:= mais sans
succès pour le moment...
Merci à vous Alain79
.
Bonjour,
Une piste avec la collection Dialogs (voir code ci-
dessous).
'**********************
Option Explicit
Sub aa()
Static A$
Dim bool As Boolean
If A$ = "" Then
bool = Application.Dialogs(xlDialogOpen).Show
Else
bool = Application.Dialogs(xlDialogOpen).Show _
(arg1:=A$)
End If
If Not bool Then Exit Sub
A$ = ActiveWorkbook.FullName
End Sub
'*********************
Cordialement.
PMO
Patrick Morange
-----Message d'origine-----
Existe t'il un moyen de proposer par défaut l'ouverture
du dernier fichier
appelé par cette fonction comme le fait Excel lorsque
par exemple l'on veut
mettre à jour une zone de données externe?
Cette fonction "GetOpenFilename" mémorise bien le
dernier path mais ne
préselectionne pas par défaut le dernier fichier ouvert
par elle même...
Dans le cas de la fonction "GetSaveAsFilename", nous
disposons de
InitialFilename:= pour précharger un nom de fichier,
qu'en est-il de
GetOpenFilename?
J'ai essayé en utilisant le nom du fichier dans
FileFilter:= mais sans
Une piste avec la collection Dialogs (voir code ci- dessous).
'********************** Option Explicit Sub aa() Static A$ Dim bool As Boolean If A$ = "" Then bool = Application.Dialogs(xlDialogOpen).Show Else bool = Application.Dialogs(xlDialogOpen).Show _ (arg1:=A$) End If If Not bool Then Exit Sub A$ = ActiveWorkbook.FullName End Sub '*********************
Cordialement.
PMO Patrick Morange
-----Message d'origine----- Existe t'il un moyen de proposer par défaut l'ouverture du dernier fichier
appelé par cette fonction comme le fait Excel lorsque par exemple l'on veut
mettre à jour une zone de données externe? Cette fonction "GetOpenFilename" mémorise bien le dernier path mais ne
préselectionne pas par défaut le dernier fichier ouvert par elle même...
Dans le cas de la fonction "GetSaveAsFilename", nous disposons de
InitialFilename:= pour précharger un nom de fichier, qu'en est-il de
GetOpenFilename?
J'ai essayé en utilisant le nom du fichier dans FileFilter:= mais sans