|
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. |
|
| | Post: 3.601 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
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 |
|
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. |
| | Post: 967 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
10/12/2023 10:44 | |
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 |
|
10/12/2023 10:47 | |
Ho spostato il file anche su un pc con excel 2010 ed è la stessa cosa. |
| | Post: 3.602 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
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 |
|
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] |
| | Post: 3.603 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
10/12/2023 11:02 | |
RILEGGI IL POST
Domenico
Win 10 - Excel 2016 |
|
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?
|
| | Post: 3.605 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
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 |
|
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.
|
| | Post: 3.606 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
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 |
|
10/12/2023 16:19 | |
Chiedo scusa il pulsante è "Pdf".
Ancora scusa. |
| | Post: 968 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
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 |
|
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
|
| | Post: 969 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
10/12/2023 16:44 | |
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 |
|
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] |
| | Post: 970 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
10/12/2023 17:06 | |
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 |
| | Post: 3.607 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
10/12/2023 17:53 | |
ciao
mi spiace ma non sono in grado di aiutarti
sorry...
saluti
Domenico
Win 10 - Excel 2016 |
|
10/12/2023 17:54 | |
Grazie comunque.
rex88 |
|
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] |
| | Post: 971 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
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 |
|
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] |
| | Post: 972 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
10/12/2023 18:48 | |
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 |
|
10/12/2023 18:49 | |
Grazie.
Mene sono accorto e non sapevo come fare. |
| | Post: 973 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
10/12/2023 18:50 | |
rex88 (nTdQ231201), 10/12/2023 18:49:
Grazie.
Mene sono accorto e non sapevo come fare.
ho corretto
LEO
https://t.me/LordBrum |
|
10/12/2023 19:08 | |
Grazie.
Spero in qualcuno che mi dia una mano.
|
| | Post: 974 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
10/12/2023 19:16 | |
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 |
|
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
|
| | Post: 975 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
10/12/2023 19:37 | |
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 |
|
|