Passer de Excel en HTML avec Compteur de Visite

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion piwa
  • 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 !

S'inscrire
piwa

piwa

XLDnaute Occasionnel
Bsr,

Je fais appel au forum pour la question suivante :
Je dispose d'un fichier Xl tous simple qui me sert de source pour une page html (l'avantage c'est que je modifie ma page source en xl j'enristre et automatiquement ma page html est publiée)
Je souhaiterai inclure un compteur d evisite html , je peux trouver facilement le cod een javascript mais je ne sais pas l'inclure dans mon fichier source excel)

Franchement je me demande meme si cela est possible ?

Si tel est le cas au moins je serai fixé.

Merci de vos indications, solutions et avis.
 
Trier par date Trier par votes
Re : Passer de Excel en HTML avec Compteur de Visite

Bonsoir,

tu es sûr que c'est du javascript, ton compteur?
je l'aurais plutôt vu via un lien URL.

sinon, selon ton code et son emplacement, tu peux retravailler ton fichier HTML par macro pour lui insérer le javascript au bon endroit, dans le <HEAD> ou le <BODY>.

A+
 
Vote positif 0 Vote négatif
Re : Passer de Excel en HTML avec Compteur de Visite

ODVJ à dit:
Bonsoir,

tu es sûr que c'est du javascript, ton compteur?
je l'aurais plutôt vu via un lien URL.

sinon, selon ton code et son emplacement, tu peux retravailler ton fichier HTML par macro pour lui insérer le javascript au bon endroit, dans le <HEAD> ou le <BODY>.

A+
Cliquez pour agrandir...

Merci de ta reponse rapide

Vu mon niveau sur le sujet, j'avoue ne pas tout saisir......

A+
 
Vote positif 0 Vote négatif
Re : Passer de Excel en HTML avec Compteur de Visite

bonjour

En complément de la réponse d'Odvj, tu pourras peut être adapter cette procédure qui enregistre chaque feuille du classeur au format htm et ajoute dynamiquement un lien hypertexte entre chaque page.

Code: 
Sub convertirFormatHtml_V01()
'MichelXld le 05.03.2005
Dim Ws As Worksheet
Dim Fichier As String, monCode As String
Dim i As Byte

'masque le bouton pendant le traitement de la macro
Feuil1.Shapes(1).Visible = False

For Each Ws In ThisWorkbook.Worksheets
    'adapter le chemin
    Fichier = ThisWorkbook.Path & "\" & Ws.Name & ".htm"
    ActiveWorkbook.PublishObjects.Add _
        (xlSourceSheet, Fichier, Ws.Name, "", xlHtmlStatic, "", "").Publish
    
    '*********** ajout liens hypertextes dans les pages créées *********
    Open ThisWorkbook.Path & "\" & Ws.Name & ".htm" For Append As #1
        Print #1, "<HTML>"
        Print #1, "<HEAD><BODY>"
        
        For i = 1 To Sheets.Count
            If Ws.Name <> Sheets(i).Name Then
                monCode = "<PR><CENTER><td bgcolor='#FFFFFF' rowspan='2'><a href='" & _
                    ThisWorkbook.Path & "\" & Sheets(i).Name & ".htm'>" & _
                    Sheets(i).Name & "</a></td><BR></CENTER>"
                
                Print #1, monCode
            End If
        Next i
        
        Print #1, "</HEAD></BODY>"
    Close #1
Next
'*********************************

Feuil1.Shapes(1).Visible = True

'affiche la 1ere page
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\" & _
    Sheets(1).Name & ".htm", NewWindow:=True
End Sub


Bonne journée
MichelXld
 
Vote positif 0 Vote négatif
Re : Passer de Excel en HTML avec Compteur de Visite

Bonjour le fil, et le forum,
J'en profite de ce fil car moi aussi je sauvegarde mes ficheirs sous format HTM b^ètement. Je viens de tester le code de MichelXLD.
@ MichelXLD,
J'ai testé ta macro. Les liens dynamiques sur les noms des feuilles fonctionnent bien. Par contre pour une personne qui lit ces feuilles HTML les noms de ces feuilles ne sont pas explicites. Est-il possible de rajouter un commentaire à côté des liens dynamiques qui peut-etre par exemple le Titre de la feuille contenu dans la cellule C5 par exemple ou autre methode?
Merci d'avance
Amicalement
KIM
 
Vote positif 0 Vote négatif
Re : Passer de Excel en HTML avec Compteur de Visite

bonsoir

Tu peux adapter le texte qui apparait dans le lien

Code: 
monCode = "<PR><CENTER><td bgcolor='#FFFFFF' rowspan='2'><a href='" & _
  ThisWorkbook.Path & "\" & Sheets(i).Name & ".htm'>" & _
  [COLOR=red]Range("C5")[/COLOR] & "</a></td><BR></CENTER>"


Bon week end
MichelXld
 
Vote positif 0 Vote négatif
Re : Passer de Excel en HTML avec Compteur de Visite

Bonjour le fil, MichelXLD
@MichelXLD,
Merci, ton code fonctionne bien avec Internetexplorer,
mais avec FireFox, en clicquant sur un lien j'ai le message suivant:
"Firefox ne sait pas ouvrir cette adresse car le protocole (d) n'est associé à aucun programme"
As-tu une idée
Ce n'est pas bloquant car on peut utiliser IE.
Merci et Bon dimanche
KIM
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Retour