Discussion :

[Tyrael62]

Oui en fait , j'ai certains sites voir pas mal de sites où il m'enregistre le raccourci dans mon repertoire en fichier sans extension.
Exemple : le site google se rajoute normalement et de même pour le site de développez.com.
Par contre pour des sites tels les skyblog ou comme Li : le site, il me crée des raccourcis sans extensions.

[SilkyRoad]

bonsoir

je viens de tester la creation de raccourcis vers les sites Skyblog.com & li.com : cela fonctionne tres bien chez moi


bonne soiree
michel

[Tyrael62]

Ah alors je sais d'ou çà vient car j'ai même recréé un projet a part pour tester ces liens mais je suis arrivé au même résultats!Là j'ai réussi à les lancer , j'ai changé ma méthode , je suis passé par un fichier d'enregistrement pour stocker mes liens et le nom des raccourci!Mais y'a tout de même un petit hic , j'arrive pas a réduire mes boutons de ma toolbar et une fois arrivé à 2 boutons il arrive pas à en créer de nouveaux car il est arrivé à la fin de la barre!Je vais essayé de trouver le moyen de les reduire.

[Tyrael62]

Sinon j'allais oublier SilkyRoad , tu pourrais m'envoyer par mail , l'essai que tu as fait avec les raccourci via la méthode Shell car je veux savoir si c'est mon OS qui fait planter ces sites.Mon adresse email : alucard_death AT hotmail DOT fr.
Je te remercie d'avance et merci pour ton aide sur cette partie!

[Tyrael62]

Merci SilkyRoad pour ton aide , maintenant j'ai exactement localisé la source de mon probleme!C'est dans le nom du raccourci il ne supporte pas les les ":" donc j'ai fait decoupage de la chaîne et j'ai remplacer les ":" par "-".
Voici le nouveau code de création du raccourci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
'
'necessite d'activer la reference Windows Script Host Object Model
'
'Creation lien/raccourci url
'
Dim WshShell As IWshRuntimeLibrary.WshShell
Dim raccourci As IWshRuntimeLibrary.WshURLShortcut
Dim lien As String
 
lien = Explorateur.Navigator.LocationName & ".Url"
 
pos = InStr(1, lien, ":")
If pos <> 0 Then
   favoris_lien = Replace(lien, ":", "-")
Else
   favoris_lien = lien
End If
 
MsgBox (favoris_lien)
Set WshShell = CreateObject("WScript.Shell")
Set raccourci = WshShell.CreateShortcut(App.Path & "\Liens\Raccourci vers " & favoris_lien)
raccourci.TargetPath = Explorateur.Navigator.LocationURL
raccourci.Save
 
 
Explorateur.Favoris_bar.Buttons.Clear
Call lire_Favoris

Sinon j'ai encore juste un petit souci , quand je lance mon lien il l'ouvre en même temps sur mon navigateur et sur le navigateur par défaut(firefox)!Je voudrais juste savoir pourquoi çà réagit comme çà.

[Tyrael62]

Dslé simple erreur d'inattention , j'avais oublier le objItem.invokeVerb!
Merci pour tout , j'ai galéré mais j'y suis enfin arrivé grace a votre aide!