[Résolu][Calc]Fichier téléchargé sauvé sur répertoire défini

[GCO]

Bonjour à tous
Je souhaite enregistrer un fichier sur un répertoire défini.
Le bout de code suivant permet de télécharger le fichier et le sauvegarde directement sur le répertoire Downloads

Code : Tout sélectionner

sub TraitementFichierBD
'********************************************************
' téléchargement sur rep Downloads uniquement d'un fichier
' est il possible de changer ce répertoire par defaut ?
' ********************************************************

dim oMaValeur as object
dim url as string
dim LibOUrl as string
		
	oMaValeur = ThisComponent.NamedRanges.getByName("CheminChargementCVS_ISIN_TICKER_NOM") 
	url =  oMaValeur.ReferredCells.String	
	' url du chemin d'acces au site
	LibOUrl = convertToUrl(url)
	LibOService = CreateUnoService("com.sun.star.system.SystemShellExecute")	
	
 LibOService.execute(LibOUrl, 0, 0)


end sub

Si quelqu'un sait comment changer le répertoire Download par défaut ou a une autre solution pour solutionner mon problème je suis preneur
Par avance Merci

[OOo - Ekel]

Bonjour,

Je pense qu'un peu de lecture et de recherche sur ce forum apportera la solution.

De plus, il serait de bon aloi de préciser de quel module il est question et de baliser correctement le message.

Cordialement

Ajout : Dernière visite du demandeur le : 27 Sep 2021 13:37

[jeanmi2403]

Bonjour,
Cette question devrait être posée dans la section "Macros"
Bonne soirée,

[GCO]

Merci pour la réponse très constructive de EKEL qui ne m'a pas fait perdre de temps.
Très cordialement
GCO

[Bidouille]

Merci pour la réponse très constructive de EKEL qui ne m'a pas fait perdre de temps.

Pourtant, cela aurait permis d'accélerer les réponses apportées par les bénévoles.
Je l'ai donc fait à votre place.

Fil déplacé logiquement dans la bonne section du forum.
Titre adapté et balisé suivant les règles indiquées dans le bandeau rouge en haut de la page.

Veillez à poster au bon endroit la prochaine fois.

[jeanmi2403]

Bonsoir,
Cette macro appelle un lien url et donc lance le navigateur par défaut.
Avec cette macro, chez moi, avec Firefox, les fichiers PDF, MP3, TXT (de mon site personnel) s'ouvrent et se visionnent dans le navigateur , sans se télécharger. Comportement logique.....
J'ai tenté avec un fichier MSI (libreoffice, par exemple) et la réponse est une proposition d'enregistrement, qui par défaut, se fait dans le dossier "Téléchargements" (ou Download), si rien n'a été configuré.
Ceci peut se configurer dans le navigateur et ne dépend donc pas de Libre Office.
A voir en fonction de votre navigateur internet...Il est possible de le configurer avec une demande de l'endroit où il doit enregistrer.
Cordialement,

[Dolev]

Bonjour,

Cette macro appelle un lien url et donc lance le navigateur par défaut.

Et donc aucun intérêt d'utiliser un ShellExecute alors que FileCopy fait le job.

Code : Tout sélectionner

sub TelechargeDansTemp
	FileCopy("https://forum.openoffice.org/fr/forum/styles/prosilver/imageset/logo_forum_fr.png", "c:\temp\test.png")
end sub

[jeanmi2403]

Bonjour,

Et donc aucun intérêt d'utiliser un ShellExecute alors que FileCopy fait le job.

Génial !
Je connaissais FileCopy, mais jamais imaginé l'appliquer à une URL distante...
Bonne soirée,

[GCO]

Bonjour,
Merci à jeanmi2403 pour sa réponse et à Dolev pour cette utilisation de filecopy que je ne connaissais pas.
Mais, dans mon cas, ne connaissant pas l'adresse finale du fichier à télécharger, je suis obligé de passer par un navigateur afin de sélectionner le fichier désiré.
La configuration manuelle du navigateur et une solution lourde à gérer mais tout à fait envisageable si elle est faite par une macro pendant l'exécution.
La solution idéale est de dévier le flux du navigateur en l'adressant vers un répertoire différant mais cela me parait difficile voire impossible avec une macro.
A ce jour, je n'ai pas d'autre solution que de faire un transfert entre le répertoire par défaut et le répertoire souhaité.
Merci pour votre aide.

