Discussion :

[sebastientabanon]

Bonjour

Malgrais tous les progres que j'ai put faire il me reste quelque lacunes.

J'ai un formulaire avec une zone du recherche qui me permet d'afficher des informations sur la commune demander.
Je voudrais ajouter grace à un bouton une fonction qui me permet d'atteindre un site internet.

Je vous propose ce code et je vous explique mon problème :

Code :

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

1
2
3
4
5
6
sub Image2_click ()
If Choixcommune.value="commune"[then
Fichier = "site internet"
    ShellExecute 0, "", Fichier, "", "", 0
end if
end sub

A ce jour le problème est le ssuivant c'est que je possède dans ma base de donnée 1429 commune a gérer et je sais très bien que je ne pourrais pas rentrer ce code pour toute les commune en une seul procédure al procédure sera trop longue;
Alors comment puis-je faire pour contourner ca .

Merci d'avance

[gnain]

Vous parler de base de donnée
vous devez avoir surement les site internet pour chaque commune.
Il suffit de récupérer dans une variable l'adresse du site. puis le tour est jouer.

Code :

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

ShellExecute 0, "", Ta_Variable_du_site, "", "", 0

[sebastientabanon]

Mon problème était la longueur de la maccro . Comment je peux dire que celon la commune j'ouvre tel lien? et cela 1429 fois avec le meme bouton .

Merci

[gnain]

A ce jour le problème est le suivant c'est que je possède dans ma base de donnée 1429 commune

ce que je veux dire c'est qu'en choisissant une commune,
dans votre base de donnée elle doit référer à un site internet, récupérer ce site et lancer votre commande.

Je voudrais ajouter grace à un bouton une fonction qui me permet d'atteindre un site internet

Code :

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

1
2
3
4
5
6
Private Sub Button1_Click()
 
       ....
       ... Récupération de Ta_Variable_du_site
       ...
end sub

Code :

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

1
2
3
4
5
6
 
sub Image2_click ()
 
    ShellExecute 0, "", Ta_Variable_du_site, "", "", 0
 
end sub

[sebastientabanon]

Alors a ce jour les adresse internet ne sont pas dans ma base de donnée il faut que je les y ajoute en faite.
Donc apres, pour chaque commune je declare les site en varibale selon les commune et je ne vois pas ce qu'il faut que je note dans le shell pour l'ouverture apres.
Je me sens nul d'un coup.

merci de votre aide

[Menhir]

Pourquoi ne te contentes-tu pas, avec les macro, de lancer une recherche du nom de la commune dans ta base de données et de récupérer l'adresse du site internet (en prenant garde de vérifier quand même que la recherche a été fructueuse) ?

[gnain]

J'ai un formulaire avec une zone du recherche qui me permet d'afficher des informations sur la commune demander
...

A ce jour le problème est le suivant c'est que je possède dans ma base de donnée 1429 commune

D'après ce que je comprend tes communes sont dans une base de donné, il suffit de rajouter une colonne contenant vos site pour chaque commune

vous dite vous même

J'ai un formulaire avec une zone du recherche qui me permet d'afficher des informations sur la commune demander

il suffit de ramener dans cette recherche l'information du site internet selon la commune choisie et la mettre dans une variable appeler Ta_Variable_du_site
et ensuite au click

Code :

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

1
2
3
4
5
sub Image2_click ()
 
    ShellExecute 0, "", Ta_Variable_du_site, "", "", 0
 
end sub