[Résolu][Calc] Ecrire dans une "séquence d'instructions"

[Eric And Co]

Bonjour

Après avoir régler le problème de réseau, je ma suis compliqué la vie en voulant utiliser le code

Code : Tout sélectionner

    Sub OuvrirTOTO_JM
           Dim Fichier As String
           Dim Wb As Object
           Dim Args()
           Dim Annee As long
           Dim oDoc As Object
           oDoc = Thiscomponent
           Annee = oDoc.Sheets("Feuille1").GetCellRangeByName("A1").Value
           Fichier = ConvertToUrl("T:\Ville\Structures\Feuilles_heures\TOTO_JM\Horaires de TOTO Jean Michel-" & Annee & ".ods")
           Wb = StarDesktop.loadComponentFromURL(Fichier,"_blank",0 ,Args() )
        end sub

En ne mettant plus
Fichier = ConvertToUrl("T:\Ville\Structures\Feuilles_heures\TOTO_JM\Horaires de TOTO Jean Michel-" & Annee & ".ods")
Mais Fichier = ConvertToUrl("T:\Ville\Structures\Feuilles_heures\TOTO_JM\Horaires de TOTO " & Annee & ".ods")
Et je mets dans A1
Jean Michel-2016
Cela devient donc

Code : Tout sélectionner

    Sub OuvrirTOTO_JM
           Dim Fichier As String
           Dim Wb As Object
           Dim Args()
           Dim Annee As long
           Dim oDoc As Object
           oDoc = Thiscomponent
           Annee = oDoc.Sheets("Feuille1").GetCellRangeByName("A1").Value
           Fichier = ConvertToUrl("T:\Ville\Structures\Feuilles_heures\TOTO_JM\Horaires de TOTO " & Annee & ".ods")
           Wb = StarDesktop.loadComponentFromURL(Fichier,"_blank",0 ,Args() )
        end sub

Et là, je replante sur : Wb = StarDesktop.loadComponentFromURL(Fichier,"_blank",0 ,Args() )
avant end sub
avec :
Erreur d'exécution du BASIC. Une exception s'est produite :
Type: com.sun.star.lang.IllegalArgumentException
Message: URL.seems to be an usupported one..

Je pense que cela vient du faite que ce n'est plus une date
J'ai donc fait un essai en remplaçant oDoc par oTexte mais je plante quand même

(Dim oTexte As string) à la place de (Dim Annee As long)
et
(oTexte = oDoc.Sheets("Feuille1").GetCellRangeByName("A1").Value)à la place de (Annee = oDoc.Sheets("Feuille1").GetCellRangeByName("A1").Value)

Mais cela bloque au même endroit
j’hésite entre ou ou encore ou les trois?

[Dude]

Message: URL.seems to be an usupported one..

Est-ce que tu lis ce qu'on t'écrit ?
L'URL que tu passes dans ta variable Fichier n'est pas correcte.

[Eric And Co]

Bonjour

Pourtant elle fonctionne avec 2016 en cellule A1?
avec
(Dim oTexte As string) et (Dim Annee As long)

[Dude]

Pourtant elle fonctionne avec 2016 en cellule A1?

Et ? Apprends donc à déboguer par toi-même.

Fais donc un :

Code : Tout sélectionner

msgbox Fichier

pour les deux cas et compare le résultat.

[Piaf]

Bonjour
Soit tu récupères un nombre soit du texte

Code : Tout sélectionner

Dim Annee as String
Annee = oDoc.Sheets("Feuille1").GetCellRangeByName("A1").String

Devrait mieux le faire.

Fichier.png

A+

[Eric And Co]

Bonjour

Je ne dirais que deux mots "Bravo"
Cela va me permettre d'avancer dur

Merci encore à toi Ho! grand! Piaf

Voici l'exemple qui va bien
Je joints un zip : Total Toto2 de 36.65 Kio
qui contient 1 répertoire : Répertoire Toto de 5 fichiers
à mettre à la racine (C:\)
et 1 fichier :Toto Ouvrir

Dans la cellule A1 de Toto Ouvrir on trouve

Code : Tout sélectionner

=CONCATENER(B1 & "_" & C1 & "_" & $D$1)

Cela récupère les valeurs de B1, C1 et D1 (D1 étant commun à tous) qui correspond au nom des personnes titulaires du fichier

Etc.. pour A2.....

De cette manière si j'ai des personnes qui se rajoutent ou s'en vont, je n'ai que mon fichier à mettre à jour et le fichier Toto qui leur correspond
(nota : ce sera peut-être Brice_denice_2016)

Total Toto2.zip

Encore Merci à ceux qui m'ont aidés

A+

Eric