Excel Forum Per condividere esperienze su Microsoft Excel

Creazione di un pdf editabile sfruttando i dati provenienti da una UserForm [RISOLTO]

  • Messaggi
  • nTdQ231201
    00 10/12/2023 09:34
    Su desktop ho una cartella con file pdf.
    Vorrei mettere su un pulsante un codice per aprire la cartella per potere successivamente selezionare e aprire un file pdf.
  • OFFLINE
    dodo47
    Post: 3.601
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 10/12/2023 09:57
    Ciao
    un modo: 
    Sub OpenFile()
    Dim Filename As String
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .InitialFileName = "PercorsoTuaCartellaConPdf\" '<<<<<<
        If .Show = True Then
            Filename = .SelectedItems(1)
            Workbooks.Open (Filename)
        End If
    End With
End Sub


    Saluti




    Domenico
    Win 10 - Excel 2016
  • nTdQ231201
    00 10/12/2023 10:13
    Ciao,
    ho inserito il tuo codice nel mio file.
    Apre la cartella dove ci sono i file pdf.
    Se clicco apri su qualunque file pdf si apre un foglio excel con 19580 righe compilate.
    Dovrei cliccare e aprire il pdf.
  • ONLINE
    L2018
    Post: 967
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 10/12/2023 10:44
    Re:
    rex88 (nTdQ231201), 10/12/2023 10:13:
    Ciao,
    ho inserito il tuo codice nel mio file.
    Apre la cartella dove ci sono i file pdf.
    Se clicco apri su qualunque file pdf si apre un foglio excel con 19580 righe compilate.
    Dovrei cliccare e aprire il pdf.

    i quali 19580 magari sono il contenuto esadecimale del file PDF

    Excel 2007 non supporta l'apertura dei files PDF

    LEO
    https://t.me/LordBrum
  • nTdQ231201
    00 10/12/2023 10:47
    Ho spostato il file anche su un pc con excel 2010 ed è la stessa cosa.
  • OFFLINE
    dodo47
    Post: 3.602
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 10/12/2023 10:48
    ciao
    si, scusa, chissà dove avevo la testa. 
    Sub OpenFile()
    Dim Filename As String, objShell  As Object '<<<<<<<<<<<<<<<<<<
    Set objShell = CreateObject("Shell.Application")
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .InitialFileName = "PercorsoTuaCartellaConPdf\" '<<<<<<
        If .Show = True Then
            Filename = .SelectedItems(1)
            objShell.Open (Filename)
        End If
    End With
