[Risolto] Cambiare parte del link

[Barakkino]

Buongiorno,

E' possibile cambiare una parte di link (la Data)
nella Proprietà Pulsante>Generali>URL?
o anche con una Macro?

oggi 07/07 ore 19,17 ho modificato allegato per renderlo simile a quanto richiesto, spero di non aver creato confusione.
nel link sono state messe delle "x" al posto dei codici univoci.

Grazie

[Biagio91]

Ma certamente, basta che crei una variabile che prenda il valore della data dalla cella in questione e splitti il link dell'url

Puoi farlo tranquillamente con le formule ma anche con un piccolo codice
Il principio è lo stesso, splitti il link e lo ricomponi, lo apri

FORMULE:
Hai presente la funzione CONCATENA e la funzione COLLEGAMENTO? useremo proprio quelle

CELLA1 = https://ivaservizi.agenziaentrate.gov.i ... dettaglio/
CELLA2 = ITxxxxxx

CELLALINK =COLLEGAMENTO(“URL” ; “Testo Cella”)
CELLALINK =COLLEGAMENTO (CELLA1 & CELLADATA & CELLA2; "Apri Ag Entrate"

Avrai sempre il collegamento ipertestuale aggiornato con la data presente sulla cella B5

CODICE:
Occorre usare una tecnica forse un poco più articolata
Al click sul pulsante andare a generare il link tramite una macro, e poi eseguirne l'apertura.

Codice: Seleziona tutto

Sub Main
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
Dim Data, Url_1, Url_2, Url_Dinamica as string

Doc = ThisComponent
Sheet = Doc.getcurrentcontroller.activesheet
Cell = Sheet.getCellRangeByName("B5")
	'PRINT Cell.String
Data = Cell.String 

Url_1 = "https://https://ivaservizi.agenziaentrate.gov.it/cons/cons-web/?v=160xxxxxxx#/corrispettivi/dc/dettaglio/"
Url_2 = "ITxxxxxx"
Url_Dinamica = Url_1 & Data & Url_2
	'PRINT Url_Dinamica

End Sub

Non ti resta che associare alla url del tuo pulsante il valore Url_Dinamica
https://forum.openoffice.org/it/forum/v ... =26&t=3423 prova a vedere questo link, il codice ha una descrizione molto esplicativa. Al posto di modificare label nel tuo si va a modificare url.

Vedi anche questo link per una visione un po' più ampia sui pulsanti
https://forum.openoffice.org/it/forum/v ... .php?t=820

Ovviamente devi poi associare la macro al pulsante e sistemarne le proprietà.
vedi anche questo esempio https://forum.openoffice.org/en/forum/v ... hp?t=91106

[Barakkino]

Grazie Biagio 91
mi hai dato un grosso aiuto. Ho optato per la funzione. Anche se avrei preferito un pulsante (macro)

[Biagio91]

Non c'è di che, se preferisci fare un pulsante, la procedura ce l'hai, se hai bisogno di aiuto chiedi pure.
Non dovrebbe essere troppo complicato. Si può procedere in svariati modi.

Forse questo piccolo codice trovato in rete può esserti di aiuto:

Codice: Seleziona tutto

Sub ApriURL()

Doc = ThisComponent
Sheet = Doc.getcurrentcontroller.activesheet
Cell = Sheet.getCellRangeByName("B5")
	'PRINT Cell.String
Data = Cell.String 

Url_1 = "https://https://ivaservizi.agenziaentrate.gov.it/cons/cons-web/?v=160xxxxxxx#/corrispettivi/dc/dettaglio/"
Url_2 = "ITxxxxxx"
Url_Dinamica = Url_1 & Data & Url_2

Dim sURL as string
    sURL = Url_Dinamica
    
Dim oShell As Object
    oShell = CreateObject("WScript.Shell")	'Funziona su sistema operativo windows
    
    oShell.Run sURL
End Sub

Poi assegni al pulsante questa macro e dovresti aver risolto.
Facci sapere.

Grazie mille
Ciao

[Barakkino]

Non c'è di che, se preferisci fare un pulsante, la procedura ce l'hai, se hai bisogno di aiuto chiedi pure.
Non dovrebbe essere troppo complicato. Si può procedere in svariati modi.

Forse questo piccolo codice trovato in rete può esserti di aiuto:

Codice: Seleziona tutto

Sub ApriURL()

Doc = ThisComponent
Sheet = Doc.getcurrentcontroller.activesheet
Cell = Sheet.getCellRangeByName("B5")
	'PRINT Cell.String
Data = Cell.String 

Url_1 = "https://https://ivaservizi.agenziaentrate.gov.it/cons/cons-web/?v=160xxxxxxx#/corrispettivi/dc/dettaglio/"
Url_2 = "ITxxxxxx"
Url_Dinamica = Url_1 & Data & Url_2

Dim sURL as string
    sURL = Url_Dinamica
    
Dim oShell As Object
    oShell = CreateObject("WScript.Shell")	'Funziona su sistema operativo windows
    
    oShell.Run sURL
End Sub

Poi assegni al pulsante questa macro e dovresti aver risolto.
Facci sapere.

Grazie mille
Ciao

Grazie mille, un pò
complicato (per me) ma ci sono arrivato

[Biagio91]

Ottimo, se hai bisogno di chiarimenti dicci pure.

Grazie mille
Ciao