[Risolto]Apertura automatica files

[john apples]

Buongiorno a tutti,
ho creato dei files calc nominandoli RICERCA, ROSSI, BIANCHI, VERDI etc.
Vorrei fare questo:
se apro il file RICERCA e digito, supponiamo in A1, il nome ROSSI, vorrei che si apra in automatico il file chiamato ROSSI.
Stessa cosa se digito il nome BIANCHI vorrei che si apra in automatico il file chiamato BIANCHI.
Etc.
E' possibile fare questo?
Grato a chi mi volesse aiutare auguro a tutti una buona giornata.

[charlie]

Ciao e benvenuto sul forum.
Se intanto ti vuoi presentare, farai cosa gradita. Puoi farlo in questa sezione -> viewforum.php?f=16

L’utente che apre un quesito si impegna:

• a seguirlo dando riscontro quanto prima alle risposte ricevute nel giro di qualche giorno;
  - inserire il [Risolto] e la ✔ verde come previsto;
• rispettare le altre regole implicite del forum ( Istruzioni per nuovi arrivati ).

In caso di inosservanza saremo costretti ad azioni di “richiamo”, sospensione o chiusura del profilo utente.

Buon proseguimento.

[patel]

Io seguirei una diversa strategia, una finestra di dialogo che ti permetta di selezionare il file da aprire (ovviamente con una macro)

Codice: Seleziona tutto

Sub openfilefromdialog() 
Dim vFileDialog
Dim vFileAccess
Dim iAccept as Integer 'Response to the FilePicker
Dim sInitPath as String 'Hold the initial path
vFileDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
vFileAccess = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
With vFileDialog
  .setMultiSelectionMode(false)
  .appendFilter("All ods files", "*.ods")
'  .appendFilterGroup("My Files", MyFilterListe())
end with
sInitPath = ConvertToUrl(CurDir)
If vFileAccess.Exists(sInitPath) Then
   vFileDialog.SetDisplayDirectory(sInitPath)
End If
iAccept = vFileDialog.Execute()
If iAccept = 1 Then
   ChooseAFileName = vFileDialog.Files(0) 'Set file name if it was not canceled
   Documento = StarDesktop.loadComponentFromURL (ChooseAFileName, "_blank",0, Dummy() )
End If
vFileDialog.Dispose()
End sub

[john apples]

Buongiorno Patel e grazie mille per la risposta.
Purtroppo non ho mai eseguito una macro e non saprei neanche da dove iniziare, perciò avrei bisogno di imparare passo passo.
Non so se tu hai il tempo e la voglia per farlo ma nel caso ti sarei davvero grato.
In ogni caso ti ringrazio.

[patel]

http://www.plio.it/sites/default/files/ ... _Macro.pdf
http://professoressa.altervista.org/Dis ... re_OOo.pdf
http://wiki.services.openoffice.org/wik ... ASIC_Guide

[john apples]

Grazie Patel. Vedrò di capirci qualcosa.
Ti auguro una buona giornata.

[john apples]

Buongiorno a tutti.
ho scaricato i file inviatimi da Patel che ringrazio.
Nonostante tutto per me è troppo complicato.
Altri metodi più semplici per ottenere quanto desiderato?
Ringrazio fin d'ora chi mi vorrà aiutare.

[geovign]

La mia proposta non apre in modo automatico il file, però crea in una cella diversa, a tua scelta, un collegamento ipertestuale al file che ti interessa e che può essere aperto con Ctrl+click sinistro del mouse.
Se, ad esempio, in A2 copi la formula

Codice: Seleziona tutto

=COLLEGAMENTO("PercorsoDellaCartellaCheContieneIlFileDaAprire" & CELLA("CONTENTS";A1) & ".ods";"Apri File")

in A1 digiti ROSSI, posizioni il puntatore del mouse su A2, con Ctrl+click sinistro del mouse apri il file ROSSI.ods
Ovviamente devi inserire nella formula, tra " ", il percorso completo della cartella dove risiede il file ed in A1 il nome del file senza estensione.
Funzione COLLEGAMENTO link
Funzione CELLA link
Saluti
Geo

[patel]

Ottima soluzione accessibile a tutti !

[lucky63]

.
Allego esempio che dovrebbe corrispondere alle esigenze della richiesta.
Vedere e rispettare le indicazioni indicate nel file:
- Il file con la macro e quelli da aprire si devono trovare nella stessa cartella
- ...
.

[john apples]

Buongiorno a tutti e un saluto a Lucky 63 che mi ha aiutato alcuni anni fa a risolvere un problema con le formule con il SE.
Lucky il tuo test funziona alla perfezione perciò colgo l'occasione porti un altro paio di domande:
1 - dove posso vedere nel tuo test ciò che hai digitato per impostare la macro e i vari passaggi effettuati?
2 - per la seconda domanda ti descrivo brevemente come userei il tutto:
digitato il nome desiderato nel file calc di ricerca ( che ripeto funziona a meraviglia ) si apre il file richiesto.
a sua volta questo file contiene alcune celle che contengono un collegamento ipertestuale da me creato verso altri files ( pdf, writer ecc.)
il testo di queste celle è ombreggiato di grigio, che naturalmente non è il colore dello sfondo della cella nè il colore del carattere ma appare per il fatto che la
cella contiene appunto un collegamento ipertestuale. La domanda quindi è : è possibile eliminare questa ombreggiatura?
Grazie davvero Lucky per essermi venuto in aiuto e ovviamente grazie a coloro che hanno esaminato il problema.

[lucky63]

funziona alla perfezione

Ok. Grazie del riscontro.
Correggi il “Risolto”.
Hai inserito la spunta verde ma hai omesso ... [Risolto].
Vedi questo link al punto 3

Per il nuovo quesito “1” puoi vedere il codice da:
Menu > Strumenti > Macro > Modifica > NomeDelFile > NomeLibreria “Standard” > NomeModulo “Modulo1” > NomeMacro (...vedere immagine...)

Per come collegare la macro all'evento foglio “Contenuto modificato” fai tasto DX mouse su etichetta nome file > Eventi foglio > Contenuto modificato > Macro > Segui percorso fino a selezionare la macro interessata al che ritornerai nella maschera precedente e troverai indicato il percorso in fianco alla voce “Contenuto modificato” > Clicca su OK per confermare. (...vedere immagine...).

Per il nuovo quesito “2”.
Se passi a LibreOffice il problema non si pone.
Con OpenOffice puoi mitigare la cosa dando sfondo grigio anche alla cella oppure potresti utilizzare la funzione =COLLEGAMENTO() similmente al file che segue:

Test - HyperLinkSenzaSfondoGrigio.ods

(10.5 KiB) Scaricato 63 volte

Per esigenze più specifiche apri un nuovo quesito (siamo già andati molto fuori argomento rispetto al quesito iniziale).
Vedi questo link.
.
.

[john apples]

Grazie Lucky sei sempre molto preciso e chiaro.
Ho provato a aprire il tuo test con Libre Office e tutto funziona.
Al mio prossimo bisogno da principiante.
Ti rinnovo la mia stima.