End Sub





    [Modificato da dodo47 10/12/2023 11:02]
    Domenico
    Win 10 - Excel 2016
  • nTdQ231201
    00 10/12/2023 11:01
    Ciao,
    mi chiede variabile non definita su Set objShell

    Ci siamo incroicati con le risposte.
    Provvedo e ti faccio sapere.
    Grazie
    [Modificato da rex88 10/12/2023 11:02]
  • OFFLINE
    dodo47
    Post: 3.603
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 10/12/2023 11:02
    RILEGGI IL POST




    Domenico
    Win 10 - Excel 2016
  • nTdQ231201
    00 10/12/2023 11:14
    Ciao Domenico,
    ho inserito il tuo codice nel mio file.
    Adesso funziona.
    Apre la cartella e scelgo il file pdf che mi interessa.
    Ho messo il codice su una combobox posta su una userfom.
    Apro la userfom e scelgo dalla combobox un cliente al quale ho in precedenza inserito un documento.
    Una volta scelto il cliente dalla combobox posso aprire la cartella dove sono salvati tutti i documenti e aprire quello del cliente selezionato?
  • OFFLINE
    dodo47
    Post: 3.605
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 10/12/2023 11:30
    dicevo che non finiva qui....

    i nomi nelle combo corrispondono a quelli dei file senza estensione?

    Cioè nella combo selezioni "pippo", nella cartella hai un file chiamato pippo.pdf ??

    Se non ho capito sottoponi il tuo file (che è sempre meglio)

    saluti
    [Modificato da dodo47 10/12/2023 11:31]
    Domenico
    Win 10 - Excel 2016
  • nTdQ231201
    00 10/12/2023 13:36
    Ciao Domenico,
    allego il file.
    Si apre la "FrmOperativa" dove ci sono due pulsanti "Clienti" e "Apri DiCo in Pdf".
    Per inserire una nuova dichiarazione di conformità:
    1) cliccare su "Clienti" e inserire un nuovo Cliente;
    2) cliccare su "Registra" per aprire la "FrmDico";
    3) compilare tutte le TB;
    4) cliccare sul pulsante "Pdf".
    A questo punto si compila in automatico la dichiarazione di conformità in formato pdf che viene salvata nella cartella DICO che sta sul Desktop con il nome generico "DiCo" chiedendo di salvarla.
    Problemi irrisolti:
    1) sulla "FrmDico" non s'incrementa il numero della dichiarazione dopo la prima, mentre la data viene inserita in automnatico;
    2) quando si clicca suil pulsante "Registra" posto sulla "FrmDico" la dichiarazione si dovrebbe salvare in questo modo: "Dichiarazione di conformità Cognome e nome del Committente e data della dichiarazione".

    ATTENZIONE!!!!!
    Non rimuovere dalla cartella DICO il File "Documento Adobe Acrobat Forms (.xfdf)" che è quello che consente la compilazione della Dichiarazione di conformità in pdf.

    Per altre spiegazioni sono a disposizione.
  • OFFLINE
    dodo47
    Post: 3.606
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 10/12/2023 16:16
    "....quando si clicca suil pulsante "Registra" posto sulla "FrmDico" ....

    dov'è il pulsante registra nella form dico ??






    Domenico
    Win 10 - Excel 2016
  • nTdQ231201
    00 10/12/2023 16:19
    Chiedo scusa il pulsante è "Pdf".
    Ancora scusa.
  • ONLINE
    L2018
    Post: 968
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 10/12/2023 16:22
    rex88

    qualche giorno fa ti ho pregato
    - di non aprire una DISCUSSIONE per ogni passaggio del tuo lavoro
    - di non pretendere di cambiare titolo a ogni discussione

    il la mia "preghiera" non è per un banale motivo estetico, bensì per una questione di ORDINE e di LEGGIBILITA'

    Leggibilità vuol dire che io stesso, che volevo ritrovare il testo della mia richiesta NON sono riuscito a trovarlo, hai in piedi la bellezza di 5 discussioni

    Ora, come se niente fosse, ti ripeti aggiornando, cioè usando una discussione superata

    Non devo certo insegnarti che qualsiasi dato tu voglia riesumare lo devi RICOPIARE nella discussione attuale e porlo all'attenzione di chi vuoi

    Ma tu non te ne sei dato per inteso.

    Pertanto se continui ad usare discussioni superate, che cioè non siano QUESTA, dovrò CHIUDERE le altre

    Saluti

    LEO
    https://t.me/LordBrum
  • nTdQ231201
    00 10/12/2023 16:33
    Come ho già detto precedentemente il mio intento era quello di lavorare su un'unica discussione che è andata forse per colpa mia non sapendo come fare nella sezione "I vostri lavori".
    Mi è stato detto di continuare in questa sezione e così ho fatto e ho aperto tante discussioni quanti step del file: ho sbagliato?.
    Se sì, chiedo scusa.
    Sono arrivato quasi in fondo.
    Se proseguendo in questo dovrà riportarmi ad altre discussioni ripeterò in questo quanto richiesto nelle altre.
    Chiedo conferma sul modo di proseguire e di non chiudere le altre discussioni che mi metterebbe in grosse difficoltà.
    Grazieù
    rex88



  • ONLINE
    L2018
    Post: 969
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 10/12/2023 16:44
    Re:
    rex88 (nTdQ231201), 10/12/2023 16:33:
    Come ho già detto precedentemente il mio intento era quello di lavorare su un'unica discussione che è andata forse per colpa mia non sapendo come fare nella sezione "I vostri lavori".
    Mi è stato detto di continuare in questa sezione e così ho fatto e ho aperto tante discussioni quanti step del file: ho sbagliato?.
    Se sì, chiedo scusa.
    Sono arrivato quasi in fondo.
    Se proseguendo in questo dovrà riportarmi ad altre discussioni ripeterò in questo quanto richiesto nelle altre.
    Chiedo conferma sul modo di proseguire e di non chiudere le altre discussioni che mi metterebbe in grosse difficoltà.
    Grazieù
    rex88


    Escludendo "I vostri lavori" ti trovi in 5 o 6 discussioni aperte, a più di 100 POST per lo stesso Argomento, sì, è lo stesso
    Non mi sembra normale
    Nel frattempo, se non ho fatto errori, ho reso, per il momento, SOLO LEGGIBILI, e non aggiornabili, le discussioni precedenti


    LEO
    https://t.me/LordBrum
  • nTdQ231201
    00 10/12/2023 16:49
    Per solo leggibili s'intende che posso entrare e fare copia e incola di quello che ho scritto per riportarlo in questa discussione?
    Per il momento s'intende fino alla definzione del mio lavoro?
    [Modificato da rex88 10/12/2023 16:50]
  • ONLINE
    L2018
    Post: 970
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 10/12/2023 17:06
    Re:
    rex88 (nTdQ231201), 10/12/2023 16:49:
    Per solo leggibili s'intende che posso entrare e fare copia e incola di quello che ho scritto per riportarlo in questa discussione?
    Per il momento s'intende fino alla definzione del mio lavoro?


    Risposta alla prima domanda: SI'
    Risposta alla seconda domanda: NO

    significa semplicemente che puoi scrivere SOLO QUI, dalle altre puoi solo copiare, "per il momento" significa che se fai altri errori simili dovrò rendere le precedenti discussioni INACCESSIBILI.
    Se e quando avrai finito lo capiremo tutti, insieme a te, in teoria puoi andare avanti all'infinito, ma solo qui, e alla fine considerarla risolta, e magari aprirne altre, si spera con argomento diverso, altrimenti siamo punto e a capo.
    In definitiva, è necessario che tu recepisca il fatto che non è ammissibile portare avanti più di 1 discussione per lo stesso argomento

    LEO
    https://t.me/LordBrum
  • OFFLINE
    dodo47
    Post: 3.607
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 10/12/2023 17:53
    ciao
    mi spiace ma non sono in grado di aiutarti

    sorry...

    saluti




    Domenico
    Win 10 - Excel 2016
  • nTdQ231201
    00 10/12/2023 17:54
    Grazie comunque.
    rex88
  • nTdQ231201
    00 10/12/2023 18:21
    Ciedo agli Esperti se mi possono dare una mano a fare questo.

    Sulla "FrmDico" c'è la TB_Progressivo che dovrebbe incrementarsi ogni qualvota si inserisce una nuova dichiarazione di conformità.
    Questo è il codice vba che si trova sulla FrmDico ma purtroppo non funziona e non capisco come correggerlo.

    VBA
    Private Sub UserForm_Initialize()
