Bonjour,
J'utilisais jusqu'ici excel et outlook 2010.
Lors du passage à Excel et Outlook 2016, un ficher excel qui me permet d'envoyer automatiquement un mail m'affiche l'objet en caractères chinois.
Je n'ai pas réussi à trouver de réponse à ce mystère.
Quelqu'un a-til une idée?
Ci-dessous le code utilisé, mais cela vient-il de lui?
Merci d'avance
Sub Save_EtatRoutes()
Dim dest(2) As String
Sheets("Hauteurs de neige").Select
Range("B10").Value = Date
Range("D10").Value = Time
Sheets("Tronçons").Select
dest(0) = "inforoute@ha-py.fr"
'dest(1) = "drt.astreinte@ha-py.fr"
'Gestion de l'année
If Month(Date) < 6 Then
annee = Year(Now) - 1 & "-" & Year(Now)
Else: annee = Year(Now) & "-" & Year(Now) + 1
End If
datejour = Format(Date, "YYYYMMdd")
heure = Hour(Now)
If heure < 9 Then
Set NewBook = Workbooks.Add
ThisWorkbook.Sheets("Tronçons").Cells.Copy NewBook.Sheets("Feuil1").Range("A1")
ThisWorkbook.Sheets("Hauteurs de neige").Cells.Copy NewBook.Sheets("Feuil2").Range("A1")
NewBook.Sheets("Feuil1").Name = "Tronçons"
NewBook.Sheets("Feuil2").Name = "Hauteurs de neige"
'Suppression des boutons
Sheets("Tronçons").Shapes.Range(Array("Button 1")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", _
"Button 2")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3", "Button 4")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3", "Button 4", "TextBox 6")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3", "Button 4", "TextBox 6", "TextBox 8")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3", "Button 4", "TextBox 6", "TextBox 8", "TextBox 9")).Select
Selection.Delete
NewBook.SaveAs Filename:="F:\GAV\Administration\PEVH\VH " & annee & "\INFOROUTE\GAV_" & datejour & "7" & ".xls", FileFormat:=56
Workbooks("GAV_" & datejour & "7" & ".xls").SendMail Recipients:=dest, _
Subject:="Etat des Routes du Pays des Gaves", _
ReturnReceipt:=True
NewBook.Close
ElseIf heure < 11 Then
Set NewBook = Workbooks.Add
ThisWorkbook.Sheets("Tronçons").Cells.Copy NewBook.Sheets("Feuil1").Range("A1")
ThisWorkbook.Sheets("Hauteurs de neige").Cells.Copy NewBook.Sheets("Feuil2").Range("A1")
NewBook.Sheets("Feuil1").Name = "Tronçons"
NewBook.Sheets("Feuil2").Name = "Hauteurs de neige"
'Suppression des boutons
Sheets("Tronçons").Shapes.Range(Array("Button 1")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", _
"Button 2")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3", "Button 4")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3", "Button 4", "TextBox 6")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3", "Button 4", "TextBox 6", "TextBox 8")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3", "Button 4", "TextBox 6", "TextBox 8", "TextBox 9")).Select
Selection.Delete
NewBook.SaveAs Filename:="F:\GAV\Administration\PEVH\VH " & annee & "\INFOROUTE\GAV_" & datejour & "11" & ".xls", FileFormat:=56
Workbooks("GAV_" & datejour & "11" & ".xls").SendMail Recipients:=dest, _
Subject:="Etat des Routes du Pays des Gaves", _
ReturnReceipt:=True
Else
Set NewBook = Workbooks.Add
ThisWorkbook.Sheets("Tronçons").Cells.Copy NewBook.Sheets("Feuil1").Range("A1")
ThisWorkbook.Sheets("Hauteurs de neige").Cells.Copy NewBook.Sheets("Feuil2").Range("A1")
NewBook.Sheets("Feuil1").Name = "Tronçons"
NewBook.Sheets("Feuil2").Name = "Hauteurs de neige"
'Suppression des boutons
Sheets("Tronçons").Shapes.Range(Array("Button 1")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", _
"Button 2")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3", "Button 4")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3", "Button 4", "TextBox 6")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3", "Button 4", "TextBox 6", "TextBox 8")).Select
Sheets("Tronçons").Shapes.Range(Array("Button 1", "Button 5", "Button 6", "Button 2" _
, "Button 3", "Button 4", "TextBox 6", "TextBox 8", "TextBox 9")).Select
Selection.Delete
NewBook.SaveAs Filename:="F:\GAV\Administration\PEVH\VH " & annee & "\INFOROUTE\GAV_" & datejour & heure & ".xls", FileFormat:=56
Workbooks("GAV_" & datejour & heure & ".xls").SendMail Recipients:=dest, _
Subject:="Etat des Routes du Pays des Gaves", _
ReturnReceipt:=True
End If
'NewBook.Close
End Sub
--