J'ai une macro qui installe sur le bureau un raccourci vers vers un fichier.
Ce fichier peut se trouver sur n'importe quel lecteur : D ; E ; F ; G ; H ; I
; J ... Comment dois- je rédiger mon code pour que le raccourci cible le
fichier quel que soit le lecteur ? J'ai essayé de faire plusieurs lignes de
code qui vise successivement les différents lecteurs possibles. Mais c'est
toujours celui qui est visé dans la dernière ligne qui est visé. Quant
l'application n'y est pas, hé bien, il ne se produit rien. J'ai essayé "on
error resume next" pour, soit disant, obliger le code à s'exécuter ligne par
ligne ; c'est à dire à chercher sur le premier lecteur, soit "D" et ne passer
à "E" que s'il ne le trouve pas, ou si le fichier visé ne s'y trouve pas. Et
ainsi de suite... Cela n'a pas marché.
J'espère avoir été clair. Je m'excuse pour la longueur du message.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre Fauconnier
Bonjour...
Il serait intéressant de pouvoir voir ton code...
Pierre
"Izmi" a écrit dans le message de news:
Bonjour tout le monde ;
J'ai une macro qui installe sur le bureau un raccourci vers vers un fichier. Ce fichier peut se trouver sur n'importe quel lecteur : D ; E ; F ; G ; H ; I ; J ... Comment dois- je rédiger mon code pour que le raccourci cible le fichier quel que soit le lecteur ? J'ai essayé de faire plusieurs lignes de code qui vise successivement les différents lecteurs possibles. Mais c'est toujours celui qui est visé dans la dernière ligne qui est visé. Quant l'application n'y est pas, hé bien, il ne se produit rien. J'ai essayé "on error resume next" pour, soit disant, obliger le code à s'exécuter ligne par ligne ; c'est à dire à chercher sur le premier lecteur, soit "D" et ne passer à "E" que s'il ne le trouve pas, ou si le fichier visé ne s'y trouve pas. Et ainsi de suite... Cela n'a pas marché.
J'espère avoir été clair. Je m'excuse pour la longueur du message.
Merci pour votre aide.
Izmi
Bonjour...
Il serait intéressant de pouvoir voir ton code...
Pierre
"Izmi" <Izmi@discussions.microsoft.com> a écrit dans le message de news:
58B75C8B-9F52-4D47-9BC4-2E43709B91E2@microsoft.com...
Bonjour tout le monde ;
J'ai une macro qui installe sur le bureau un raccourci vers vers un
fichier.
Ce fichier peut se trouver sur n'importe quel lecteur : D ; E ; F ; G ; H
; I
; J ... Comment dois- je rédiger mon code pour que le raccourci cible le
fichier quel que soit le lecteur ? J'ai essayé de faire plusieurs lignes
de
code qui vise successivement les différents lecteurs possibles. Mais c'est
toujours celui qui est visé dans la dernière ligne qui est visé. Quant
l'application n'y est pas, hé bien, il ne se produit rien. J'ai essayé "on
error resume next" pour, soit disant, obliger le code à s'exécuter ligne
par
ligne ; c'est à dire à chercher sur le premier lecteur, soit "D" et ne
passer
à "E" que s'il ne le trouve pas, ou si le fichier visé ne s'y trouve pas.
Et
ainsi de suite... Cela n'a pas marché.
J'espère avoir été clair. Je m'excuse pour la longueur du message.
J'ai une macro qui installe sur le bureau un raccourci vers vers un fichier. Ce fichier peut se trouver sur n'importe quel lecteur : D ; E ; F ; G ; H ; I ; J ... Comment dois- je rédiger mon code pour que le raccourci cible le fichier quel que soit le lecteur ? J'ai essayé de faire plusieurs lignes de code qui vise successivement les différents lecteurs possibles. Mais c'est toujours celui qui est visé dans la dernière ligne qui est visé. Quant l'application n'y est pas, hé bien, il ne se produit rien. J'ai essayé "on error resume next" pour, soit disant, obliger le code à s'exécuter ligne par ligne ; c'est à dire à chercher sur le premier lecteur, soit "D" et ne passer à "E" que s'il ne le trouve pas, ou si le fichier visé ne s'y trouve pas. Et ainsi de suite... Cela n'a pas marché.
J'espère avoir été clair. Je m'excuse pour la longueur du message.
Merci pour votre aide.
Izmi
Izmi
Merci Pierre. Voici mon code : Public Sub Raccourci() Set WshShell = CreateObject("WScript.Shell") strdesktop = WshShell.specialFolders("Desktop") Utilisateur = Mid(strdesktop, 27, 8) Set oshellLink = WshShell.CreateShortcut(strdesktop & "Cours.lnk") 'libellé du raccourci On Error Resume Next oshellLink.targetPath = "I:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "E:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "F:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "G:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "H:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "I:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "J:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "K:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "D:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.WindowStyle = 2 oshellLink.HotKey = "CTRL+SHIFT+F" 'raccourci clavier On Error Resume Next oshellLink.IconLocation = "D:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "F:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "G:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "H:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "I:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "J:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "D:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "C:Documents and SettingsdacheikhMes documentsMes imagesdouane1.ico" 'icône du raccourci oshellLink.IconLocation = "D:Mes imagesdouane1.ico" 'icône du raccourci oshellLink.IconLocation = "I:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.Description = "A.Dacheikh :" & Chr(10) & "Double cliquez ici pour accèder au cours" 'Texte info-bulle du raccourci oshellLink.WorkingDirectory = "C:documents and settingsdacheikhbureau" 'destination du raccourci oshellLink.WorkingDirectory = "C:documents and settingsdacheikhdesktop" 'destination du raccourci oshellLink.WorkingDirectory = "C:windowsbureau" 'destination du raccourci oshellLink.WorkingDirectory = "C:windowsdesktop" 'destination du raccourci oshellLink.Save 'enregistre l'opération MsgBox "Le raccourci est sur le bureau. Cliquer dessus pour accèder au cours", vbInformation, "Cours fiscalité et gestion douanières" Application.Quit Application.DisplayAlerts = wdAlertsNone ActiveDocument.Saved = True End Sub
Bonjour...
Il serait intéressant de pouvoir voir ton code...
Pierre
"Izmi" a écrit dans le message de news:
Bonjour tout le monde ;
J'ai une macro qui installe sur le bureau un raccourci vers vers un fichier. Ce fichier peut se trouver sur n'importe quel lecteur : D ; E ; F ; G ; H ; I ; J ... Comment dois- je rédiger mon code pour que le raccourci cible le fichier quel que soit le lecteur ? J'ai essayé de faire plusieurs lignes de code qui vise successivement les différents lecteurs possibles. Mais c'est toujours celui qui est visé dans la dernière ligne qui est visé. Quant l'application n'y est pas, hé bien, il ne se produit rien. J'ai essayé "on error resume next" pour, soit disant, obliger le code à s'exécuter ligne par ligne ; c'est à dire à chercher sur le premier lecteur, soit "D" et ne passer à "E" que s'il ne le trouve pas, ou si le fichier visé ne s'y trouve pas. Et ainsi de suite... Cela n'a pas marché.
J'espère avoir été clair. Je m'excuse pour la longueur du message.
Merci pour votre aide.
Izmi
Merci Pierre. Voici mon code :
Public Sub Raccourci()
Set WshShell = CreateObject("WScript.Shell")
strdesktop = WshShell.specialFolders("Desktop")
Utilisateur = Mid(strdesktop, 27, 8)
Set oshellLink = WshShell.CreateShortcut(strdesktop & "Cours.lnk") 'libellé
du raccourci
On Error Resume Next
oshellLink.targetPath = "I:fisc_&gestion_douanecours de référence
ultima.doc" 'chemin du raccourci
oshellLink.targetPath = "E:fisc_&gestion_douanecours de référence
ultima.doc" 'chemin du raccourci
oshellLink.targetPath = "F:fisc_&gestion_douanecours de référence
ultima.doc" 'chemin du raccourci
oshellLink.targetPath = "G:fisc_&gestion_douanecours de référence
ultima.doc" 'chemin du raccourci
oshellLink.targetPath = "H:fisc_&gestion_douanecours de référence
ultima.doc" 'chemin du raccourci
oshellLink.targetPath = "I:fisc_&gestion_douanecours de référence
ultima.doc" 'chemin du raccourci
oshellLink.targetPath = "J:fisc_&gestion_douanecours de référence
ultima.doc" 'chemin du raccourci
oshellLink.targetPath = "K:fisc_&gestion_douanecours de référence
ultima.doc" 'chemin du raccourci
oshellLink.targetPath = "D:fisc_&gestion_douanecours de référence
ultima.doc" 'chemin du raccourci
oshellLink.WindowStyle = 2
oshellLink.HotKey = "CTRL+SHIFT+F" 'raccourci clavier
On Error Resume Next
oshellLink.IconLocation = "D:fisc_&gestion_douanedouane1.ico" 'icône du
raccourci
oshellLink.IconLocation = "F:fisc_&gestion_douanedouane1.ico" 'icône du
raccourci
oshellLink.IconLocation = "G:fisc_&gestion_douanedouane1.ico" 'icône du
raccourci
oshellLink.IconLocation = "H:fisc_&gestion_douanedouane1.ico" 'icône du
raccourci
oshellLink.IconLocation = "I:fisc_&gestion_douanedouane1.ico" 'icône du
raccourci
oshellLink.IconLocation = "J:fisc_&gestion_douanedouane1.ico" 'icône du
raccourci
oshellLink.IconLocation = "D:fisc_&gestion_douanedouane1.ico" 'icône du
raccourci
oshellLink.IconLocation = "C:Documents and SettingsdacheikhMes
documentsMes imagesdouane1.ico" 'icône du raccourci
oshellLink.IconLocation = "D:Mes imagesdouane1.ico" 'icône du raccourci
oshellLink.IconLocation = "I:fisc_&gestion_douanedouane1.ico" 'icône du
raccourci
oshellLink.Description = "A.Dacheikh :" & Chr(10) & "Double cliquez ici pour
accèder au cours" 'Texte info-bulle du raccourci
oshellLink.WorkingDirectory = "C:documents and settingsdacheikhbureau"
'destination du raccourci
oshellLink.WorkingDirectory = "C:documents and settingsdacheikhdesktop"
'destination du raccourci
oshellLink.WorkingDirectory = "C:windowsbureau" 'destination du raccourci
oshellLink.WorkingDirectory = "C:windowsdesktop" 'destination du raccourci
oshellLink.Save 'enregistre l'opération
MsgBox "Le raccourci est sur le bureau. Cliquer dessus pour accèder au
cours", vbInformation, "Cours fiscalité et gestion douanières"
Application.Quit
Application.DisplayAlerts = wdAlertsNone
ActiveDocument.Saved = True
End Sub
Bonjour...
Il serait intéressant de pouvoir voir ton code...
Pierre
"Izmi" <Izmi@discussions.microsoft.com> a écrit dans le message de news:
58B75C8B-9F52-4D47-9BC4-2E43709B91E2@microsoft.com...
Bonjour tout le monde ;
J'ai une macro qui installe sur le bureau un raccourci vers vers un
fichier.
Ce fichier peut se trouver sur n'importe quel lecteur : D ; E ; F ; G ; H
; I
; J ... Comment dois- je rédiger mon code pour que le raccourci cible le
fichier quel que soit le lecteur ? J'ai essayé de faire plusieurs lignes
de
code qui vise successivement les différents lecteurs possibles. Mais c'est
toujours celui qui est visé dans la dernière ligne qui est visé. Quant
l'application n'y est pas, hé bien, il ne se produit rien. J'ai essayé "on
error resume next" pour, soit disant, obliger le code à s'exécuter ligne
par
ligne ; c'est à dire à chercher sur le premier lecteur, soit "D" et ne
passer
à "E" que s'il ne le trouve pas, ou si le fichier visé ne s'y trouve pas.
Et
ainsi de suite... Cela n'a pas marché.
J'espère avoir été clair. Je m'excuse pour la longueur du message.
Merci Pierre. Voici mon code : Public Sub Raccourci() Set WshShell = CreateObject("WScript.Shell") strdesktop = WshShell.specialFolders("Desktop") Utilisateur = Mid(strdesktop, 27, 8) Set oshellLink = WshShell.CreateShortcut(strdesktop & "Cours.lnk") 'libellé du raccourci On Error Resume Next oshellLink.targetPath = "I:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "E:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "F:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "G:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "H:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "I:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "J:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "K:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.targetPath = "D:fisc_&gestion_douanecours de référence ultima.doc" 'chemin du raccourci oshellLink.WindowStyle = 2 oshellLink.HotKey = "CTRL+SHIFT+F" 'raccourci clavier On Error Resume Next oshellLink.IconLocation = "D:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "F:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "G:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "H:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "I:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "J:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "D:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.IconLocation = "C:Documents and SettingsdacheikhMes documentsMes imagesdouane1.ico" 'icône du raccourci oshellLink.IconLocation = "D:Mes imagesdouane1.ico" 'icône du raccourci oshellLink.IconLocation = "I:fisc_&gestion_douanedouane1.ico" 'icône du raccourci oshellLink.Description = "A.Dacheikh :" & Chr(10) & "Double cliquez ici pour accèder au cours" 'Texte info-bulle du raccourci oshellLink.WorkingDirectory = "C:documents and settingsdacheikhbureau" 'destination du raccourci oshellLink.WorkingDirectory = "C:documents and settingsdacheikhdesktop" 'destination du raccourci oshellLink.WorkingDirectory = "C:windowsbureau" 'destination du raccourci oshellLink.WorkingDirectory = "C:windowsdesktop" 'destination du raccourci oshellLink.Save 'enregistre l'opération MsgBox "Le raccourci est sur le bureau. Cliquer dessus pour accèder au cours", vbInformation, "Cours fiscalité et gestion douanières" Application.Quit Application.DisplayAlerts = wdAlertsNone ActiveDocument.Saved = True End Sub
Bonjour...
Il serait intéressant de pouvoir voir ton code...
Pierre
"Izmi" a écrit dans le message de news:
Bonjour tout le monde ;
J'ai une macro qui installe sur le bureau un raccourci vers vers un fichier. Ce fichier peut se trouver sur n'importe quel lecteur : D ; E ; F ; G ; H ; I ; J ... Comment dois- je rédiger mon code pour que le raccourci cible le fichier quel que soit le lecteur ? J'ai essayé de faire plusieurs lignes de code qui vise successivement les différents lecteurs possibles. Mais c'est toujours celui qui est visé dans la dernière ligne qui est visé. Quant l'application n'y est pas, hé bien, il ne se produit rien. J'ai essayé "on error resume next" pour, soit disant, obliger le code à s'exécuter ligne par ligne ; c'est à dire à chercher sur le premier lecteur, soit "D" et ne passer à "E" que s'il ne le trouve pas, ou si le fichier visé ne s'y trouve pas. Et ainsi de suite... Cela n'a pas marché.
J'espère avoir été clair. Je m'excuse pour la longueur du message.
