Chemin d'accès

[P@tric€]

Bonsoir le forum

Je me demandais comment faire pour spécifier un chemin d'accès pour ouvrir un document sachant que l'appli peut être utilisé sur divers OS, car en effet le chemin n'est pas le même (XP, 2000 ...).

Bonne soirée et merci.

@ + Patrice

 

[MichelXld]

bonjour P@tric€

je ne suis pas sur de bien comprendre ta question , mais cet exemple permet de retrouver le nom et le chemin de l'executable qui ouvre le fichier sélectionné

Lien supprimé


bonne journée
MichelXld

 

[AlainTech]

Bonjour P@tric€, MichelXld, le forum,

Je pense que ce dont P@tric€ à besoin c'est plutôt ThisWorkbook.Path pour savoir où est son application.

 

[P@tric€]

Bonjour à tous

En fait je veux ouvrir un fichier (Word, Excel ...) qui est situé dans mes documents via un bouton.
Mais le problème est que le chemin diffère suivant que l'OS est XP ou 2000 ...

Alors comment faire pour que le document soit ouvert même si le chemin n'est pas exactement le même.

Merci encore pour les deux réponses.

@+

Patrice

 

[MichelXld]

bonjour P@tric€ , bonjour Alain

ci joint un exemple pour retrouver le chemin du répertoire 'mes documents ' . j'espere que je ne serai pas hors sujet comme dans mon premier message ( testé avec WinXP )


Sub cheminMesDocuments()
'testé avec Excel2002 & WinXp
Const Cible = &H5 'Mes Documents
Dim objShell As Object
Dim objFolder As Object, objFolderItem As Object

Set objShell = CreateObject('Shell.Application')
Set objFolder = objShell.NameSpace(Cible)
Set objFolderItem = objFolder.Self

MsgBox objFolderItem.Path
End Sub



bonne soiree
MichelXld

Message édité par: MichelXld, à: 22/06/2005 17:00

 

[P@tric€]

Bonsoir le forum
Bonsoir Michel

Merci Michel je vais voir ça de plus près.

Bonne soirée à tout le monde.

@+
Patrice