[zeguedon]

Bonjour,

A ce jour, je n'ai pas d'autre solution que de faire un transfert entre le répertoire par défaut et le répertoire souhaité.

A priori non, puisque ton navigateur te permet de choisir le répertoire de destination à chaque téléchargement, au lieu de télécharger systématiquement dans un répertoire par défaut :

GCO.png

il suffit de sélectionner le bon bouton radio (Toujours demander où enregistrer les fichiers). Ou alors je n'ai pas compris le pb.
@+

[Dolev]

Mais, dans mon cas, ne connaissant pas l'adresse finale du fichier à télécharger, je suis obligé de passer par un navigateur

Tout cela manque d'information et fait penser à un problème XY.
Merci de fournir l'URL du site sur lequel tu télécharges le fichier.

[jeanmi2403]

Bonjour,

Tout cela manque d'information et fait penser à un problème XY.

Effectivement, on ne peut pas deviner ce que vous cherchez à faire, qui n'est pas suffisamment précisé dans votre demande initiale.
Pouvez vous nous le faire savoir ?
Votre question initiale présente un morceau de macro qui lance le navigateur sur une URL (adresse internet) stockée dans une cellule d'une feuille calc.
Quelle est exactement la question ?

La configuration manuelle du navigateur et une solution lourde à gérer mais tout à fait envisageable si elle est faite par une macro pendant l'exécution.

En quoi est-ce lourd à gérer ?
Aucune chance (à ma connaissance) de pouvoir configurer le navigateur à partir de LibreOffice...
Bonne journée,

[Jurassic Pork]

hello,

Mais, dans mon cas, ne connaissant pas l'adresse finale du fichier à télécharger, je suis obligé de passer par un navigateur afin de sélectionner le fichier désiré.

il y a certainement un moyen de récupérer l'adresse url réelle du fichier en récupérant le contenu de la page qui s"affiche avec l'url de départ.
Si tu pouvais nous donner un exemple d'une adresse de départ.
Ami calmant, J.P

[Bidouille]

Dernière visite le : 11 Oct 2021 06:39

Merci d'attendre le retour de l'auteur pour continuer à lui apporter d'autres réponses.

[GCO]

Bonjour
Merci pour vos réponses
Le site sur lequel je souhaite télécharger est
https://www.abcbourse.com/download/libelles
les valeurs a télécharger sont Le CAC40 ou le SBM120
a noter que suivant le type d'accés:

Code : Tout sélectionner

        Adresse = ConvertToURL("https://www.abcbourse.com/download/libelles")
        sv = createUnoService("com.sun.star.system.SystemShellExecute")
        sv.execute(Adresse, "",0)	

' Ouverture
ou un lancement par

Code : Tout sélectionner

        URLSource = ConvertToURL("https://www.abcbourse.com/download/libelles")
        oSource = StarDesktop.loadComponentFromURL(URLSource, "_blank", 0, oProps())		'= ouverture document

La présentation de l'affichage est différante.
Si quelqu'un a une idée, Merci d'avance.
GCO

[Bidouille]

Je vais vous demander de fournir un autre exemple car le site que vous donnez interdit toute récupération automatique.

Capture.PNG

Pour des raisons évidentes de légalité, merci de corriger sous peine de voir votre sujet verrouillé.

[GCO]

OK Merci

[Dolev]

Re,

car le site que vous donnez interdit toute récupération automatique.

Effectivement car ce que tu cherches à réaliser est une option payante :
https://www.abcbourse.com/boutique/abcquotes_recuperez_les_cotations-389

Et donc, ce que tu fais par macro est illégal.

[Bidouille]

Bonjour,
Vous avez lu semble t-il les réponses qui vous ont été faites sans y donner de suite.
N'ayant plus de nouvelle, on peut en déduire que le problème est résolu ou ne se reproduit plus.
Merci de baliser par vous-même la prochaine fois.

En cas d'erreur, veuillez lire ce sujet pour une éventuelle réouverture de votre question :
https://forum.openoffice.org/fr/forum/f ... ermee.html
Cordialement