Moderatori: Anthony47, Flash30005
If Dir(Perc & "Archivio", vbDirectory) = "" Then
MkDir (Perc & "Archivio")
End If
Perc = ThisWorkbook.Path & "\"
If Dir(sPath & "\" & Format(Now(), "yyyy_mm"), vbDirectory) = "" Then
MkDir (sPath & "\" & Format(Now(), "yyyy_mm"))
End If
Filename:=sPath & "\" & Format([A1], "yyyy_mm") & "\" & sNome & ".pdf", _
Torna a Applicazioni Office Windows
Come evidenziare aree separate di un foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 18 |
Macro per aggiungere testo in tutti i files di una cartella? Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 15 |
Visitano il forum: Nessuno e 16 ospiti