You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] Creare nuova cartella con nome la data odierna
[RISOLTO] Creare nuova cartella con nome la data odierna2018-10-23T00:12:20+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Creare nuova cartella con nome la data odierna

Taggato: 

Visualizzazione 2 filoni di risposte
  • Autore
    Post
    • Avatarteto21162
      Partecipante
        Post totali: 88

        Salve Ragazzi,

        nel codice che uso per creare la fattura/ricevuta in formato pdf uso questa stringa per dirigere il file pdf creato nella cartella corretta “pippo”

        Se la cartella non c’è il codice la crea

        sPDFPath = “C:\Users\GESTIONALE\Desktop\ARCHIVIO\ARCHIVIO RICEVUTE PDF\pippo\”

        Tutto sommato funziona bene, ma per migliorare ancora vorrei che al posto di \pippo\ ci fosse una stringa di codice che nominasse la cartella con la data odierna.

        Es. se oggi è il 18/10/2018 alla prima occasione di utilizzo il codice verifica la presenza di una cartella con questo nome nel percorso ovviamente non la trova quindi la crea e inserisce il file pdf all’interno.

        Dalla seconda volta in poi trova la cartella e inserisce ugualmente il nuovo file nella cartella nominata con la data di oggi 18/10/2018

        Domani sarà il 19/10/2018 quindi al primo utilizzo creerà la cartella nominata 19/10/2018 e inserirà in questa il nuovo file pdf e così via.

        In questo modo ogni giorno avrei tutti i file del giorno all’interno della cartella dello stesso giorno che a sua volta è naturalmente dentro alla cartella  ARCHIVIO RICEVUTE PDF

        Spero di essere stato abbastanza chiaro

        Grazie a tutti

        Teto

         

        • Questo topic è stato modificato 1 anno, 8 mesi fa da sidsid.
      • sidsid
        Moderatore
          Post totali: 749

          Ciao
          Prova così:

          
          sPDFPath = "C:\Users\GESTIONALE\Desktop\ARCHIVIO\ARCHIVIO RICEVUTE PDF\" & Format(Date, "dd-mm-yyyy") & "\"
          
          If Dir(sPDFPath, vbDirectory) = vbNullString Then
              MkDir (sPDFPath)
          End If

          Ho messo i trattini per separare giorno-mese-anno perchè gli slash sono caratteri proibiti per nominare file e cartelle; logiamente puoi sostituirli come vuoi.
          fa sapere, ciao

        • Avatarteto21162
          Partecipante
            Post totali: 88

            Grazie Sid tutto risolto funziona perfettamente

             

            Teto :good:

        Visualizzazione 2 filoni di risposte
        • Il topic ‘[RISOLTO] Creare nuova cartella con nome la data odierna’ è chiuso a nuove risposte.