Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insérer une fonction HTML dans une feuille excel

  • Initiateur de la discussion Initiateur de la discussion bgstyle
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

bgstyle

Guest
Voila mon 2eme problème de la journée. (D'ailleurs merci à ceux qui m'ont aidé ce matin)

je voudrais mettre cette fonction:
<form action="http://www.ssandsun.net/send_mail.php" method="post">
<input name="Submit" value="Envoyer un mail" class="submit" style="width: 176px;" type="submit">
<input name="idmbr" value="id de la personne" type="text">
</form>

Dans une feuille excel et qu'elle fonctionne.

Est ce que c'est réalisable? si oui comment?

Je vous remercie
 
Re : Insérer une fonction HTML dans une feuille excel

Bonsoir bqstyle et le Forum,

Si je décode correctement ton code HTML tu veux envoyer un Fax à partir d'excel.
Si c'est le cas fait une recherche il y a plusieurs codes en VB sur ce Forum.

Bonne recherche.
 
Re : Insérer une fonction HTML dans une feuille excel

Je vais faire la recherche.

En fait cette fonction permet d'envoyer un MP tjrs pour le meme jeu. J'ai la page HTML qui est déja faite qui fonctionne tres bien.

Je voulais juste intégrer cette fonction (en autre) à mon classeur.

Merci de la vitesse de réponse
 
Re : Insérer une fonction HTML dans une feuille excel

bonjour

Je ne sais pas si c'est possible directement dans la feuille de calcul, mais tu peux essayer en passant par un contrôle WebBrowser dans un UserForm:

Code:
Private Sub UserForm_Initialize()
'-------
'Cette procédure permet de créer une page dynamiquement
'dans un WebBrowser:
'   *Un texte
'   *Une image de fond
'   *Une fonction JavaScript
'   *Un bouton qui permet de déclencher la fonction
'
'-------
 
    Dim AjoutFonction As String
    Dim Fichier As String
 
    'Définit l'image de fond
    Fichier = "http://www.excel-downloads.com/templates/xld/images/logoessais.gif"
 
    'Création d'une page vierge qui va servir de support
    WebBrowser1.Navigate "about:<html><body></body></html>"
 
 
    '--- texte ---
    AjoutFonction = "<html><body><B>Bienvenue sur cette page.</B>" & vbCrLf
 
    '--- image de fond ---
    AjoutFonction = AjoutFonction & "<BODY background='" & Fichier & "'</BODY>"
    '---------------------
 
    '--- bouton ---
    AjoutFonction = AjoutFonction & "<FORM>" & _
    "<INPUT type=button name='Bouton1' value='Cliquez ici.' " & _
        "onClick=(alert('Bonjour!'))></FORM>"
    '--------------
 
    '--- fonction javascript ---
    AjoutFonction = _
        AjoutFonction & "<script language=""javascript"">" & vbCrLf
    AjoutFonction = AjoutFonction & "function maFonction(){" & vbCrLf
    AjoutFonction = AjoutFonction & "alert(""Coucou"");" & vbCrLf
    AjoutFonction = AjoutFonction & "}" & vbCrLf
    AjoutFonction = AjoutFonction & "</script></body></html>"
    '---------------------------
 
    'Insertion de la fonction JavaScript dans le WebBrowser
    WebBrowser1.Document.writeln AjoutFonction
End Sub


Pour plus d'infos sur les WebBrowser (Navigateur Web Microsoft):
https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/



Bonne journée
MichelXld
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
Réponses
0
Affichages
737
Jérémy26
J
B
Réponses
2
Affichages
944
benco170
B
C
Réponses
2
Affichages
2 K
C
S
Réponses
3
Affichages
2 K
N
Réponses
1
Affichages
963
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…