Condividi:        

EXCEL: problema creazione cartelle in percorso di RETE

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCEL: problema creazione cartelle in percorso di RETE

Postdi valle1975 » 22/10/10 16:31

Salve, ho il seguente problema con una macro che uso regolarmente in LOCALE, nel momento in cui imposto come percorso di salvataggio, un percordo sulla RETE LAN.
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.
Valerio
---------------------------------
Windows 10 Professional + MS Office 2016 STD Ita
valle1975
Utente Senior
 
Post: 213
Iscritto il: 27/09/10 16:33

Sponsor
 

Re: EXCEL: problema creazione cartelle in percorso di RETE

Postdi ricky53 » 22/10/10 18:21

Ciao,
mancano "\" nei nomi che componi.

Avresti dovuto dire che numero di errore ottieni: forse il run-time "76" ?

Ecco la versione modificata:

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


Adesso dovrebbe funzionare

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL: problema creazione cartelle in percorso di RETE

Postdi valle1975 » 25/10/10 09:49

Grazie mille tutto perfetto... :D

Alla prossima.. ciao.
Valerio
---------------------------------
Windows 10 Professional + MS Office 2016 STD Ita
valle1975
Utente Senior
 
Post: 213
Iscritto il: 27/09/10 16:33

Re: EXCEL: problema creazione cartelle in percorso di RETE

Postdi ricky53 » 25/10/10 10:23

Ciao,
di nulla o, come si dice, ... "DOVERE" ...
Alla prossima.

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL: problema creazione cartelle in percorso di RETE":


Chi c’è in linea

Visitano il forum: Nessuno e 121 ospiti