Bonjour,
J'ai fait un programme pour récupérer des informations sur des sites internet.
Je passe par un Useform (ChoixInternet) qui propose une liste de sites où récupérer ces informations mais si aucun des sites proposés ne correspond à ce que veut l'utilisateur, je veux offrir à ce dernier la possibilité de chercher lui-même le site avec lequel il souhaite que les information soient récupérées. Pour cela, il clique sur un bouton du Useform (ChoixInternet) qui provoque les événements suivant :
Private Sub OuvreQwant_Click()
Dim ACopier As String
ACopier = Cells(1, 2).Value 'Titre du livre
With New DataObject
SetText "Livre " & ACopier 'Construction des instructions de recherche
PutInClipboard 'Met le texte dans le presse papier windows
End With
Shell "C:\Program Files\Mozilla Firefox\firefox.exe", vbNormalFocus ' Lance internet
Unload Me 'Ferme l'useforme "ChoixInternet" 'Ferme l'Useform courant
RecupLienHyper.Show vbModeless 'Ouvre l'Useform dans lequel l'utilisateur collera l'adresse du site qu'il désire
End Sub
Alors l'utilisateur cherche le site qui lui plait, copie l'adresse du site et le colle dans l'useform.
Concernant l'useform (RecupLienHyper), je l'initialise ainsi :
Private Sub UserForm_Initialize()
Me.Move 0, 0
End Sub
Afin qu'il soit en haut à droite de mon écran (pas de la fenêtre excel)
Voici mon problème :
Je souhaite que ma fenêtre internet (je travaille avec Firefox) soit la plus grande possible sans masquer le useform (RecupLienHyper) afin que, quand l'utilisateur à choisir le site internet qu'il désire, puisse copier l'adresse du site (il fait un Crtl + C sur l'adresse) et la coller dans l'useform (avec un Crtl +V, naturellement) sans réduire ou réactiver des fenêtres, c'est-à-dire : d'un seul trait.
Pour simplifier, je souhaite que l'useform et internet soit ouverte toute les deux sans qu'un clic masque l'autre application.
Voici 3 solutions que j'envisage mais je n'arrive à en faire aucune.
1 – L'useform en haut à gauche et la fenêtre "Firefox" dans l'espace restant. Mais comment imposé les côtes et la disposition de cette fenêtre quelque soit l'historique de la fenêtre "Firefox" ?
2 – Faire un grand useform qui occupe tout l'écran et équipé d'un cadre dans lequel je mets "Firefox" et faire les recherches là-dedans. Comment fait-on alors ?
3 – Ouvrir "Firefox" en grand sur tout mon écran et mettre pardessus l'useform sans que se dernier disparaisse parce qu'on aurait fait un clic dans "Firefox". Mais comment imposer la non-disparition de l'useform ?
N'importe quelle de ces trois solutions me convienne.
Je vous remercie d'avance - Marc
J'ai fait un programme pour récupérer des informations sur des sites internet.
Je passe par un Useform (ChoixInternet) qui propose une liste de sites où récupérer ces informations mais si aucun des sites proposés ne correspond à ce que veut l'utilisateur, je veux offrir à ce dernier la possibilité de chercher lui-même le site avec lequel il souhaite que les information soient récupérées. Pour cela, il clique sur un bouton du Useform (ChoixInternet) qui provoque les événements suivant :
Private Sub OuvreQwant_Click()
Dim ACopier As String
ACopier = Cells(1, 2).Value 'Titre du livre
With New DataObject
SetText "Livre " & ACopier 'Construction des instructions de recherche
PutInClipboard 'Met le texte dans le presse papier windows
End With
Shell "C:\Program Files\Mozilla Firefox\firefox.exe", vbNormalFocus ' Lance internet
Unload Me 'Ferme l'useforme "ChoixInternet" 'Ferme l'Useform courant
RecupLienHyper.Show vbModeless 'Ouvre l'Useform dans lequel l'utilisateur collera l'adresse du site qu'il désire
End Sub
Alors l'utilisateur cherche le site qui lui plait, copie l'adresse du site et le colle dans l'useform.
Concernant l'useform (RecupLienHyper), je l'initialise ainsi :
Private Sub UserForm_Initialize()
Me.Move 0, 0
End Sub
Afin qu'il soit en haut à droite de mon écran (pas de la fenêtre excel)
Voici mon problème :
Je souhaite que ma fenêtre internet (je travaille avec Firefox) soit la plus grande possible sans masquer le useform (RecupLienHyper) afin que, quand l'utilisateur à choisir le site internet qu'il désire, puisse copier l'adresse du site (il fait un Crtl + C sur l'adresse) et la coller dans l'useform (avec un Crtl +V, naturellement) sans réduire ou réactiver des fenêtres, c'est-à-dire : d'un seul trait.
Pour simplifier, je souhaite que l'useform et internet soit ouverte toute les deux sans qu'un clic masque l'autre application.
Voici 3 solutions que j'envisage mais je n'arrive à en faire aucune.
1 – L'useform en haut à gauche et la fenêtre "Firefox" dans l'espace restant. Mais comment imposé les côtes et la disposition de cette fenêtre quelque soit l'historique de la fenêtre "Firefox" ?
2 – Faire un grand useform qui occupe tout l'écran et équipé d'un cadre dans lequel je mets "Firefox" et faire les recherches là-dedans. Comment fait-on alors ?
3 – Ouvrir "Firefox" en grand sur tout mon écran et mettre pardessus l'useform sans que se dernier disparaisse parce qu'on aurait fait un clic dans "Firefox". Mais comment imposer la non-disparition de l'useform ?
N'importe quelle de ces trois solutions me convienne.
Je vous remercie d'avance - Marc