Premettendo che è una cartella con diritti di modifica per tutti gli utenti interessati, non capisco quale sia il problema per il quale non mi crei la cartella con il comando MKDIR.
- Codice: Seleziona tutto
SUB salva()
'ChDrive "C" ' impostazione in locale dove ha sempre funzionato
'Perc1 = "C:\TEMP\" ' impostazione in locale dove ha sempre funzionato
Perc1 = "\\server\condivisione\commerciale\CONTESTAZIONI"
' nuovo percorso
Dim NomeCartella As String
NomeCartella = "Contestazione n° " & [D2] & " del " & Format([D4], "dd-mm-yyyy") & " Cliente " & [C5] & "\"
'ActiveWorkbook.SaveAs Filename:=Indirizzo & "\" & NomeCartella
MsgBox (NomeCartella)
If Dir(Perc1 & "\" & NomeCartella) = "" Then
MkDir (Perc1 & NomeCartella)
End If
Perc = (Perc1 & NomeCartella)
NomeF = Perc & "Contestazione n° " & [D2] & " del " & Format([D4], "dd-mm-yyyy") & " Cliente " & [C5] & "_rev. del " & Format(Now(), "yyyy-mm-dd") & " Ore " & Format([C1], "hh_mm") & ".xls"
End Sub
Grazie a tutti coloro , che come sempre, vorranno essermi di aiuto.