| | Post: 3.635 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
  14/12/2023 13:51 | |
se stai cercando un modo per farti bannare ci riesci benissimo......
Tuo post "Viva il regolamento":
ciao
sbagli, non è come dici, nessuno prende di mira nessuno.
Ritengo corretto l'intervento effettuato : non si possono aprire più discussioni in contemporanea a prescindere che sia o meno scritto nel regolamento; è una questione di logica e buon senso.
- tuo post:_ 14/12/2023 11:26
è iniziato con un titolo (apertura file pdf) ma poi si è sviluppato per oltre 100 post con un argomento completamente diverso (alimentare pdf editabile da userForm)
- tuo post 14/12/2023 11:50
(Inserire i dati da form a file pdf editabile)
La domanda è stata risolta con il post precedente
le altre domande risultano tutte superate in quanto il tuo allegato al post 14/12/2023 11:26, non presenta problemi.
Ti suggerisco vivamente di "accantonare" le tue idee da "perseguitato" e le polemiche.
In altri forum non avresti fatto in tempo a scrivere il secondo post.
Per quanto riguarda "I vostri lavori" lì ci vanno a finire (a discrezione delle utenze) lavori completi, ma i vari step vengono sviluppati o nel forum o in autonomia.
Ora se vuoi continuare sull'apertura dei file come da scelta su comboBox, apri una nuova discussione...una volta dichiarata RISOLTA ne aprirai un'altra per eventuali problemi irrisolti:
1 POST=1 DOMANDA Domenico
Win 10 - Excel 2016 |
|
|
| 14/12/2023 13:56 | |
Detto in questi termini è accettabile.
Ma desidero frequentare con serenità e senza fiato sul collo.
[Modificato da rex88 14/12/2023 13:59] |
| | Post: 3.636 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 14/12/2023 14:01 | |
bene....è sempre un piacere trattare con persone ragionevoli.
Ora, con calma fai, se vuoi, le tue richieste, ricordandoti sempre che 1 post=1 domanda... risolta una se ne apre un'altra
cari saluti [Modificato da dodo47 14/12/2023 14:03] Domenico
Win 10 - Excel 2016 |
|
| 14/12/2023 14:11 | |
Torno a ripetere.
In data 03/12/2013 ore 13:28 Alfredo scrive
Perché non poni le domande a sezione Domande e risposte?
In data 03/12/2013 ore 14:14 io rispondo ad Alfredo:
Ciao,
seguo il tuo consiglio.
Faccio singoli post.
Intanto cortesemente si può spostare il post di ieri delle ore 12:21 dandogli il titolo, lasciando il file allegato:
Messaggio "Impossibile trovare l'oggetto specificato".
Grazie
rex88
Per post intendevo discussioni.
|
|
| 14/12/2023 14:23 | |
Tutte le discussioni sono state chiuse con [RISOLTO]
Ho aperto questa come prova.
E siccome mi è stato detto di aprirne una alla volta, riporto qua l'ultimo step:
La procedura è questa.
Ho una userform con una combobox.
La combobox ha l'elenco dei clienti ai quali è stata rilasciata una dichiarazione di conformità.
Utilizzando il codice suggeritomi da dodo47
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
come fare per, una volta scelto il cliente, aprire la sua dichiarazione di conformità in formato pdf.
Se potete cambiare il titolo della discussione in "Aprire file. pdf da cartella su desktop"
|
| | Post: 3.637 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 14/12/2023 16:37 | |
ciao
immagino tu ti riferisca alla tua UF ModuloCercaPDF
Prima di cercare vie alternative, ti chiedo di provare se la seguente istruzione ti funziona, se funziona, si provvederà a adattarla.
ActiveWorkbook.FollowHyperlink "C:\TuoPercorso\TuoFile.pdf"
saluti
Domenico
Win 10 - Excel 2016 |
|
| 15/12/2023 09:01 | |
Ciao Domenico,
faccio tesoro di quanto mi hai ricordato
Ti ricordo che il forum non è una “software house”, ma vuole essere un punto di incontro per incoraggiare lo sviluppo in autonomia, intervenendo qualora l’utenza riscontri difficoltà.
e non voglio passare per uno che ha scambiato il forum per una ditta che crea programmi.
Poiché tutto quello che ho fatto fino ad oggi è finalizzato, lo ripeto ancora una volta, a terminare una piccola applicazione che utilizzerà mio figlio e per non dare adito ad ulteriori fraintendimenti, ritengo di non approfittare ulteriormente della tua disponibilità.
Desidero ringraziarti di cuore per quello che mi hai messo a disposizione e per la pazienza con la quale mi hai seguito fino ad oggi.
Ho apprezzato la tia professionalità.
Saluti
rex88
[Modificato da rex88 15/12/2023 09:08] |
| | Post: 3.638 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 15/12/2023 09:45 | |
ciao
ti ringrazio...
...non voglio passare per uno che ha scambiato il forum per una ditta che crea programmi.....
Non è assolutamente così, il 90% del lavoro lo hai sottoposto tu, personalmente ho fatto piccoli interventi.
...ritengo di non approfittare ulteriormente della tua disponibilità...
vuol dire che non vuoi più suggerimenti??
ma hai risolto o no? L'istruzione suggerita funziona?
(Colgo l'occasione per una mia curiosità che nulla ha a che fare con questo post:
per l'utilizzo del tuo programma tu hai acrobat Reader oppure il professional?)
Grazie
[Modificato da dodo47 15/12/2023 09:59] Domenico
Win 10 - Excel 2016 |
|
| 15/12/2023 10:35 | |
Mi ero iscritto in punta di piedi e con buoni auspici ma in tutta sincerità sono rimasto scosso da tutto quello che è successo.
Domanda: perché non trovo sul forum l'ultimo post inviato ai Moderatori?
Cosa ho detto di così grave da non essere postato?
Non postandolo, agli occhi di quanti si approcciano al forum passo per quello che non sono: ho una mia dignità e non la metto nelle mani di nessuno.
Ripeto i tuoi consigli e suggerimenti sono stati preziosi.
rex88 [Modificato da rex88 15/12/2023 10:44] |
| | Post: 3.639 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 15/12/2023 10:54 | |
ciao
(io non sono un moderatore ma un utente come te che ha cercato di porre fine ad incomprensioni))
probabilmente hanno ritenuto di evitare ulteriori polemiche e, francamente, non capisco perchè tu ti stia accanendo su tale argomento visto che con buona pace di tutti, l'accaduto è stato chiarito senza vinti nè vincitori.
Chiamiamolo un misunderstanding.....
Comunque il forum resta a disposizione sempre che tu lo voglia...
saluti
[Modificato da dodo47 15/12/2023 10:56] Domenico
Win 10 - Excel 2016 |
|
| 15/12/2023 12:30 | |
Se è stato risolta chiede di essere lasciato in pace, sereno di proseguire.
Accetterò tutti i richiami qualora i mei comportamenti saranno contro le disposizione regolamentari.
Per quanto riguarda la riga di codice che mi ha suggerito dodo47 l'ho inserita nella sub ma non funziona.
PS
ho fretta di concludere e il tempo lo utilizzerò solo e unicamente al file che sto costruendo e a niente altro.
rex88 [Modificato da rex88 15/12/2023 13:02] |
| | Post: 3.640 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 15/12/2023 13:17 | |
Per quanto riguarda la riga di codice che mi ha suggerito dodo47 l'ho inserita nella sub ma non funziona.
non era da inserire nel tuo codice, ma da provare a se stante con un file qualsiasi in una dir qualsiasi.
quindi:
sub test
ActiveWorkbook.FollowHyperlink "C:\TuoPercorso\TuoFile.pdf" ' variare con un tuo riferimento
end sub
Te l'ho chiesto solo per pura cortesia nei tuoi confronti, perchè ho notizie che in alcuni casi il followhyperlink apre il file ma lo richiude immediatamente e, pertanto, ti avrei suggerito un'altra via, tutto qui.
Non sono certo io che voglio perdere o far perdere tempo agli altri e che diamine!!
Sono un po' contrariato da questa situazione.....
saluti
[Modificato da dodo47 15/12/2023 13:20] Domenico
Win 10 - Excel 2016 |
|
| 15/12/2023 13:30 | |
Mi dispiace che tu ti sia contrariato, ma non era riferita a te.
Preciso:
la riga di codice non funziona nella sub perché sono io che non ho saputo dove e come inserirla e non per il suggerimento che sicuramente una volta capito dove e come funzionerà come hanno funzionato sempre quelli che mi hai dati fino ad ora.
Anche prima della tua risposta stavo facendo alcune prove consultando un manuale di excel e ci tenevo a risponderti per sgombrare il campo da fraintendimenti.
Ti rispondo dicendoti che ho fatto la prova.
Questa è la sub creata sulla combobox1
Sub OpenFile ()
Dim Cartella As String
Dim nomefile As String
Cartella = "C:\(qui inserire dove sta la cartella e il nome)"
ActiveWorkbook.FollowHyperlink Address :=Cartella, NewWindow:=True
End Sub
[Modificato da rex88 15/12/2023 13:39] |
| | Post: 3.641 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 15/12/2023 13:38 | |
allora, non la devi inserire nel tuo codice
crea una macro a parte:
sub test
ActiveWorkbook.FollowHyperlink "C:\TuoPercorso\TuoFile.pdf" ' variare con un tuo riferimento
end sub mettendo al posto di C:\TuoPercorso\TuoFile.pdf, il percorso e il nome di un pdf qualsiasi.
la esegui e dimmi se ti si apre il pdf
sono stato abbastanza chiaro?
Poi se funziona la adattiamo alla tua sub, altrimenti troviamo un altro modo
Domenico
Win 10 - Excel 2016 |
|
| 15/12/2023 13:41 | |
Per favore puoi leggere l'ultimo mio post perché ci siamo incrociati.
Il codice apre la cartella contenente tutti i file.pdf.
Il passaggio successivo è questo:
cliccare sul nome del cliente (ad esempio Rossi Mario) e aprire la dichiarazione di conformità salvata precedentemente nella cartella che sta sul desktop con questo nome: DiCo_Rossi Mario_15_12_2023.
[Modificato da rex88 15/12/2023 14:03] |
| | Post: 3.642 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 15/12/2023 14:00 | |
Sub OpenFile ()
Dim Cartella As String
Dim nomefile As String
Cartella = "C:\(qui inserire dove sta la cartella e il nome)" '<<<<<<<<<<<< ActiveWorkbook.FollowHyperlink Cartella
End Sub
neanche così ti apre il file? [Modificato da dodo47 15/12/2023 14:00] Domenico
Win 10 - Excel 2016 |
|
| 15/12/2023 14:08 | |
L'ho aperta con questa sub
Sub OpenFile ()
Dim Cartella As String
Dim nomefile As String
Cartella = "C:\(qui inserire dove sta la cartella e il nome)"
ActiveWorkbook.FollowHyperlink Address :=Cartella, NewWindow:=True
End Sub
Il passaggio successivo è questo:
cliccare sul nome del cliente scelto dalla combobox (ad esempio Rossi Mario) che sta sulla "FrmApriConformitàPdf" e aprire la dichiarazione di conformità salvata precedentemente nella cartella che sta sul desktop "DICO" con questo nome: DiCo_Rossi Mario_15_12_2023. [Modificato da rex88 15/12/2023 14:13] |
| | Post: 3.643 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 15/12/2023 14:29 | |
ok
ora mangio e come al solito mi faccio una pennichella.....
poi provo a fornirti una risposta
saluti
Domenico
Win 10 - Excel 2016 |
|
| 15/12/2023 14:37 | |
Buon pranzo e buona pennichella.
Nel frattempo provo e riprovo.
Un saluto |
| | Post: 3.644 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 15/12/2023 16:31 | |
ciao
vedi se funziona....Ma forse no, comunque prova
Personalmente non posso testarlo perchè sono uno di quei "fortunati" cui il followhyperlink non funziona come detto in precedenza
saluti
CODICE MODIFICATO:
Sub OpenFile()
Dim Cartella As String
Dim nomefile As String
Dim ToOpen As Variant
Cartella = "C:\TuoPercorso\" ' <<<<<<<<<< "" Then
ActiveWorkbook.FollowHyperlink Address:=ToOpen, NewWindow:=True
Else
MsgBox "File inesistente"
End If
End Sub (mi puoi per favore dire se per il tuo progetto usi il Reader oppure il Pro di adobe? Grazie)
[Modificato da dodo47 15/12/2023 16:56] Domenico
Win 10 - Excel 2016 |
|
| 15/12/2023 16:56 | |
(mi puoi per favore dire se per il tuo progetto usi il Reader oppure il Pro di adobe? Grazie)
Tutti e due.
Ho fatto le prove e mi dà il messaggio "File inesistente".
Allora ho rinominato il file nella cartella da "DiCo_BIANCHI LUIGI 10_12_2023" a "BIANCHI LUIGI"
il messaggio persiste. |
| | Post: 3.645 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 15/12/2023 16:57 | |
riprova il codice che l'ho rettificato
ok,,,scanso equivoci:
Sub OpenFile()
Dim Cartella As String
Dim nomefile As String
Dim ToOpen As Variant
Cartella = "C:\TuoPercorso\"
nomefile = FrmApriConformitàPdf.ComboBox1.Value
ToOpen = Dir(Cartella & "*" & nomefile & "*.pdf")
If ToOpen <> "" Then
ActiveWorkbook.FollowHyperlink Address:=Cartella & ToOpen, NewWindow:=True
Else
MsgBox "File inesistente"
End If
End Sub[Modificato da dodo47 15/12/2023 17:01] Domenico
Win 10 - Excel 2016 |
| | Post: 7.493 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
| 15/12/2023 17:27 | |
Ciao Domenico, prova Questa, senza FollowHyprlink, premesso il codice non è mio, ma forse vuole "Acrobat"
Private Sub ComboBox1_Change()
Dim filePath As String
filePath = "C:\path\to\your\pdf\file.pdf"
If ComboBox1.Value = "PDF" Then
Dim acroApp As Acrobat.CAcroApp
Dim avDoc As Acrobat.CAcroAVDoc
Dim avPage As Acrobat.CAcroAVPageView
Set acroApp = CreateObject(""AcroExch.App"")
Set avDoc = CreateObject(""AcroExch.AVDoc"")
If avDoc.Open(filePath, """") Then
Set avPage = avDoc.GetAVPageView()
avPage.Zoom = 100
avDoc.BringToFront
End If
End If
End Sub
Ciao By Sal (8-d se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 3.646 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 15/12/2023 17:31 | |
ciao Salvatore
sicuramente funziona e sicuramente vuole il Pro.... ma che scopo scomodarlo?
Il FollowHyperlink funziona benissimo. Per le mie esigenze, visto che ho problemi, utilizzo WScript.shell che è molto più snello.
A Rex il FollowHyperlink funziona bene.
cari saluti
[Modificato da dodo47 15/12/2023 17:32] Domenico
Win 10 - Excel 2016 |
|
| 15/12/2023 17:32 | |
Ho fatto le prove con il codice di Domenico e mi dà il messaggio "File inesistente".
Allora ho rinominato il file nella cartella da "DiCo_BIANCHI LUIGI 10_12_2023" a "BIANCHI LUIGI"
il messaggio persiste.
|
| | Post: 7.494 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
| 15/12/2023 17:34 | |
Ciao Hai il file PDF, me lo mandi cosi vedo se si apre.
Ciao By Sal (8-D se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
|
| 15/12/2023 17:40 | |
|
|
| 15/12/2023 17:49 | |
Nella cartella c'è soltanto un file.pdf perchè la cartella con più file non veniva caricata.
Faccio una domanda che forse non troverà soluzione.
Esiste la possibilità con vba di comprimere il file.pdf al momento del salvataggio perchè adesso è di 2.419 kb?
Per quest'ultima domanda devo aprire una nuova discussione oppure proseguo con questa una volta risotto quello in corso?
[Modificato da rex88 15/12/2023 18:03] |
| | Post: 3.647 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 15/12/2023 18:01 | |
ciao
va bene che siamo stressati, ma....perchè hai scombinato quanto detto al mio post #22??
nomefile = "FrmApriConformitàPdf.Combobox1.Value"
lo devi scrivere senza gli apici, ovvero:
nomefile = FrmApriConformitàPdf.Combobox1.Value
Inoltre devi aggiungere lo "\" finale a cartella
inoltre mana il "ToOpen" nel followehyperlink
Sub OpenFile()
Dim Cartella As String
Dim nomefile As String
Dim ToOpen As Variant
Cartella = "C:\Users\User\Desktop\DICO\"
nomefile = FrmApriConformitàPdf.ComboBox1.Value
ToOpen = Dir(Cartella & "*" & nomefile & "*.pdf")
If ToOpen <> "" Then
ActiveWorkbook.FollowHyperlink Address:=Cartella & ToOpen, NewWindow:=True
Else
MsgBox "File inìesistente"
End If
End Sub saluti
(hai poco da comprimere i pdf....non c'è nulla da fare)
[Modificato da dodo47 15/12/2023 18:18] Domenico
Win 10 - Excel 2016 |
|
| 15/12/2023 18:16 | |
Ciao Domenico,
erano refusi e li ho tolti.
So che non è un buon motivo ma la stanchezza incomincia a fare brutti scherzi.
Ho fatto la tua ultima correzione ma il messaggio persiste.
Un mio errore è stato chiamare la cartella che vi ho inviato "CreaPdf" anzi "DICO".
Comunque fatte le correzioni il messaggio persite.
Mi dispiace forse continuo a commettere errori ma non so dove.
La domanda sulla compressione deil.pdf con vba l'ho fatta ma già in partenza avevo qualche dubbio su possibile soluzione.
Grazie per avermelo confermato: i file resteranno come fatti. [Modificato da rex88 15/12/2023 18:35] |
|
|
|
|