[Excel] Macro personalizzata per salvare in PDF

[Anthony47]

Io mi sono distratto ma tu un po' di piu'...
Fin dal primo messaggio ti avevo detto "Se da errore sull' istruzione ".ExportAsFixedFormat", allora mentre sei in debug e quell' istruzione e' evidenziata, premi Contr-g e nella finestra che si apre scrivi etc etc"

Se te ne fossi ricordato avremmo visto che il nome file somigliava a
C:\Users\UTENTE\PERCORSO\Invoice n. 26/E Date: 28-03-2014 ISURF LIMITED .pdf

Ma in windows non si puo' scrivere un nome file con caratteri quali "/" oppure ":" (e anche altri); devi quindi procedere a sostituire questi caratteri con altri non vietati, ad esempio con Replace successivi (o annidati), tipo

Codice: Seleziona tutto

sNome = Replace(sNome, "/", "_")

Ciao

[calabrone80]

Ciao Anthony, scusa ma ho dimenticato una parte del tuo suggerimento .

Ho fatto quello che mi hai detto ed ho eliminato tutti i caratteri vietati, ma adesso mi stampa in pdf, è ti ringrazio tanto, ma il nome che attribuisce è FALSO.PDF.

In cosa ho sbagliato ancora???

[Anthony47]

Quale e' adesso la macro?

[calabrone80]

Sub SalvaPDF()

Dim sPath As String
Dim sNome As String


With ThisWorkbook

sPath = .Path

With .Worksheets("Invoice €")

sNome = .Range("b14").Value & _
" " & .Range("c14").Value & _
" " & .Range("b15").Value & _
" " & Format(.Range("c15").Value, "dd-mm-yyyy") & _
" " & .Range("g14").Value

.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPath & "\" & sNome = Replace(sNome, "/", "_") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End With

End With

Application.DisplayAlerts = True

End Sub

[Anthony47]

Filename:=sPath & "\" & sNome = Replace(sNome, "/", "_") & ".pdf", _

Abbastanza avventuroso...

Devi intervenire su sName, una volta calcolato, per eliminare non solo la "/" ma anche anche altri caratteri vietati; tipo:

Codice: Seleziona tutto

            sNome = .Range("b14").Value & _
                " " & .Range("c14").Value & _
                " " & .Range("b15").Value & _
                " " & Format(.Range("c15").Value, "dd-mm-yyyy") & _
                " " & .Range("g14").Value
'Queste per eliminare i caratteri vietati:
            sNome = Replace(sNome, "/", "_")
            sNome = Replace(sNome, ":", "_")

            .ExportAsFixedFormat _
             Type:=xlTypePDF, _
             Filename:=sPath & "\" & sNome & ".pdf", _
             'etc etc

(vedi le due righe aggiunte)

Ciao

[giostacchio]

ciao, ma se io anzichè il nome del file volessi salvare con il nome contenuto in una cella come dovrei fare ?
salvando sempre nella stessa cartella quindi .Path
ho provato così ma mi da errore
Sub Pulsante1_Click()

'
'
With ActiveWorkbook
If .Path = "" Then Exit Sub
pdfFile = .Path & "\" & .Range("a46").Value & ".pdf"
End With
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFile _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End Sub

[Anthony47]

"Range" non e' una proprieta' di un workbook, ma di un worksheet; quindi modifica questa riga:

Codice: Seleziona tutto

pdfFile = .Path & "\" & Range("a46").Value & ".pdf"

(c'e' una piccola differenza con quella tua)

Ciao

[giostacchio]

"Range" non e' una proprieta' di un workbook, ma di un worksheet; quindi modifica questa riga:

Codice: Seleziona tutto

pdfFile = .Path & "\" & Range("a46").Value & ".pdf"

(c'e' una piccola differenza con quella tua)

Ciao

buondì, ci avevo già provato ma mi restituisce un errore

[Anthony47]

Quel codice usa il contenuto di Range("a46") del foglio attivo come nome del file; A46 deve quindi contenere un valore idoneo, mentre dall'immagine si vede che la cella e' in condizione di errore.

Se vuoi usare un altro A46 allora devi scriverlo nel codice; oppure qui nel forum e ti potremmo dare una mano a metterlo nel codice.

Ciao

[giostacchio]

Quel codice usa il contenuto di Range("a46") del foglio attivo come nome del file; A46 deve quindi contenere un valore idoneo, mentre dall'immagine si vede che la cella e' in condizione di errore.

Se vuoi usare un altro A46 allora devi scriverlo nel codice; oppure qui nel forum e ti potremmo dare una mano a metterlo nel codice.

Ciao

eh Già!
grazie