Dim n As Integer
Dim nProgressivo As Integer
Dim vNorme As Variant
Set sh2 = Worksheets("Clienti")
Set sh4 = Worksheets("Utente")

vNorme = Range("nd_norme").Value

Call Me.INSERISCI_COMMITTENTE(sCommittente)
Call Me.INSERISCI_UTENTE(sUtente)

sUtente = sh4.Range("B2").Value

'Me.TB_Utente1 = Me.INSERISCI_NOME_UTENTE(sUtente)

'progressivo
With Sheets("Numerazione").Range("C2")
    nProgressivo = IIf(.Value = vbNullString, 1, .Value + 1)
End With

Me.TB_Progressivo.Value = nProgressivo 'progressivo
Me.TB_Data.Value = Date 'data odierna

Me.Combo_Dichiarazioni.List = vNorme

'With Application
    '.DisplayAlerts = False
    '.WindowState = xlMaximized
'End With

With Application
    Me.Top = .Top
    Me.Left = .Left
    Me.Height = .Height - 13
    Me.Width = .Width - 12
End With

End Sub


    Lo stesso numero progressivo dovrebbe essere inserito nel foglio "Numerazione" nelle celle della A, mentre nella colonna B = Data della dichiarazion e e nella colonna C = Cognome e Nome del Committente.

    rex88
    [Modificato da L2018 10/12/2023 18:49]
  • ONLINE
    L2018
    Post: 971
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 10/12/2023 18:40
    adesso hai notato che ogni volta che apri questa discussione si genera un errore con una finestrella nera in alto ?

    LEO
    https://t.me/LordBrum
  • nTdQ231201
    00 10/12/2023 18:45
    A questo punto non ho capito se posso andara avanti o mi devo fermare.
    Ognoi cosa che faccio non l'azzecco.
    [Modificato da rex88 10/12/2023 18:46]
  • ONLINE
    L2018
    Post: 972
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 10/12/2023 18:48
    Re:
    rex88 (nTdQ231201), 10/12/2023 18:45:
    A questo punto non ho capito se posso andara avanti o mi devo fermare.
    Ognoi cosa che faccio non l'azzecco.

    ho detto solo che in questo tuo ultimo post col codice si genera un errore
    stai fermo qualche minuto, lo correggo io, se no non ci spicciamo mai

    LEO
    https://t.me/LordBrum
  • nTdQ231201
    00 10/12/2023 18:49
    Grazie.
    Mene sono accorto e non sapevo come fare.
  • ONLINE
    L2018
    Post: 973
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 10/12/2023 18:50
    Re:
    rex88 (nTdQ231201), 10/12/2023 18:49:
    Grazie.
    Mene sono accorto e non sapevo come fare.

    ho corretto

    LEO
    https://t.me/LordBrum
  • nTdQ231201
    00 10/12/2023 19:08
    Grazie.
    Spero in qualcuno che mi dia una mano.
  • ONLINE
    L2018
    Post: 974
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 10/12/2023 19:16
    Re:
    rex88 (nTdQ231201), 10/12/2023 19:08:
    Grazie.
    Spero in qualcuno che mi dia una mano.

    speriamo ma permettimi di dire una cosa
    non sei esperto in Excel, sei iscritto qui da una settimana
    vuoi fare qualcosa per tuo figlio
    usando materiale non tuo che non conosci e forse non sai modificare
    -----------
    Excel è bello ma tu hai un minimo di fretta
    perchè non cambiare approccio ?
    per esempio su Excel potresti scrivere una semplice lista di utenti con tutte le relative caselle della dichiarazione, e stop
    A parte tieni un PDF editabile adatto alla DICO e
    lo stesso tempo che dovresti usare per riempire i form, le quelle e le quell'altre potresti usarlo per compilare rapidamente a mano ogni PDF, salvandolo con nomi e numeri progressivi.
    Secondo me ci metteresti meno tempo
    oppure dimmi che ho detto una scemenza, ma dimostralo

    LEO
    https://t.me/LordBrum
  • nTdQ231201
    00 10/12/2023 19:29
    Hai dato una soluzione alternativa alla mia.
    Ci tengo però a precisare che il lavoro non è di terze persone cioè non l'ho trovato in rete.
    E' stato fatto qualche anno su mia richiesta e con il mio modestissimo contributo e non terminato per forza maggiore.
    E quindi non è da cestinare o accantonare proprio adesso che sono all'ultimo step.
    Spero comporenderai.
    Grazie
  • ONLINE
    L2018
    Post: 975
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 10/12/2023 19:37
    Re:
    rex88 (nTdQ231201), 10/12/2023 19:29:
    Hai dato una soluzione alternativa alla mia.
    Ci tengo però a precisare che il lavoro non è di terze persone cioè non l'ho trovato in rete.
    E' stato fatto qualche anno su mia richiesta e con il mio modestissimo contributo e non terminato per forza maggiore.
    E quindi non è da cestinare o accantonare proprio adesso che sono all'ultimo step.
    Spero comporenderai.
    Grazie

    certo, alternativa e piu risolutiva

    il lavoro l'ho considerato di terzi perchè tu all'inizio hai segnalato un sito con relativa procedura

    se te lo hanno fatto su richiesta, il fatto che per forza maggiore non sia completo ti impedisce di proseguire

    Nessuno dice che devi cestinare, e a dire il vero non avrei l'impressione, dico impressione, che tu sia davvero all'ultimo stadio

    Anzi, mentre fai la "mia procedura", con calma e in parallelo puoi portare avanti la Ferrari, ma intanto con la 500 vai di corsa alla conclusione

    Comprendo, come se non comprendo

    LEO
    https://t.me/LordBrum
  • 15MediaObject1,002123
1
Soluzioni Excel Domande e Risposte
Passa alla versione desktop

  • Anteprima