Bonjour PatCatNat's,
voic le code remis un peu au propre en retirant la méthode assez bizarre
d'extraction de
l'utilisateur lorsque la variable d'environnement environ("username")
retourne le nom de user
sans risque d'erreur.
(celui que tu as trouvé vient de info3000 apparemment)
une petite astuce :
pour voir si un code fonctionne sans déclarations,
il faut mettre (provisoirement) la ligne Option Explicit en remarque :
'Option Explicit
ainsi, tu vois si le code compile bien hors déclarations, mais c'est bien
mieux de déclarer
toutes ses variables,
car sans ça, il suffit d'une petite faute de frappe dans le nom d'une
variable pour passer la
valeur dans une autre
sans s'en rendre compte.
Public Sub Raccourci()
Dim WshShell As Object
Dim strdesktop As String
Dim oshellLink As Object
Set WshShell = CreateObject("WScript.Shell")
' Récupère le chemin du bureau
strdesktop = WshShell.specialFolders("Desktop")
'libellé du Raccourci
Set oshellLink = WshShell.CreateShortcut(strdesktop & "Zeste.lnk")
With oshellLink
'//chemin du raccourci :
.targetPath = "C:VitamineCZeste_V1_03.mdb"
'//1 = ouverture en fenêtre normale (3 maximized, 7 minimized)
.WindowStyle = 1
'//raccourci clavier :
.HotKey = "CTRL+SHIFT+Z"
'//icône du Raccourci :
.IconLocation = "C:VitamineCImagesLemon.ico"
'//Texte info-bulle du Raccourci :
.Description = "Cliquez ici pour ouvrir Zeste"
'//destination du raccourci :
.WorkingDirectory = "C:VitamineC"
'//enregistre le raccourci :
.Save
End With
End Sub
ps :
il existe des dizaines d'autres exemples qui se ressemblent :
http://ixquick.com/do/metasearch.pl?cat=web&cat=web&cmd=process_search&language=francais&query=%22WshShell.CreateShortcut%22
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
| Bonjour,
|
| C'est super j'ai trouvé par hasard une fonction (dans un site ???)
| qui créer une icône de l'appli en cliquant sur un bouton :-))) :
|
| J'ai fait un copier collé et si vous voulez en profiter :
|
| Public Sub Raccourci()
| Dim WshShell, strdesktop, Utilisateur, oshellLink As Variant '<===== > | LIGNE N°1
|
| Set WshShell = CreateObject("WScript.Shell")
| strdesktop = WshShell.specialFolders("Desktop")
| Utilisateur = Mid(strdesktop, 27, 8)
| Set oshellLink = WshShell.CreateShortcut(strdesktop & "Zeste.lnk")
| 'libellé du raccourci
| oshellLink.targetPath = "C:VitamineCZeste_V1_03.mdb" 'chemin du
| raccourci oshellLink.WindowStyle = 1
| oshellLink.HotKey = "CTRL+SHIFT+Z" 'raccourci clavier
| oshellLink.IconLocation = "C:VitamineCImagesLemon.ico" 'icône du
| raccourci
| oshellLink.Description = "Cliquez ici pour ouvrir Zeste" 'Texte
| info-bulle du raccourci
| oshellLink.WorkingDirectory = "C:VitamineC" 'destination du raccourci
| oshellLink.Save 'enregistre l'opération
| End Sub
|
|
| Bon, c'est vrai je l'ai trouvé et non créé :-((( because je n'y
| comprend rien dans les modules :-(((
| J'ai ajouté la LIGNE N°1 des déclarations par hasard et çà marche,
| mais j'aime pas rester sans savoir pourquoi.
| Quelqu'un peut il me renseigner de façon simple sur les divers types
| de déclaration (Variant, String, etc...?
Bonjour PatCatNat's,
voic le code remis un peu au propre en retirant la méthode assez bizarre
d'extraction de
l'utilisateur lorsque la variable d'environnement environ("username")
retourne le nom de user
sans risque d'erreur.
(celui que tu as trouvé vient de info3000 apparemment)
une petite astuce :
pour voir si un code fonctionne sans déclarations,
il faut mettre (provisoirement) la ligne Option Explicit en remarque :
'Option Explicit
ainsi, tu vois si le code compile bien hors déclarations, mais c'est bien
mieux de déclarer
toutes ses variables,
car sans ça, il suffit d'une petite faute de frappe dans le nom d'une
variable pour passer la
valeur dans une autre
sans s'en rendre compte.
Public Sub Raccourci()
Dim WshShell As Object
Dim strdesktop As String
Dim oshellLink As Object
Set WshShell = CreateObject("WScript.Shell")
' Récupère le chemin du bureau
strdesktop = WshShell.specialFolders("Desktop")
'libellé du Raccourci
Set oshellLink = WshShell.CreateShortcut(strdesktop & "Zeste.lnk")
With oshellLink
'//chemin du raccourci :
.targetPath = "C:VitamineCZeste_V1_03.mdb"
'//1 = ouverture en fenêtre normale (3 maximized, 7 minimized)
.WindowStyle = 1
'//raccourci clavier :
.HotKey = "CTRL+SHIFT+Z"
'//icône du Raccourci :
.IconLocation = "C:VitamineCImagesLemon.ico"
'//Texte info-bulle du Raccourci :
.Description = "Cliquez ici pour ouvrir Zeste"
'//destination du raccourci :
.WorkingDirectory = "C:VitamineC"
'//enregistre le raccourci :
.Save
End With
End Sub
ps :
il existe des dizaines d'autres exemples qui se ressemblent :
http://ixquick.com/do/metasearch.pl?cat=web&cat=web&cmd=process_search&language=francais&query=%22WshShell.CreateShortcut%22
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
| Bonjour,
|
| C'est super j'ai trouvé par hasard une fonction (dans un site ???)
| qui créer une icône de l'appli en cliquant sur un bouton :-))) :
|
| J'ai fait un copier collé et si vous voulez en profiter :
|
| Public Sub Raccourci()
| Dim WshShell, strdesktop, Utilisateur, oshellLink As Variant '<===== > | LIGNE N°1
|
| Set WshShell = CreateObject("WScript.Shell")
| strdesktop = WshShell.specialFolders("Desktop")
| Utilisateur = Mid(strdesktop, 27, 8)
| Set oshellLink = WshShell.CreateShortcut(strdesktop & "Zeste.lnk")
| 'libellé du raccourci
| oshellLink.targetPath = "C:VitamineCZeste_V1_03.mdb" 'chemin du
| raccourci oshellLink.WindowStyle = 1
| oshellLink.HotKey = "CTRL+SHIFT+Z" 'raccourci clavier
| oshellLink.IconLocation = "C:VitamineCImagesLemon.ico" 'icône du
| raccourci
| oshellLink.Description = "Cliquez ici pour ouvrir Zeste" 'Texte
| info-bulle du raccourci
| oshellLink.WorkingDirectory = "C:VitamineC" 'destination du raccourci
| oshellLink.Save 'enregistre l'opération
| End Sub
|
|
| Bon, c'est vrai je l'ai trouvé et non créé :-((( because je n'y
| comprend rien dans les modules :-(((
| J'ai ajouté la LIGNE N°1 des déclarations par hasard et çà marche,
| mais j'aime pas rester sans savoir pourquoi.
| Quelqu'un peut il me renseigner de façon simple sur les divers types
| de déclaration (Variant, String, etc...?
Bonjour PatCatNat's,
voic le code remis un peu au propre en retirant la méthode assez bizarre
d'extraction de
l'utilisateur lorsque la variable d'environnement environ("username")
retourne le nom de user
sans risque d'erreur.
(celui que tu as trouvé vient de info3000 apparemment)
une petite astuce :
pour voir si un code fonctionne sans déclarations,
il faut mettre (provisoirement) la ligne Option Explicit en remarque :
'Option Explicit
ainsi, tu vois si le code compile bien hors déclarations, mais c'est bien
mieux de déclarer
toutes ses variables,
car sans ça, il suffit d'une petite faute de frappe dans le nom d'une
variable pour passer la
valeur dans une autre
sans s'en rendre compte.
Public Sub Raccourci()
Dim WshShell As Object
Dim strdesktop As String
Dim oshellLink As Object
Set WshShell = CreateObject("WScript.Shell")
' Récupère le chemin du bureau
strdesktop = WshShell.specialFolders("Desktop")
'libellé du Raccourci
Set oshellLink = WshShell.CreateShortcut(strdesktop & "Zeste.lnk")
With oshellLink
'//chemin du raccourci :
.targetPath = "C:VitamineCZeste_V1_03.mdb"
'//1 = ouverture en fenêtre normale (3 maximized, 7 minimized)
.WindowStyle = 1
'//raccourci clavier :
.HotKey = "CTRL+SHIFT+Z"
'//icône du Raccourci :
.IconLocation = "C:VitamineCImagesLemon.ico"
'//Texte info-bulle du Raccourci :
.Description = "Cliquez ici pour ouvrir Zeste"
'//destination du raccourci :
.WorkingDirectory = "C:VitamineC"
'//enregistre le raccourci :
.Save
End With
End Sub
ps :
il existe des dizaines d'autres exemples qui se ressemblent :
http://ixquick.com/do/metasearch.pl?cat=web&cat=web&cmd=process_search&language=francais&query=%22WshShell.CreateShortcut%22
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
| Bonjour,
|
| C'est super j'ai trouvé par hasard une fonction (dans un site ???)
| qui créer une icône de l'appli en cliquant sur un bouton :-))) :
|
| J'ai fait un copier collé et si vous voulez en profiter :
|
| Public Sub Raccourci()
| Dim WshShell, strdesktop, Utilisateur, oshellLink As Variant '<===== > | LIGNE N°1
|
| Set WshShell = CreateObject("WScript.Shell")
| strdesktop = WshShell.specialFolders("Desktop")
| Utilisateur = Mid(strdesktop, 27, 8)
| Set oshellLink = WshShell.CreateShortcut(strdesktop & "Zeste.lnk")
| 'libellé du raccourci
| oshellLink.targetPath = "C:VitamineCZeste_V1_03.mdb" 'chemin du
| raccourci oshellLink.WindowStyle = 1
| oshellLink.HotKey = "CTRL+SHIFT+Z" 'raccourci clavier
| oshellLink.IconLocation = "C:VitamineCImagesLemon.ico" 'icône du
| raccourci
| oshellLink.Description = "Cliquez ici pour ouvrir Zeste" 'Texte
| info-bulle du raccourci
| oshellLink.WorkingDirectory = "C:VitamineC" 'destination du raccourci
| oshellLink.Save 'enregistre l'opération
| End Sub
|
|
| Bon, c'est vrai je l'ai trouvé et non créé :-((( because je n'y
| comprend rien dans les modules :-(((
| J'ai ajouté la LIGNE N°1 des déclarations par hasard et çà marche,
| mais j'aime pas rester sans savoir pourquoi.
| Quelqu'un peut il me renseigner de façon simple sur les divers types
| de déclaration (Variant, String, etc...?
Bonjour PatCatNat's,
| As-tu un "plan" pour, dans un premier temps, comprendre les
| différences de type de déclarations ?
|
leur définition aide beaucoup :
string stocke une chaine de caractères
long un nombre entier long
double, un nombre decimal
boolean une valeur oui/non ou -1/0
date comme son nom l'indique
currency pour un décimal à 2 chiffres après la virgule
voilà pour les plus usuelles, et en regardant le code, on peut souvent
imaginer le type de valeur que que va retourner la formule ou la fonction
concernée.
ensuite, les "objets" :
soit on les connais en fonction des références cochées
(dao.database, outlook.application, etc....)
soit on ne les connait pas et object permet de déclarer quelque chose,
c'est ce que j'ai fait.
enfin, il reste le cas particulier du Variant, qui a l'avantage de pouvoir
accepter une valeur Null contrairement au string qui aura une chaine de
longueur nulle : ""
avantage du variant : il peut tout faire
inconvénient : consomme de la mémoire
voilà
je terminerai par une remarque :
en écrivant
dim a, b, c, d as string
attention : a; b et c sont déclarés comme variant et d comme string
espérant avoir été un peu plus inspiré que hier soir pour répondre à cette
question
mais je ne doute pas que des personnes mieux averties que moi pourront
apporter
quelques compléments à ce "traitement de surface"
à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Bonjour PatCatNat's,
| As-tu un "plan" pour, dans un premier temps, comprendre les
| différences de type de déclarations ?
|
leur définition aide beaucoup :
string stocke une chaine de caractères
long un nombre entier long
double, un nombre decimal
boolean une valeur oui/non ou -1/0
date comme son nom l'indique
currency pour un décimal à 2 chiffres après la virgule
voilà pour les plus usuelles, et en regardant le code, on peut souvent
imaginer le type de valeur que que va retourner la formule ou la fonction
concernée.
ensuite, les "objets" :
soit on les connais en fonction des références cochées
(dao.database, outlook.application, etc....)
soit on ne les connait pas et object permet de déclarer quelque chose,
c'est ce que j'ai fait.
enfin, il reste le cas particulier du Variant, qui a l'avantage de pouvoir
accepter une valeur Null contrairement au string qui aura une chaine de
longueur nulle : ""
avantage du variant : il peut tout faire
inconvénient : consomme de la mémoire
voilà
je terminerai par une remarque :
en écrivant
dim a, b, c, d as string
attention : a; b et c sont déclarés comme variant et d comme string
espérant avoir été un peu plus inspiré que hier soir pour répondre à cette
question
mais je ne doute pas que des personnes mieux averties que moi pourront
apporter
quelques compléments à ce "traitement de surface"
à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Bonjour PatCatNat's,
| As-tu un "plan" pour, dans un premier temps, comprendre les
| différences de type de déclarations ?
|
leur définition aide beaucoup :
string stocke une chaine de caractères
long un nombre entier long
double, un nombre decimal
boolean une valeur oui/non ou -1/0
date comme son nom l'indique
currency pour un décimal à 2 chiffres après la virgule
voilà pour les plus usuelles, et en regardant le code, on peut souvent
imaginer le type de valeur que que va retourner la formule ou la fonction
concernée.
ensuite, les "objets" :
soit on les connais en fonction des références cochées
(dao.database, outlook.application, etc....)
soit on ne les connait pas et object permet de déclarer quelque chose,
c'est ce que j'ai fait.
enfin, il reste le cas particulier du Variant, qui a l'avantage de pouvoir
accepter une valeur Null contrairement au string qui aura une chaine de
longueur nulle : ""
avantage du variant : il peut tout faire
inconvénient : consomme de la mémoire
voilà
je terminerai par une remarque :
en écrivant
dim a, b, c, d as string
attention : a; b et c sont déclarés comme variant et d comme string
espérant avoir été un peu plus inspiré que hier soir pour répondre à cette
question
mais je ne doute pas que des personnes mieux averties que moi pourront
apporter
quelques compléments à ce "traitement de surface"
à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
