il y a quelques jours, j'avais obtenu de Fr=E9d=E9ric=20
Sigonneau (que je remercie) un script vbs me permettant de=20
cr=E9er un raccourci vers un fichier ".xls".
Mon souci est que je souhaiterais avoir un "spath"=20
variable. (par exemple: r=E9cup=E9rer le chemin du fichier=20
script ci-dessus et l'appliquer =E0 "spath")
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
Michel Pierron
Bonjour Paul;
Function PathFile() Set fso = CreateObject("Scripting.FileSystemObject") PathFile = fso.getabsolutepathname(".") Set fso = Nothing End Function
oShellLink.TargetPath = PathFile & sFile
PathFile contient le chemin du fichier vbs en cours, sFile correspond au nom du fichier pour lequel tu crées le raccourci. Exemple: sFile = "ClasseurTestpdf.xls" (Ne pas oublier le ). MP
"Paul" a écrit dans le message de news:11cda01c4422b$87d49760$ Bonjour,
il y a quelques jours, j'avais obtenu de Frédéric Sigonneau (que je remercie) un script vbs me permettant de créer un raccourci vers un fichier ".xls".
Set WshShell = CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") Set oShellLink = WshShell.CreateShortcut(strDesktop & "MonClasseur.lnk") oShellLink.TargetPath = sPath & sFile oShellLink.WindowStyle = 1 oShellLink.Hotkey = "CTRL+SHIFT+G" oShellLink.Description = "Session monfichier" oShellLink.IconLocation = "shell32.dll, 20" oShellLink.WorkingDirectory = sPath oShellLink.Save '====================== Mon souci est que je souhaiterais avoir un "spath" variable. (par exemple: récupérer le chemin du fichier script ci-dessus et l'appliquer à "spath")
Merci d'avance.
Paulo
Bonjour Paul;
Function PathFile()
Set fso = CreateObject("Scripting.FileSystemObject")
PathFile = fso.getabsolutepathname(".")
Set fso = Nothing
End Function
oShellLink.TargetPath = PathFile & sFile
PathFile contient le chemin du fichier vbs en cours, sFile correspond au nom du
fichier pour lequel tu crées le raccourci.
Exemple: sFile = "ClasseurTestpdf.xls" (Ne pas oublier le ).
MP
"Paul" <anginho@voila.fr> a écrit dans le message de
news:11cda01c4422b$87d49760$a001280a@phx.gbl...
Bonjour,
il y a quelques jours, j'avais obtenu de Frédéric
Sigonneau (que je remercie) un script vbs me permettant de
créer un raccourci vers un fichier ".xls".
Function PathFile() Set fso = CreateObject("Scripting.FileSystemObject") PathFile = fso.getabsolutepathname(".") Set fso = Nothing End Function
oShellLink.TargetPath = PathFile & sFile
PathFile contient le chemin du fichier vbs en cours, sFile correspond au nom du fichier pour lequel tu crées le raccourci. Exemple: sFile = "ClasseurTestpdf.xls" (Ne pas oublier le ). MP
"Paul" a écrit dans le message de news:11cda01c4422b$87d49760$ Bonjour,
il y a quelques jours, j'avais obtenu de Frédéric Sigonneau (que je remercie) un script vbs me permettant de créer un raccourci vers un fichier ".xls".
Set WshShell = CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") Set oShellLink = WshShell.CreateShortcut(strDesktop & "MonClasseur.lnk") oShellLink.TargetPath = sPath & sFile oShellLink.WindowStyle = 1 oShellLink.Hotkey = "CTRL+SHIFT+G" oShellLink.Description = "Session monfichier" oShellLink.IconLocation = "shell32.dll, 20" oShellLink.WorkingDirectory = sPath oShellLink.Save '====================== Mon souci est que je souhaiterais avoir un "spath" variable. (par exemple: récupérer le chemin du fichier script ci-dessus et l'appliquer à "spath")
Merci d'avance.
Paulo
tictok
Bonjour Paul. Si tu veux un sPath variable, il faut deja le declarer comme une chaine de caracteres : Dim sPath As String Le chemin du fichier script, si c'est le classeur actif, tu utilises Active.Workbook.path Alors, sPath = Active.Workbook.path . Il faut bien activer le classeur AVANT de faire ca, sinon ca n'ira pas.
Soit un Workbooks("ClasseurTestpdf.xls").Activate si le classeur est ouvert. Soit un Workbooks("ClasseurTestpdf.xls").Open s'il est ferme
P.S : Const sFile = "ClasseurTestpdf.xls" c'est mieux ;)
"Paul" escreveu na mensagem news:11cda01c4422b$87d49760$ Bonjour,
il y a quelques jours, j'avais obtenu de Frédéric Sigonneau (que je remercie) un script vbs me permettant de créer un raccourci vers un fichier ".xls".
Set WshShell = CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") Set oShellLink = WshShell.CreateShortcut(strDesktop & "MonClasseur.lnk") oShellLink.TargetPath = sPath & sFile oShellLink.WindowStyle = 1 oShellLink.Hotkey = "CTRL+SHIFT+G" oShellLink.Description = "Session monfichier" oShellLink.IconLocation = "shell32.dll, 20" oShellLink.WorkingDirectory = sPath oShellLink.Save '====================== Mon souci est que je souhaiterais avoir un "spath" variable. (par exemple: récupérer le chemin du fichier script ci-dessus et l'appliquer à "spath")
Merci d'avance.
Paulo
Bonjour Paul.
Si tu veux un sPath variable, il faut deja le declarer comme une chaine de
caracteres : Dim sPath As String
Le chemin du fichier script, si c'est le classeur actif, tu utilises
Active.Workbook.path
Alors, sPath = Active.Workbook.path . Il faut bien activer le classeur AVANT
de faire ca, sinon ca n'ira pas.
Soit un Workbooks("ClasseurTestpdf.xls").Activate si le classeur est ouvert.
Soit un Workbooks("ClasseurTestpdf.xls").Open s'il est ferme
P.S : Const sFile = "ClasseurTestpdf.xls" c'est mieux ;)
"Paul" <anginho@voila.fr> escreveu na mensagem
news:11cda01c4422b$87d49760$a001280a@phx.gbl...
Bonjour,
il y a quelques jours, j'avais obtenu de Frédéric
Sigonneau (que je remercie) un script vbs me permettant de
créer un raccourci vers un fichier ".xls".
Bonjour Paul. Si tu veux un sPath variable, il faut deja le declarer comme une chaine de caracteres : Dim sPath As String Le chemin du fichier script, si c'est le classeur actif, tu utilises Active.Workbook.path Alors, sPath = Active.Workbook.path . Il faut bien activer le classeur AVANT de faire ca, sinon ca n'ira pas.
Soit un Workbooks("ClasseurTestpdf.xls").Activate si le classeur est ouvert. Soit un Workbooks("ClasseurTestpdf.xls").Open s'il est ferme
P.S : Const sFile = "ClasseurTestpdf.xls" c'est mieux ;)
"Paul" escreveu na mensagem news:11cda01c4422b$87d49760$ Bonjour,
il y a quelques jours, j'avais obtenu de Frédéric Sigonneau (que je remercie) un script vbs me permettant de créer un raccourci vers un fichier ".xls".
