Discussion :

[hadrien4789]

Bonjour,

J'ai le chemin suivant qui fonctionne sur mon pc.

Code :

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

1
2
 Workbooks.Open Filename:=Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Desktop\MCC TEST HPO - part4\HRA-Natures_d'arrêté-décision-XSWHI001.xls"
Windows("HRA-Natures_d'arrêté-décision-XSWHI001.xls").Activate

Je voudrais qu'il fonctionne sur tous les pc de mon département, étant entendu que le fichier source sera sur leur bureau.

Pouvez-vous me dire où est mon erreur?

Cordialement

[Invité]

Bonjour,

Code :

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

1
2
3
 dim wb as workbook
Set wb=Workbooks.Open( Filename:= Environ("userprofile") & "\Desktop\MCC TEST HPO - part4\HRA-Natures_d'arrêté-décision-XSWHI001.xls")
Wb.Activate

[Menhir]

Si je ne me trompe pas, le Open active le fichier qu'il ouvre. Le Activate n'est donc pas utile.

[joe.levrai]

Bonjour,

le chemin vers le bureau avec Shell

Code :

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

1
2
3
4
5
Sub Toto()
    Dim LeShell As Object
    Set LeShell = CreateObject("WScript.Shell")
 MsgBox LeShell.SpecialFolders("Desktop")
End Sub

[Menhir]

le chemin vers le bureau avec Shell

Ca, je ne connaissais pas et je me le mets de côté, ça va être très utile.