ouvrir un fichier

[diop]

Bonjour le forum,

j'ai un petit souci car je veux via une macro faire apparaitre une boite de dialogue afin d'ouvrir un fichier que je selectionne.
Jusque là tout va bien.
Mais lorsque je selectionne le fichier à ouvrir, et que je clique dessus, il ne l'ouvre pas.
Voici le code que j'utilise pour y arriver

sub ouvrir

ChDir "P:\DF\WCorporate\BUDGET 2005 Forecast 2004\CONSO"

fileToOpen = Application _
.GetOpenFilename("Tous les fichiers Microsoft Excel (*.xls), *.xls")
end sub


Merci de votre aide

 

[diop]

rebonjour le forum,

j'ai reussi à resoudre le probleme de l'ouverture du fichier par ce code:

sub ouvrir

ChDir "P:\DF"

Set this = ThisWorkbook 'définie la variable this (=ce classeur)
Application.Dialogs(xlDialogOpen).Show 'ouvre la boite de dialogue Excel/Fichier/Ouvrir

end sub

Merci