Risultati da 1 a 16 di 16

Discussione: Salva con nome personalizzato



  1. #1
    L'avatar di rodyskorps
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Teramo
    EtÓ
    24
    Messaggi
    14
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Salva con nome personalizzato

    Ciao,

    ho bisogno di supporto per una miglioria che voglio apporre al mio sistema di redazione fatture fatto con excel.
    Ho bisogno chela mia cartella di lavoro sia salvata con nome, del tipo "NUMEROFATTURA NOMECLIENTE", in formato pdf,.e vorrei che questi dati siano presi direttamente dal foglio di lavoro attivo che vado a salvare.
    Il nome

    Grazie in anticipo

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Salva con nome personalizzato

    Ciao Rody

    Questa macro salva in PDF il foglio attivo dando come nome file il num. fattura contenuto in A2 ed il nome cliente presente in B2

    Codice: 
    Sub SalvaPDF()
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Excel\" & Range("a2").Value & " " & Range("b2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True _
            , IgnorePrintAreas:=False, OpenAfterPublish:=False
    End Sub
    Ovviamente va cambiato anche il percorso.

    Questo Ŕ solo uno spunto per iniziare.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  3. I seguenti utenti hanno dato un "Like"


  4. #3

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Salva con nome personalizzato

    scusa avevo dimenticato di allegare il file

    Magari se riesci ad allegare un tuo file di esempio si riesce a calibrare meglio i suggerimenti.
    File Allegati File Allegati
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  5. #4
    L'avatar di rodyskorps
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Teramo
    EtÓ
    24
    Messaggi
    14
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: Salva con nome personalizzato

    Ciao Alfredo,

    Ho opportunamente modificato la macro per renderla adatta alla mia situazione e, preliminarmente, funziona alla perfezione.
    Domani far˛ le modifiche definitive e vi faccio sapere se Ŕ tutto a posto.

    Scusatemi se non allego i miei file ma trattando anche dati di terze parti purtroppo non sono autorizzato a postare il tutto in rete e rendere i file anonimi comporterebbe un lavoro grandissimo.
    Grazie mille per l'aiuto!

  6. #5
    L'avatar di rodyskorps
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Teramo
    EtÓ
    24
    Messaggi
    14
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: Salva con nome personalizzato

    Funziona perfettamente!
    Grazie mille!

  7. #6

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Salva con nome personalizzato

    Grazie a te del riscontro.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  8. #7
    L'avatar di rodyskorps
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Teramo
    EtÓ
    24
    Messaggi
    14
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: Salva con nome personalizzato

    Visto che abbiamo fatto 30 perchŔ non fare anche 31?!

    Per ottimizzare ancora di pi¨ il mio file avevo pensato di inserire il nome del rappresentante che gestisce il cliente tra i commenti presenti nelle proprietÓ del file (pescandolo da una cella del foglio Fattura.xlsm).
    Io ho intenzione di raggruppare direttamente dalla cartella tramite il normale ordinamento di windows filtrando per i commenti presenti sulle proprietÓ del file. Questo ordinamento mi faciliterebbe l'invio delle fatture tramite email.
    Avete qualche suggerimento?

    Grazie
    Piero.

  9. #8

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Salva con nome personalizzato

    Citazione Originariamente Scritto da rodyskorps Visualizza Messaggio
    Visto che abbiamo fatto 30 perchŔ non fare anche 31?!

    Per ottimizzare ancora di pi¨ il mio file avevo pensato di inserire il nome del rappresentante che gestisce il cliente tra i commenti presenti nelle proprietÓ del file (pescandolo da una cella del foglio Fattura.xlsm).
    Io ho intenzione di raggruppare direttamente dalla cartella tramite il normale ordinamento di windows filtrando per i commenti presenti sulle proprietÓ del file. Questo ordinamento mi faciliterebbe l'invio delle fatture tramite email.
    Avete qualche suggerimento?

    Grazie
    Piero.

    Piero perdonami ma non riesco a capire (sicuramente per mia ignoranza) la tua richiesta.

    Potresti spiegarla meglio in modo che altri (la prossima settimana non avr˛ il pc) possano cercare di darti una mano?
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  10. #9
    L'avatar di rodyskorps
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Teramo
    EtÓ
    24
    Messaggi
    14
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: Salva con nome personalizzato

    Ho inserito un allegato. Non so se Ŕ chiaro perchŔ mi risulta un po' difficile da spiegare :D
    File Allegati File Allegati

  11. #10

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Salva con nome personalizzato

    Mi spiace Piero ma non so proprio come risponderti.

    Nel mio Windows (7) la colonna Commenti non c'Ŕ e se pure vi fosse non saprei come far interagire Excel ed il VBA con le cartelle/sottocartelle di Windows o meglio non saprei come inserire il contenuto di una cella nella colonna Commenti (qualora l'avessi).

    Secondo me occorre trovare strade alternative a meno che qualcuno non tiri il coniglio fuori dal cilindro
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  12. #11
    L'avatar di rodyskorps
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Teramo
    EtÓ
    24
    Messaggi
    14
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: Salva con nome personalizzato

    In realtÓ non voglio sfruttare obbligatoriamente la colonna commenti. Per me va bene un qualsiasi campo tra le proprietÓ del file, l'importante Ŕ che posso fare l'ordinamento tramite windows.

    Si potrebbe pensare di modificare (tramite vba) l'autore del file o qualcosa del genere?

  13. #12

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Salva con nome personalizzato

    Citazione Originariamente Scritto da rodyskorps Visualizza Messaggio
    .

    Si potrebbe pensare di modificare (tramite vba) l'autore del file o qualcosa del genere?
    Non credo che questo si possa fare.

    Si potrebbero creare tante cartelle quanti sono i rappresentanti e salvare in ognuna le fatture di sua pertinenza.

    Fatto questo si pu˛ inviare (tramite VBA) una mail a ciascun rappresentante con allegate tutte le fatture di sua competenza.

    Ora vado in vacanza ma qui sono in tanti pi¨ in grado di me di aiutarti.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  14. #13
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Cordenons
    Messaggi
    815
    Versione Office
    2016 64bit
    Likes ricevuti
    147
    Likes dati
    53

    Re: Salva con nome personalizzato

    Non mi risulta che i file PDF abbiano come proprietÓ il dettaglio "Commenti", basta fare tasto destro su un qualsiasi PDF, scegliere ProprietÓ, poi scheda Dettagli e potrai "vedere" quello che Ŕ disponibile.
    Pertanto, se ti serve dividere per "Rappresentante", o metti il dettaglio nel nome del file PDF al momento della sua creazione, oppure salvi il PDF in un'apposita sottocartella come ti ha giÓ detto alfrimpa .

  15. #14
    L'avatar di rodyskorps
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Teramo
    EtÓ
    24
    Messaggi
    14
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: Salva con nome personalizzato

    Ho risolto creando le sottocartelle.
    Ecco il codice, se pu˛ servire
    Codice: 
    Sub CreaFattura_PF()
    
    
            i = ActiveSheet.Range("o4")
            Do While i <= ActiveSheet.Range("o5")
                ActiveSheet.Range("b21") = i
                Call Cartella
                Call SalvaPDF
                i = i + 1
            Loop
    
    
    End Sub
    
    
    
    
    Sub SalvaPDF()
    
    
    Dim mese As Variant
    Dim amministratore As Variant
    Dim numf As Variant
    Dim cliente As Variant
    
    
    mese = Range("H5").Value
    amministratore = Range("h4").Value
    numf = Range("b21").Value
    cliente = Range("l13").Value
    
    
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\users\Piero Laptop\Desktop\2016\Fatture\PRO-FORMA\" & mese & "\" & amministratore & "\PF " & numf & " " & cliente & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True _
            , IgnorePrintAreas:=False, OpenAfterPublish:=False
    End Sub
    
    
    
    
    Sub Cartella()
    
    
    Set file = CreateObject("Scripting.FileSystemObject")
    
    
    If Not file.folderexists("C:\users\Piero Laptop\Desktop\2016\Fatture\PRO-FORMA\" & Range("f26").Value & "\") Then
        file.createfolder ("C:\users\Piero Laptop\Desktop\2016\Fatture\PRO-FORMA\" & Range("f26").Value & "\")
    Else
    If Not file.folderexists("C:\users\Piero Laptop\Desktop\2016\Fatture\PRO-FORMA\" & Range("H5").Value & "\" & Range("h4").Value & "\") Then
    
    
        file.createfolder ("C:\users\Piero Laptop\Desktop\2016\Fatture\PRO-FORMA\" & Range("H5").Value & "\" & Range("h4").Value & "\")
        
    End If
    
    
    End If
    End Sub
    Con Sub Cartella() raggruppo mensilmente e per ogni mese divido per amministratori le fatture.
    Grazie per il supporto !

  16. #15
    L'avatar di svizzera
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    M÷hlin Svizzera
    EtÓ
    67
    Messaggi
    337
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    10

    Re: Salva con nome personalizzato

    Salve Alfrimpa ho il problema di dover archiviare una fattura in formato PDF estrapolando dalla fattura il nr. fattura la data e il nominativo da inserire come intestazione del file PDF salvato,ho provato inserire la tua formula ma mi e`sorto il problema di dove inserirla e come fare nella mi puoi dare informazioni come poter fare a presto. Paolo

  17. #16

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Salva con nome personalizzato

    Ciao Paolo

    Certamente ma Ŕ meglio se apri una nuova discussione nella sezione Excel VBA e macro allegando un file di esempio e spiegando il problema che hai avuto e non riesci a risolvere.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  18. I seguenti utenti hanno dato un "Like"


Discussioni Simili

  1. Macro che salva foglio in pdf prendendo il nome da una cella
    Di Fagor nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 15/02/17, 08:40
  2. [Risolto] Salva con nome e Hyperlink in altra cartella di lavoro
    Di Ludovico nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 13/12/16, 18:45
  3. Formato celle personalizzato
    Di frigor nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 23/08/16, 17:17
  4. crea cartella + salva nomefile.xlsm + salva nomefile.pdf
    Di Tequila nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 20/05/16, 21:46
  5. Formato cella personalizzato
    Di clingonboy nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 01/02/16, 01:56

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •