Bonjour,
j'ai du passer mon site internet en UTF-8 pour régler un problème d'accents, du coup je passe toutes les pages du site en UTF-8
Certaines pages sont générées avec Excel.
J'utilise une macro pour enregistrer 2 colonnes d'un onglet Excel dans un fichiers html.
J'aurais besoin de spécifier que les fichiers générés soient encodés en UTF-8. Si je le fait manuellement le problème est résolu, (ouvrir avec notepad, enregistrer sous, choisir utf-8) mais j'ai énormément de pages à traîter.
Sauriez-vous comment faire ça directement dans la macro ? ou bien connaissez un logiciel pour modifier en masse l'encodage des fichiers en UTF-8 ?
Voici la macro actuelle:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée par eriiic
'
' Touche de raccourci du clavier: Ctrl+E -prévue a l'origine pour traiter plusieurs onglets
Const chemin As String = "C:\"
'
Dim MonEXE As Long
Dim fichier As String
Dim MonExcel As Workbook
Dim C As Boolean
Dim ws As Worksheet
MonEXE = Shell("notepad.exe" & fichier, vbNormalFocus)
For Each ws In Worksheets
If ws.Name <> "Listing" And InStr(ws.[A1], ".html") > 0 Then
With ws
.Range("A10:G10008").Sort Key1:=.Range("A9"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.[A9].AutoFilter Field:=2, Criteria1:="<>"
'
fichier = chemin & .[A1].Value
On Error Resume Next
Kill fichier
On Error GoTo 0
'
AppActivate MonEXE
SendKeys "%Et", True
SendKeys "{DEL}", True
.Range("B1:C10050").Copy
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "^V", True
SendKeys "%FR", True
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys fichier & "{ENTER}", True
Application.CutCopyMode = False
End With
End If
Next ws
AppActivate MonEXE
SendKeys "%FQ", True
End Sub
