Discussion :

[Léponge85]

Ben ué je sais c'est trés dur pour moi surtout que je connais rien en VBA. Mais comment je vais pouvoir faire alors afin de convertir le tout en HTML. Connait tu un logiciel gratuit qui me permetterai de faire ce que je veux
Merci encore pour tout l'aide que vous m'avez apporter

[fring]

J'avoue que ta question

Range("A1:K50") cela reprend quoi comme plage de cellule

me laisse sans voix...

Lis tout haut Range("A1:K50"), cela ne t'inspire rien ?

Dans une feuille vierge, exécute ce petit test

Code :

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

1
2
3
Sub Petit_test()
Range("A1:K50").Interior.ColorIndex = 3
End Sub

[Léponge85]

D'accord ok merci
Je suis vraiment dsl je suis vrement nul
Merci encore

[fring]

non non je ne jetterai pas Bob

Concernant ton erreur "La methode 'Publish' de l'objet 'PublishObject' a échoué" je viens encore de retester le code et il fonctionne bien chez moi, difficile à dire pourquoi tu as cette erreur, tu as bien mis le code dans un module standard, tel quel, sans rien modifier ?

[Léponge85]

oui oui je les mit tel qu'elle sans rien modifier.
c'est cette ligne qui merde :

ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceSheet, Filename:=Chemin & Sheets(i).Name & ".htm", Sheet:=Sheets(i).Name).Publish

Est ce que tu a une idée d'ou peut provenir l'erreur ?
Je cherche mais je ne trouve pas
Merci encore pour ton aide

[fring]

Non aucune idée, de mon côté cela fonctionne, je peux difficilement t'en dire plus

[Léponge85]

Non ben c'est pas grave alors,
Merci beaucoup pour votre aide sa m'a beaucoup aidé.
Merci

RE dsl c'est encore moi,
Grace a vous j'ai réussi a generer les pages html avec les differents liens hypertextes. Le probleme maintenant est que lorsque je clic sur un lien hypertexte il narrive pas a retrouver la bonne page et il me met dans le navigateur : " Internet Explorer ne peut pas afficher cette page Web "
Merci encore

[fring]

Oui je l'ai constaté aussi, change cette ligne de code

Code :

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

Chemin = "C:\"

par celle-ci

Code :

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

Chemin = ActiveWorkbook.Path & "\"

Seulement cela va fonctionner chez toi mais ne fonctionnera plus à partir du moment où tu vas envoyer ces fichiers à une autre personne et que cette personne ne les placera pas forcément au même endroit sur son disque que toi.
Lorsqu'il crée le lien hypertexte, il le crée vers le fichier qui va s'enregistrer sur ton disque dur, à un endroit bien précis, avec un chemin bien précis. A partir du moment où tu changes les fichiers de place, les liens ne fonctionnent plus et je n'ai pas de solution à ça

[Léponge85]

Je viens d'essayer ce que tu ma dis et ca me fait la meme chose.
C'est bien comme ca :

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
Sub test2()
Dim i As Byte, Chemin As String, oLink As Hyperlink
Dim Cel As Range, Lien As String, LienFeuille As String
 
Chemin = ActiveWorkbook.Path & "\"
 
For i = 1 To Sheets.Count
    For Each Cel In Sheets(i).Range("A1:Q2000")
        If Cel.Hyperlinks.Count > 0 Then
            Lien = Cel.Hyperlinks(1).SubAddress
            If Lien <> "" Then
                Cel.Hyperlinks.Delete
                LienFeuille = Split(Lien, "!")(0)
                Set oLink = Sheets(i).Hyperlinks.Add(Cel, LienFeuille & ".htm")
            End If
        End If
    Next
 
ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceSheet, Filename:=Chemin & Sheets(i).Name & ".htm", Sheet:=Sheets(i).Name).Publish
Next
 
End Sub

[fring]

non en principe ça ne fait pas la même chose, attention tu vérifies peut-être sur les anciens fichiers qui se trouvent sur ton C, les nouveaux fichiers créés se trouvent dans le même répertoire que ton classeur Excel et plus sur le C

[Léponge85]

Je viens de réssayer pour etre bien sur et les fichier se trouvent que dans le repertoir ou et excel.
C'est koi ton adresse email comme sa je tenvoye mon fichier excel comme sa tu pourra tester. Si ta envi
Merci encore