OUVRIR dossier vba

[STEVE]

BONJOUR A TOUS

Comment ouvrir un dossier en vba dont le chemin est specifié dans la feuille toto en a2

pour ensuite choisir manuellement un fichier excel qui est dans ce dossier

MERCI d'avance

 

[MichelXld]

bonsoir Steve

j'espere qu'un de ces 3 exemples pourra t'aider , si j'ai bien compris ta demande

Sub ouvrirExplorateurWindows()
'necessite d'activer reference Microsoft Shell Controls and Automation
Dim objShell As Shell
Set objShell = New Shell
objShell.Explore ('C:\\Documents and Settings\\michel\\dossier\\general\\excel')
End Sub

Sub ouvrirexplorer()
Dim IE As Object

Set IE = CreateObject('InternetExplorer.Application')
IE.Navigate 'C:\\Documents and Settings\\michel\\dossier\\general\\excel'
IE.Visible = True
End Sub

un exemple donné par Arnaud dans ce lien :
Lien supprimé



bonne soiree
MichelXld

Message édité par: MichelXld, à: 05/07/2005 19:03

 

[steve]

je te remercie mais ce n'est pas tout a fait cela

car le chemin specifier est en a2 dans la feuille toto et non directement dans la macro.

:S

 

[steve]

finalement ca marche en modifiant

merci encore

Sub historique()
Dim Chr As String
Chr = Range('toto!b2')

'necessite d'activer reference Microsoft Shell Controls and Automation
Dim objShell As Shell
Set objShell = New Shell
objShell.Explore (Chr)
End Sub

 

[MichelXld]

rebonsoir Steve

c'est bien que tu ais réussi à trouver la solution par toi meme

par contre il est préférable de ne pas utiliser Chr comme variable car c'est le nom d'une fonction Excel


bonne soiree
MichelXld