Ciao a tutti e complimenti per il forum sto trovando un sacco di informazioni e per uno come me che sta imparando è fantastico.
BRAVI!
Ora vi presento la mia prima richiesta d' aiuto:
Seguendo le indicazioni trovate su questo forum sono riuscito a creare il file PDF di un foglio di Excel 2010, sono riuscito anche a personalizzare il nome del file in automatico ma non riesco a capire come far creare una cartella in automatico se non esiste se invece esiste come salvare il file al suo interno.
so che non mi sono spiegato bene ma provo con un esempio:
io clikko sul pulsante della macro e lei in automatico genera il file pdf con nome personalizzato lo salva in una cartella che deve avere il nome dell'anno che recupera da una cella del foglio (es. Anno 2013) poi genera all'interno di questa cartella un'altra cartella col nome del mese che recupera sempre dalla stessa cella (es. Ottobre).
Le informazioni della data le ho nella cella "C6" del foglio "HOME" con la formula " =OGGI()"
naturalmente le cartelle le crea solo se non esistono poi continua ad usarle fino a che non cambia mese o anno.
il codice della mia macro ora è il seguente:
' PDF Macro
'
Dim sPath As String
Dim sNome As String
Application.DisplayAlerts = False
On Error Resume Next
With ThisWorkbook
sPath = .Path
With .Worksheets("HOME")
sNome = .Range("B5").Value & _
" " & .Range("C5").Value
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPath & "\" & sNome & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With
Ringrazio tutti già in antigipo.
Ciao