Discussion :

[Tyrael62]

Voilà , je développe dans le cadre d'une de mes PTI , un mini explorateur internet avec une configuration minimum.
Dans l'optique de permettre l'ajout de liens internet dans mes Favoris , je souhaiterais savoir comment on crée des raccourcis internet dans mon répertoire Liens ainsi que pour le lire dans ma barre personnelle!
Merci de répondre , à bientôt.

[SilkyRoad]

bonsoir

je ne suis pas sur d'avoir bien compris , mais tu peux essayer cette macro pour ajouter un lien dans le répertoire "Favoris"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ajoutLienFavoris()
'necessite d'activer la reference Windows Script Host Object Model
Dim WshShell As IWshRuntimeLibrary.WshShell
Dim Raccourci As IWshRuntimeLibrary.WshURLShortcut
Dim dirFavoris As String
 
Set WshShell = CreateObject("WScript.Shell")
dirFavoris = WshShell.SpecialFolders("Favorites")
 
Set Raccourci = WshShell.createShortcut(dirFavoris & "\monLienPréféré.url")
Raccourci.TargetPath = "http://<a href="http://www.developpez.com/"" target="_blank">www.developpez.com/"</a>
Raccourci.Save
 
End Sub

bonne soiree
michel

[Tyrael62]

Merci,mais par contre j'aimerais pouvoir lancer mon lien depuis ma barre perso mais j'ai du mal pour récupérer le lien correspondant

[SilkyRoad]

rebonsoir

cet exemple permet de boucler sur tous les liens du repertoire "Favoris" et d'ouvrir un lien (objItem.InvokeVerb)

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
Sub boucleLiensFavoris_Et_LancementLien()
'necessite d'activer la reference Microsoft Shell Controls and Automation
Const Cible = &H6 'Favoris
Dim objShell As Shell32.Shell
Dim objFolder As Shell32.Folder
Dim colItems As Shell32.FolderItems
Dim objItem As Shell32.FolderItem
 
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Cible)
Set colItems = objFolder.Items
 
For Each objItem In colItems
If objItem.IsLink Then
Debug.Print objItem.GetLink.Path
'
'pour ouvri le lien :
'
'objItem.InvokeVerb
'
End If
Next
End Sub

sinon pour simplement ouvrir un lien interenet , tu peux essayer :

Code :

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

Shell "c:\windows\explorer.exe http://<a href="http://www.developpez.com/"," target="_blank">www.developpez.com/",</a> vbMaximizedFocus

bonne soiree
michel

[Tyrael62]

Merci mais les type shell32 ne fonctionnent pas!Y'a t-il un composant ou une reférence à rajouter?

[AlainTech]

'necessite d'activer la reference Microsoft Shell Controls and Automation

[Tyrael62]

bon voila j'ai presque réussi a réaliser le lancement du lien de mes favoris mais je comprends pas qu'une fois sur le 3ème lien il ne me lise pas et fait planté mon programme!
Je vois envoie la partie de code correspondante!

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
 
Private Sub Favoris_bar_ButtonClick(ByVal Button As MSComctlLib.Button)
 
Dim envoi_lien(100) As String
Dim objShell As Shell32.Shell
Dim objFolder As Shell32.Folder
Dim colItems As Shell32.FolderItems
Dim objItem As Shell32.FolderItem
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(App.Path & "\Liens")
Set colItems = objFolder.Items
 
i = 0
For Each objItem In colItems
 
  i = i + 1
  If objItem.IsLink Then
     envoi_lien(i) = objItem.GetLink.Path
  End If
 
  If Button.Index = i Then
     Navigator.Navigate2 envoi_lien(i)
  End If
 
Next
 
End Sub

Si vous m'aider a comprendre il lit les 2 premiers impeccable et que le 3eme il bute dessus! , je vous en serez reconnaissant reconnaissant.

[SilkyRoad]

bonjour

ça bloque sur quelle ligne ?

quel est le message d'erreur ?


bon apres midi
michel

[Tyrael62]

run time error 5

invalid procedure call or argument

Code :

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

1
2
3
4
5
6
7
8
9
 
  i = i + 1
  If objItem.IsLink Then
     envoi_lien(i) = objItem.GetLink.Path
  End If
 
  If Button.Index = i Then
     Navigator.Navigate2 envoi_lien(i)
  End If

alors quand je passe dans le debogage , je m'apercois que mon envoi_lien(i) qui est a 3 ici est vide , donc çà fait comme s'il ne lisait pas le raccourci et ce qui est bizarre quand j'ajoute mon lien dans mes favoris il s'ecrit comme un raccourci et une fois que je lance avec ce mode de lecture il devient un fichier sans extension et seulement que pour le 3eme lien