Copier cellules excel dans htmlbodyRésolu

Question

Bonjour à tous....

Sur un server local, j'ai un fichier .xls (une seule feuille) dans lequel plusieurs utilisateurs 
renseignent certaines cellules (text + coloriage).

Dans le bout de code ci-dessous, j'arrive à insérer le contenu (texte) des cellules de ce .xls
dans le HTMLBody d'un mail (via CDO.Message).

Questions:
- Comment reproduire le contenu de mes cellules (objExcel.Selection.Interior ou ColorIndex) ????;
- Y-a-il une autre méthode pour arriver à copier/coller le contenu et la mise en forme exacte de mes cellules ???

Pour la 2ème question, la réponse est OUI, mais je n'arrive pas (après 3h
de recherches sur google) à retrouver un script vbs qui répondait à cette question !!!

Je code en vbs, mais, même les propositions en vb6 seraient les bienvenues.
Merci de votre attention.

Dim str
str = "<HTML>" 
str = str & "Bonjour,

" 


str = str & "\"
intRow = intRow + 1
str = str & \" ----
\"
str = str & \" " & objExcel.Cells(intRow,1).Value & ", \"
str = str & \" " & objExcel.Cells(intRow,2).Value & ",  \"
str = str & \" " & objExcel.Cells(intRow,3).Value & ",  \"
str = str & \" " & objExcel.Cells(intRow,4).Value & ",  \"
str = str & \" " & objExcel.Cells(intRow,5).Value & " ,  \"
str = str & \"\"
str = str & "
" 

jean-marc

mortalino · Accepted Answer

Salut, pour récupérer la couleur de la cellule excel et la transformer en couleur HTML, il faut utiliser la fonction de PCPT : Function GetHtmlColorFromOleColor(ByVal lCol As OLE_COLOR) As String Dim R%, G%, B% R = Int(lCol And &HFF) G = Int((lCol And &H100FF00) / &H100) B = Int((lCol And &HFF0000) / &H10000) GetHtmlColorFromOleColor = "#" & Format$(Hex(R), "00") & Format$(Hex(G), "00") & Format$(Hex(B), "00") End Function ~ Mortalino ~ Exemple utilisation : MsgBox GetHtmlColorFromOleColor(Range("A1").Interior.Color) >> j'ai fait le test avec fond rouge, j'ai vérifié le résultat, il est bon. Après c'est à toi de déterminer le format de cellule, à savoir si c'est en gras, centré, italique, etc... puis de le transposer en html. Pour infos, voici un exemple de balise pour faire de "cases" : "" @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

TMONOD · Answer

Salut,
Ton problème illustre bien ce que j'appelle le "syndrome du wysiwig".
Tu ne pourras jamais obtenir une image strictement fidèle de ta mise en page excel avec du simple code html. 
A la rigueur, tu peux imaginer une règle de transformation qui soit satisfaisante, à l'aide d'une feuille de style par exemple, et soyons ambitieux, que cette feuille de style s'applique à un fichier excel au format xml mais c'est pas simple...

Ou alors, tu "embedde" ton classeur excel directement dans une page web, ce qui te permettrait "d'importer" les possibilités d'excel dans un environnement web.


Apparament tu utilises le mail pour que chacun mettre à jour les cellules qui le concernent. 


Tu sais que tu peux aussi partager ton fichier excel et synchroniser les différentes versions, ce qui te permettrais de rester dans le "standard"...


Ce ne sont que quelques pistes....






Jcbé[^]

cs_JMO · Answer

Bonjour à tous.... Merci 198370 TMONOD de ta réponse, En fait, sur site d'infogérance, des utilisateurs (Téléphonie, Windows, AS400...) renseignent le fichier du jour, après leurs contrôles respectifs. ---- ENVIRONNEMENT, RESEAU, SYSTEMES, SAUVEGARDES, APPLICATIONS, TRAITEMENTS, , ---- TELEPHONIE, , , , , , , ---- AS400, , , , , , , ---- NT/2000, , , , , , , ---- , , , , , , , ---- , Résultat OK, , Probléme non Bloquant, , Problème bloquant, ---- , , , , , , , ---- , , , , , , , ---- Synthése des incidents :, , , , , , ---- , , , , , , , ---- , , , , , , , ---- , , , , , , , ---- , , , , , , , ---- , , , , , , , ---- , , , , , , , ---- , , , , , , , ---- , , , , , , , ---- , , , , , , , ---- , , , , , , , ---- , , , , , Mon souhait étant d'optimiser la création du fichier .xls du jour (par rapport à un modèle - ok), puis la dernière personne à renseigner devra envoyer ce fichier au client. Pour l'instant, le fichier .xls est en pièce jointe. Ce fichier se résumant aux cellules A1-F1 jusqu'à A26-F26, je trouve plus convivial d'incruster le contenu dans le mail plutôt qu'en pièce jointe. jean-marc

cs_JMO · Answer

Re, Merci Mortalino, Effectivement, la function RGB existe aussi en vbs, mais je ne l'ai jamais utilisée. RGB([ red], [ green], [ blue]) Arguments * : redNombre de 0 à 255 représentant la composante rouge de la couleur. * : green

Nombre de 0 à 255 représentant la composante verte de la couleur. * : blue

Nombre de 0 à 255 représentant la composante bleue de la couleur. Je n'ai plus qu'à tester !!! jean-marc

Copier cellules excel dans htmlbody

4 réponses

Votre réponse

Discussions similaires