Discussion :

[Patate3181]

Bonjour à tous,

Tout d'abord j'espère qu'aucun fil n'ayant le même sujet n'a été créer, je n'ai rien trouvé.

Bien, je vous explique la situation, j'aimerai savoir si il est possible d'ouvrir un raccourci de fichier avec VBA, j'ai réussis à ouvrir des fichiers, des dossiers, mais des raccourcis, j'ai beau essayé, j'ai beau cherché, je ne trouve pas grand chose à ce sujet.. (Peut être un soucis de mot clé).

Codes testé :

Code :

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

1
2
3
4
5
6
7
Sub Achats()
 
    Workbooks.Open Filename:= _
        "P:\090-QUALITE & SECURITE\080-REVUES DE DIRECTION\Processus indicateurs\Achats.xlsm" _
        , UpdateLinks:=0
 
End Sub

Second code testé :

Code :

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

1
2
3
4
5
6
7
Sub Test()
Dim Fichier As String
Fichier = "P:\090-QUALITE & SECURITE\080-REVUES DE DIRECTION\Processus indicateurs\" & "Achats.xlsm"
Fichier = "cmd /c " & """" & Fichier & """"
Call Shell(Fichier, vbHide)
Workbooks.Open Fichier
 End Sub

Ce dernier à été trouvé sur internet, mais je débute et j'ai pas réussis à le faire s'adapter à mon problème … Si l'un d'entre vous pourrais m'aiguiller sur les erreurs que j'ai pu effectuer sur ces codes, ou si carrément je prend le mauvais chemin ou si c'est carrément pas possible peut être..

Merci d'avance du temps que vous allez passer à me repondre,

Cordialement,

Axel.

[pijaku]

Bonjour,

Pourquoi "ouvrir un raccourci" et pas ouvrir le fichier directement?

Sinon, voici :

Code :

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

1
2
3
4
5
6
Sub Test()
Dim Fichier As String
    Fichier = "C:\MonFichier - raccourci.lnk"
    Fichier = "cmd /c " & """" & Fichier & """"
    Call Shell(Fichier, vbHide)
End Sub

[Patate3181]

J'ai rentré ton code et on voit bien que ca mouline mais rien ne se passe, pourtant quand je lance avec F8, le fichier s'appelle bien comme il faut mais il ne l'ouvre pas c'est normal ?

Pourquoi "ouvrir un raccourci" et pas ouvrir le fichier directement?

Alors en gros, les fichiers sont dans un dossier bien particulier qui est fixe. Ce que je souhaites faire c'est créer des sous-dossier pour y mettre les raccourcis

Chaque fichier correspond à un processus de l'entreprise,
Chaque dossier correspondrait à un responsable de processus

Les processus ne changeront jamais d'endroit par conséquent ils ont un emplacement fixe, par contre les responsable de processus peuvent se décharger le travail, et donner un processus à quelqu'un d'autre, pour cela il doit deplacer le processus de son dossier à celui d'un autre collègue. j'ai 4 responsables de processus et 11 fichiers qu'ils se partagent, voila pourquoi les raccourcis. Cependant, si tu as compris ce que je voulais dire et que tu as une meilleure solution je suis preneur !

PS : Il faut aussi que chaque amélioration soit enregistrée bien entendu sur le fichier source ce qui explique qu'on ne peut pas créer une simple copie

PS 2 : Je précise également que ces fichiers se trouvent sur un reseau d'entreprise et qu'avec l'invité de commande (En enlevant le "VbHide" à la fin) j'ai pas réussis à y accéder

Merci

[pijaku]

J'ai rentré ton code et on voit bien que ca mouline mais rien ne se passe

Peux-tu nous copier/coller ton code?

[Patate3181]

Oui biensur alors j'ai testé plusieurs codes mais surement pas les bons ^^

N°1

Code :

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

1
2
3
4
5
6
Sub Test()
Dim Fichier As String
Fichier = "P:\090-QUALITE & SECURITE\080-REVUES DE DIRECTION\Processus indicateurs\Achats.xlsm - raccourci.lnk"
Fichier = "cmd /p " & """" & Fichier & """"
Call Shell(Fichier)
End Sub

N°2

Code :

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

1
2
3
4
5
6
Sub Test()
Dim Fichier As String
Fichier = "P:\Achats.xlsm - raccourci.lnk"
Fichier = "cmd /p " & """" & Fichier & """"
Call Shell(Fichier)
End Sub

N°3

Code :

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

1
2
3
4
5
6
Sub Test()
Dim Fichier As String
Fichier = "P:\090-QUALITE & SECURITE\080-REVUES DE DIRECTION\Processus indicateurs\Achats.xlsm - raccourci.lnk"
Fichier = "cmd /c " & """" & Fichier & """"
Call Shell(Fichier)
End Sub

N°4

Code :

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

1
2
3
4
5
6
Sub Test()
Dim Fichier As String
Fichier = "P:\Achats.xlsm - raccourci.lnk"
Fichier = "cmd /c " & """" & Fichier & """"
Call Shell(Fichier)
End Sub

[pijaku]

1- tu oublies : cmd /p. ça ne veut rien dire.
Regarde ici pour les commandes "DOS" : https://stackoverflow.com/questions/...oes-cmd-c-mean

2- la bonne syntaxe est plus celle-ci :

Code :

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

1
2
3
4
5
6
Sub Test()
Dim Fichier As String
Fichier = "P:\090-QUALITE & SECURITE\080-REVUES DE DIRECTION\Processus indicateurs\Achats.xlsm - raccourci.lnk"
Fichier = "cmd /c " & """" & Fichier & """"
Call Shell(Fichier)
End Sub

à vérifier :
- l'accès au réseau,
- l'accès au fichier (l'ouvrir manuellement via le raccourci)
- le nom EXACT du raccourci.