Ciao a tutti,
mi servirebbe il vostro aiuto
Ho creato questa macro che dovrebbe salvare la selezione del foglio Report in PDF (e questo lo fa) e successivamente inviare il file appena creato ad un indirizzo che trova nella cella AAi.
Ho un ciclo For perché in base alla i mi inserisce i dati nei grafici che successivamente salva in PDF.
Quando vado a eseguire la macro mi compare questo messaggio di errore (riga 48): "Errore di run-time 438 Proprietà o metodo non supportato dall'oggetto"
Grazie a tutti quelli che mi aiuteranno
Sub InviaPDFReportConCiclo()
Dim ws As Worksheet
Dim strIndirizzo As String
Dim myFile As Variant
Dim strFile As String
Dim nome As String
Dim i As Integer
Dim selezione As Range
Dim percorso As String
Dim OutlookApp As Object
Dim OutlookMail As Object
'On Error GoTo errHandler
Set ws = Worksheets("Report")
Set selezione = ws.Range("A1:R225")
percorso = Worksheets("Elenco Aziende 2").Range("AF9").Value
For i = 3 To 5
Worksheets("Tabelle dati").Range("C8") = Worksheets("Elenco Aziende").Range("B" & i)
Worksheets("Tabelle dati").Select
nome = Range("C1").Value & " " & "-" & " " & Range("C8").Value
strFile = Replace(nome, " ", " ") _
strFile = percorso & strFile
With Worksheets("Report")
selezione.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFile
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
' .From = 'mail destinatario
.To = Worksheets("Elenco Aziende 2").Range("AA" & i).Value
.CC = Worksheets("Elenco Aziende 2").Range("AB" & i).Value
.BCC = ""
.Subject = 'Oggetto della mail
.Body = Worksheets("Elenco Aziende 2").Range("AF3").Value
.Attachments.Add selezione
.Send
End With
End With
Next i
Set ws = Nothing
Set OutlookApp = Nothing
Set OutlookMail = Nothing
exitHandler:
Exit Sub
errHandler:
MsgBox "Non ho potuto salvare il file PDF"
Resume exitHandler
End Sub