Directory...a sorpresa

[Lele2774]

ciao a tutti.

ho creato delle macro che hanno lo scopo di salvarmi in 2 directory diverse ...2 file in pdf partendo dal un unico file xls.

la particolarità negativa di tutto questo è che, benchè abbia indicato chiaramente quale siano le directory dove dover salvare i 2 file pdf le macro in questione...alcune volte salvano nelle giuste cartelle, altre volte... in altre cartelle assolutamente non menzionate nella macro in questione.
la cosa che mi sconcerta è che... a fronte di nessun cambiamento del testo della macro... i file vengono salvati in cartelle sempre diverse.
COME SI SPIEGA?
COME POSSO "FISSARE" QUESTE DIRECTORY?

HELPPPPPPPPPPPPPPPPPPPPPPP!!!!


ecco le macro:
Sub CallMacro()

Call Salva1

Call SalvaB

End Sub

--------------------------------------------------------------------------------------------------------------------
Sub Salva1()

Sheets("AIR_1").Select

nome = Range("M3").Value

ChDir "X:\MXP Share\SALES\Quotation\sales activity 2013\quotazioni (selling)"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

--------------------------------------------------------------------------------------------------------------------
Sub SalvaB()

Sheets("Buying").Select

nome = Range("M3").Value



ChDir "X:\MXP Share\SALES\Quotation\sales activity 2013\quotazioni (buying)"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False



Sheets("AIR_1").Select

Range("A1").Select


End Sub

[Zer0Kelvin]

Ciao.
Oltre alla cartella, devi assicurarti di essere sul drive giusto.
Esempio:
-la cartella corrente è "C:\Miacartella"
-Eseguo l'istruzione: ChDir("D:\Miacartella_2")
-Con questo ho cambiato la cartella di lavoro sul drive D:, ma il drive su cui sto lavorando è ancora C:, quindi...
-SORPRESA! la cartella di lavoro di Excel è ancora, indovina un pò?
- "C:\Miacartella"

Per essere certo di scrivere nella cartella corretta devi eseguire:

Codice: Seleziona tutto

ChDrive "X"
ChDir "X:\MXP Share\SALES\Quotation\sales activity 2013\quotazioni (buying)"

Naturalmente questa è solo un'ipotesi; prova e fammi sapere....

PS:
Più semplicemente puoi includere il percorso completo nell'istruzione ExportAsFixedFormat:

Codice: Seleziona tutto

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="X:\MXP Share\SALES\Quotation\sales activity 2013\quotazioni (selling)" & _
nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

[Lele2774]

grazie mille
domani provo e ti faccio sapere.

mi rimane il "mistero" per cui...alcune volte salva correttamente, altre volte...
grazie ancora

[Zer0Kelvin]

Rileggi il mio post, ho fatto un'aggiunta.

[Lele2774]

grazie.

quindi...se ho capito bene... la macro dovrebbe essere così:

Codice: Seleziona tutto

Sub SalvaB()
Sheets("Buying").Select
nome = Range("M3").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="X:\MXP Share\SALES\Quotation\sales activity 2013\quotazioni (selling)" & _
nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("AIR_1").Select
Range("A1").Select
End Sub


giusto?
grazie ancora

[Lele2774]

FUNZIONA!!!!!!
GRAZIE