Bonjour le Forum,
j'avais une macro pour envoyer un onglet par mail, mais cela pose des Pb avec les outlook OWA web.
donc je vais sur une autre piste, je souhaite exporter un onglet avec un nom mais l'envoyer vers un dossier ex: D:/Appli/BPE/Résultats.
Merci à vous
ma macro actuelle
Sub Mail()
Sheets("Original").Copy
With ActiveSheet
.Name = "Parka_Janv_18"
.UsedRange.Value = ActiveSheet.UsedRange.Value
'.Shapes("Bouton").Delete
.Columns("g:g").Cut Destination:=Columns("az:az")
.Columns("az:az").EntireColumn.Hidden = True
End With
ActiveWorkbook.SendMail Recipients:=Range("az2:az" & Range("az65535").End(xlUp).Row), Subject:=[a1]
ActiveWorkbook.Close SaveChanges:=False
End Sub
j'avais une macro pour envoyer un onglet par mail, mais cela pose des Pb avec les outlook OWA web.
donc je vais sur une autre piste, je souhaite exporter un onglet avec un nom mais l'envoyer vers un dossier ex: D:/Appli/BPE/Résultats.
Merci à vous
ma macro actuelle
Sub Mail()
Sheets("Original").Copy
With ActiveSheet
.Name = "Parka_Janv_18"
.UsedRange.Value = ActiveSheet.UsedRange.Value
'.Shapes("Bouton").Delete
.Columns("g:g").Cut Destination:=Columns("az:az")
.Columns("az:az").EntireColumn.Hidden = True
End With
ActiveWorkbook.SendMail Recipients:=Range("az2:az" & Range("az65535").End(xlUp).Row), Subject:=[a1]
ActiveWorkbook.Close SaveChanges:=False
End Sub