[Résolu][Calc] Copie d'une feuille sans ses formules
Modérateur : Vilains modOOs
Règles du forum
Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
[Résolu][Calc] Copie d'une feuille sans ses formules
Bonjour à tous.
Je suis dérouté par tous les posts relatifs aux exports et enregistrement d'une seule feuille d'un classeur.
Je parviens à exporter une feuille en pdf avec recopie de nom de fichier créer par concaténer sans soucis.
Mais j'ai besoin d'enregistrer aussi cette feuille et uniquement cette feuille (la feuille 31) en format ods pour qu'elle puisse être modifié par un tiers.
Le nom d'enregistrement de cette feuille se situe en A2 sur cette même feuille (feuille 31).
J'essaie de faire en sorte que cette manipulation ce fasse avec un bouton.
Comme avec l'export en pdf sauf que ceci se ferait en ods.
tel que : clic sur bouton, copie du nom de fichier en A2, enregistrement de la feuille avec non de fichier sous format ods.
Cette feuille contient des cellules qui vont recherché des données sur une autres feuilles.
je ne retrouve pas de sujets abordés.
Si quelqu'un à des infos ou une solution .
Merci et bonne journée.
Yohann.
Je suis dérouté par tous les posts relatifs aux exports et enregistrement d'une seule feuille d'un classeur.
Je parviens à exporter une feuille en pdf avec recopie de nom de fichier créer par concaténer sans soucis.
Mais j'ai besoin d'enregistrer aussi cette feuille et uniquement cette feuille (la feuille 31) en format ods pour qu'elle puisse être modifié par un tiers.
Le nom d'enregistrement de cette feuille se situe en A2 sur cette même feuille (feuille 31).
J'essaie de faire en sorte que cette manipulation ce fasse avec un bouton.
Comme avec l'export en pdf sauf que ceci se ferait en ods.
tel que : clic sur bouton, copie du nom de fichier en A2, enregistrement de la feuille avec non de fichier sous format ods.
Cette feuille contient des cellules qui vont recherché des données sur une autres feuilles.
je ne retrouve pas de sujets abordés.
Si quelqu'un à des infos ou une solution .
Merci et bonne journée.
Yohann.
Dernière modification par Pickup02 le 21 sept. 2012 12:35, modifié 1 fois.
Open Office 3.2.1 sur Microsoft XP PRO
-
- RespOOnsable forum
- Messages : 12231
- Inscription : 08 nov. 2005 16:23
- Localisation : Caen, France
Re: enregistrement d'une feuille d'un classeur
Bonjour,
Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.
Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?
Lisez ce fil pour savoir quelle balise utiliser : http://user.services.openoffice.org/fr/ ... html#27295
Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.
Merci de votre collaboration.
Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.
Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?
Lisez ce fil pour savoir quelle balise utiliser : http://user.services.openoffice.org/fr/ ... html#27295
Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.
Merci de votre collaboration.
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: enregistrement d'une feuille d'un classeur
Merci Monsieur Bidouille ,Je n'avais pas fait attention que j'étais sorti de la section Calc Désolé .....Bidouille a écrit :Bonjour,
Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.
Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?
Lisez ce fil pour savoir quelle balise utiliser : http://user.services.openoffice.org/fr/ ... html#27295
Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.
Merci de votre collaboration.
Open Office 3.2.1 sur Microsoft XP PRO
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
pour faire plus simple,
j'essaie de modifier le macro ci dessous pour enregistrer en ods une feuille mais pas en pdf.
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim propFich(1) as new com.sun.star.beans.PropertyValue
dim filterProps(0) as new com.sun.star.beans.PropertyValue
filterProps(0).Name = E2 rem "PageRange"
filterProps(0).Value = "1"
propFich(0).Name = E2 rem "FilterName"
propFich(0).Value = "calc_pdf_Export"
propFich(1).Name = "FilterData"
propFich(1).Value = filterProps()
dispatcher.executeDispatch(document, ".uno:ExportTopdf", "", 0, PropFich())
j'essaie de modifier le macro ci dessous pour enregistrer en ods une feuille mais pas en pdf.
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim propFich(1) as new com.sun.star.beans.PropertyValue
dim filterProps(0) as new com.sun.star.beans.PropertyValue
filterProps(0).Name = E2 rem "PageRange"
filterProps(0).Value = "1"
propFich(0).Name = E2 rem "FilterName"
propFich(0).Value = "calc_pdf_Export"
propFich(1).Name = "FilterData"
propFich(1).Value = filterProps()
dispatcher.executeDispatch(document, ".uno:ExportTopdf", "", 0, PropFich())
Open Office 3.2.1 sur Microsoft XP PRO
-
- IdOOle de la suite
- Messages : 25184
- Inscription : 03 mars 2006 07:45
- Localisation : 127.0.0.1
Re: [Calc] enregistrement d'une feuille unique
As-tu remarqué en parcourant ce forum comment était rédigé les messages ?
Quand on poste du code, on l'encadre pour qu'il soit plus lisible :
Il te suffit de l'utiliser et de faire l'opération de copie de feuille que je t'ai conseillée dans ton autre fil.
Quand on poste du code, on l'encadre pour qu'il soit plus lisible :
Code : Tout sélectionner
Du code bien encadré est plus facile à lire
Le code que tu donnes vient de l'enregistreur de macro.Pickup02 a écrit :j'essaie de modifier le macro ci dessous pour enregistrer en ods une feuille mais pas en pdf.
Il te suffit de l'utiliser et de faire l'opération de copie de feuille que je t'ai conseillée dans ton autre fil.
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
Dude,
J'ai utilisé l'enregistreur de macro, sauf que ça ne fonctionne pas, étant donné que mes cellules contiennent des formules, lors de la copie, calc copie les formules mais pas les valeurs.
voila ou j'en suis ... pas terrible hein ?
Ce code provient certainement de l'enregistreur, mais je l'ai trouvé sur le forum en l'adaptant à mon classeur.Dude a écrit : Le code que tu donnes vient de l'enregistreur de macro.
Il te suffit de l'utiliser et de faire l'opération de copie de feuille que je t'ai conseillée dans ton autre fil.
J'ai utilisé l'enregistreur de macro, sauf que ça ne fonctionne pas, étant donné que mes cellules contiennent des formules, lors de la copie, calc copie les formules mais pas les valeurs.
voila ou j'en suis ... pas terrible hein ?
Open Office 3.2.1 sur Microsoft XP PRO
-
- IdOOle de la suite
- Messages : 25184
- Inscription : 03 mars 2006 07:45
- Localisation : 127.0.0.1
Re: [Calc] enregistrement d'une feuille unique
"ne fonctionne pas" ne veut rien dire.Pickup02 a écrit :J'ai utilisé l'enregistreur de macro, sauf que ça ne fonctionne pas
Pourquoi ne joins-tu pas un fichier accompagné du code ?
Celui que tu donnes sert uniquement à exporter en PDF.
Encore une information qui aurait dû être précisée dès le départ.Pickup02 a écrit :étant donné que mes cellules contiennent des formules, lors de la copie, calc copie les formules mais pas les valeurs
Ton titre ne reflète donc pas le problème que tu exposes : [Calc] Copie d'une feuille sans formule
Tout cela fait a bien sûr fait l'objet de réponses dans le forum.
Par exemple : http://user.services.openoffice.org/fr/ ... ie+feuille
Le copier / coller de données entre classeurs a aussi un suprême : http://user.services.openoffice.org/fr/ ... c6371.html
Et une adaptation en utilisant le collage spécial : http://user.services.openoffice.org/fr/ ... %C3%A9cial
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
Dude,
Je n'ai pas pour habitude de devenir rouge ......comme le diable.
Je suis débutant dans open office c'est une vérité pas une justification !
je suis forcément aussi débutant dans le forum c'est une vérité pas une justification !
Je doit me faire à l'utilisation de ce forum qui est très , même très utile pour un utilisateur comme moi !
alors on peut, retrouver à redire sur tout ce que j'envoie et qui n'entre pas pas dans des formulations aussi explicites que celles que vous utilisez habituellement
On peut aussi retrouver à redire sur les mises en page, manque de détails,fautes d'orthographes, de conjugaisons, de grammaires, etc etc etc.
Alors moi je viens à redire aussi :
Mon titre est quand même explicite, mais on ne pas tout dire dans un titre.
Le titre que tu proposes :
De plus:
Voila. moi je veux bien envoyer même mon fichier : mais 2600 Ko.
Je suis bien conscient que nous sommes "tous" "bénévoles" et que l'on prends de votre temps et je vous en remercie encore une fois de plus.
Donc je relierais encore les posts des liens que tu me fais suivre, je les ai déjà lu et essayer d'adapter les bouts de macros qui correspondent à mes besoins sans y parvenir au resultats escomptés comme je l'ai exprimé dans l'autres section CALC de laquelle je suis sorti pour convenir à la bonne utilisation de ce forum.
Bonne soirée.
Merci encore .
Je n'ai pas pour habitude de devenir rouge ......comme le diable.
Je suis débutant dans open office c'est une vérité pas une justification !
je suis forcément aussi débutant dans le forum c'est une vérité pas une justification !
Je doit me faire à l'utilisation de ce forum qui est très , même très utile pour un utilisateur comme moi !
alors on peut, retrouver à redire sur tout ce que j'envoie et qui n'entre pas pas dans des formulations aussi explicites que celles que vous utilisez habituellement
On peut aussi retrouver à redire sur les mises en page, manque de détails,fautes d'orthographes, de conjugaisons, de grammaires, etc etc etc.
Alors moi je viens à redire aussi :
Mon titre est quand même explicite, mais on ne pas tout dire dans un titre.
Le titre que tu proposes :
Moi je comprends qu'il n'y pas de formules dans la feuille en question.... libre choix de compréhension .Pickup02 a écrit :[Calc] Copie d'une feuille sans formule
De plus:
Alors si je l'ai précisé ! :Pickup02 a écrit :Encore une information qui aurait dû être précisée dès le départ.
Ton titre ne reflète donc pas le problème que tu exposes : [Calc] Copie d'une feuille sans formule
.libre choix de compréhension .Pickup02 a écrit :Cette feuille contient des cellules qui vont recherché des données sur une autres feuilles.
Voila. moi je veux bien envoyer même mon fichier : mais 2600 Ko.
Je suis bien conscient que nous sommes "tous" "bénévoles" et que l'on prends de votre temps et je vous en remercie encore une fois de plus.
Donc je relierais encore les posts des liens que tu me fais suivre, je les ai déjà lu et essayer d'adapter les bouts de macros qui correspondent à mes besoins sans y parvenir au resultats escomptés comme je l'ai exprimé dans l'autres section CALC de laquelle je suis sorti pour convenir à la bonne utilisation de ce forum.
Bonne soirée.
Merci encore .
Open Office 3.2.1 sur Microsoft XP PRO
-
- IdOOle de la suite
- Messages : 25184
- Inscription : 03 mars 2006 07:45
- Localisation : 127.0.0.1
Re: [Calc] enregistrement d'une feuille unique
Dans ce cas : [Calc] Copie d'une feuille sans ses formulesPickup02 a écrit :[Calc] Copie d'une feuille sans formule
Moi je comprends qu'il n'y pas de formules dans la feuille en question.... libre choix de compréhension .
Il t'appartient de fabriquer un exemple de moins de 500 ko (limite du forum) contenant suffisament d'informations anonymes pour que cela soit compréhensible.Pickup02 a écrit :moi je veux bien envoyer même mon fichier : mais 2600 Ko.
-
- ManitOOu
- Messages : 2668
- Inscription : 30 avr. 2009 04:54
- Localisation : CATALUNYA
Re: [Calc] enregistrement d'une feuille unique
Bonsoir,
Voilà une macro qui
Comme à mon habitude WYWIWYG, je ne teste ni que le fichier a été sauvegardé, ni que la copie existe : ce ne sont jamais que deux tests à rajouter.
Voilà une macro qui
- - créée un fichier vide,
- y copie le contenu de la Feuille31,
- sauvegarde le nouveau fichier en reprenant le nom de l'original + "_Copie",
- le fichier est placé dans le même dossier que l'original (l'original doit donc avoir été sauvegardé, sinon ça plante) :
Code : Tout sélectionner
REM ***** BASIC *****
'
' Code fourni par le forum francophone OOo/LO
' http://user.services.openoffice.org/fr/forum/viewtopic.php?f=8&t=35225
'
'
' Ce code est placé sous licence GNU GPL
'
' Testé avec OOo 3.2.1, AOO 3.4.1, LO 3.4.3 et LO 3.5.5.3
'
Option Explicit
Sub Main
Dim oCible As Object, oSheet As Object, oCursor As Object
Dim oRange As Object, oRangeCpy As Object
Dim sURL As String, aUrl() As String
' on Créé la Cible
sURL = "private:factory/scalc"
oCible = StarDesktop.loadComponentFromURL(sURL,"_blank",0,Array())
' On récupère la Feuille31
oSheet = thisComponent.Sheets.getByName("Feuille31")
' On récupère la plage utilisée
oCursor = oSheet.createCursor() : oCursor.gotoStartOfUsedArea(False)
oCursor.gotoEndOfUsedArea(True) : oRange = oCursor.getRangeAddress()
' Et son contenu
oRangeCpy = oSheet.getCellRangeByPosition(_
oRange.StartColumn, oRange.StartRow,_
oRange.EndColumn, oRange.EndRow).getDataArray
' qu'on copie en Feuille1 du document créé
oCible.Sheets(0).getCellRangeByPosition(_
oRange.StartColumn, oRange.StartRow,_
oRange.EndColumn, oRange.EndRow).setDataArray(oRangeCpy)
' On récupère le nom du document original (avec le path)
aUrl = split(thisComponent.URL,".ods")
' on modifie le nom et on rajoute l'extension
sUrl = aUrl(0) & "_Copie.ods"
' on sauvegarde la copie et on la ferme
oCible.storeAsURL(sUrl, Array())
oCible.close(True)
End Sub
Ajout : L'existence de la Feuille31 n'est pas testée non plus : cela fait donc éventuellement trois tests à rajouter |
Ajout : 2 Mais il n'y a pas qu'à ce niveau que je m'éloigne des règles de l'Art : les puristes (gOOorOOos entre autres) diront qu'il faut passer par des variables intermédiaires, ce qui est loin d'être faux. Mais je suis toujours gêné par la déclaration et l'utilisation de variables qui ne vont servir qu'une fois ou deux... Je préfère, et de loin, réutiliser ou ne rien déclarer en m'appuyant sur les possibilités de l'API. Pas nécessairement pérenne : on est d'accord Mais il faut bien justifier la maintenance |
Dernière modification par Churay le 05 sept. 2012 18:37, modifié 6 fois.
cOOordialement
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
Re bonjour,
ci joint une partie de mon fichier pour lequel je souhaite faire exactement la même chose que lors du clic sur le bouton sauvegarder en pdf , sauf je souhaiterais que celui ci soit sauvegarder en ods.
Merci pour ton code Churros , je ne l'ai pas encore tester. mais si mon fichier peu vous donner plus d'éléments ! Merci...
ci joint une partie de mon fichier pour lequel je souhaite faire exactement la même chose que lors du clic sur le bouton sauvegarder en pdf , sauf je souhaiterais que celui ci soit sauvegarder en ods.
Merci pour ton code Churros , je ne l'ai pas encore tester. mais si mon fichier peu vous donner plus d'éléments ! Merci...
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Open Office 3.2.1 sur Microsoft XP PRO
-
- ManitOOu
- Messages : 2668
- Inscription : 30 avr. 2009 04:54
- Localisation : CATALUNYA
Re: [Calc] enregistrement d'une feuille unique
Bonsoir
Churros ? Churay achiyá, anri, aa!
S'il faut faire autre chose, ça ne le fait donc pas.
Autre chose que je ne teste pas : l'existence de la Feuille31... Toujours le WYWIWYG sans test...
Par contre changeant de machine, par acquis de conscience, j'ai testé AOO 3.4.1 et LO 3.5.5.3 : vu qu'il n'y a rien d'extravagant -> pas de soucis...
Churros ? Churay achiyá, anri, aa!
S'il faut copier l'intégralité de la feuille31 dans un nouveau fichier et sauvegarder : ça le fait.mais si mon fichier peu vous donner plus d'éléments !
S'il faut faire autre chose, ça ne le fait donc pas.
Autre chose que je ne teste pas : l'existence de la Feuille31... Toujours le WYWIWYG sans test...
Par contre changeant de machine, par acquis de conscience, j'ai testé AOO 3.4.1 et LO 3.5.5.3 : vu qu'il n'y a rien d'extravagant -> pas de soucis...
cOOordialement
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
Oups encore une bourde....désolé Churray....
j'ai faim !!!!
hummmm Churros
désolé
en plus je crois avoir fait une autre bourde !
c'est Dude qui va être énervé .....
heuuun je n'ai plus le fichier sous les yeux mais je doute entre la feuille 31 et 30 ...
je pense que c'est la feuille 30 en fait, celle ou il y à le bouton enregistrer sous pdf....
oups
pardon
j'ai faim !!!!
hummmm Churros
désolé
en plus je crois avoir fait une autre bourde !
c'est Dude qui va être énervé .....
heuuun je n'ai plus le fichier sous les yeux mais je doute entre la feuille 31 et 30 ...
je pense que c'est la feuille 30 en fait, celle ou il y à le bouton enregistrer sous pdf....
oups
pardon
Open Office 3.2.1 sur Microsoft XP PRO
-
- ManitOOu
- Messages : 2668
- Inscription : 30 avr. 2009 04:54
- Localisation : CATALUNYA
Re: [Calc] enregistrement d'une feuille unique
Vers le début de la macro :Pickup02 a écrit :heuuun je n'ai plus le fichier sous les yeux mais je doute entre la feuille 31 et 30 ...
je pense que c'est la feuille 30 en fait, celle ou il y à le bouton enregistrer sous pdf....
il suffit de remplacer par' On récupère la Feuille31
oSheet = thisComponent.Sheets.getByName("Feuille31")
Code : Tout sélectionner
' On récupère la Feuille30
oSheet = thisComponent.Sheets.getByName("Feuille30")
Non : il gagne sa sainteté ici tous les jours, donc il lui arrive de ne pas s'énerverc'est Dude qui va être énervé .....
cOOordialement
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
Churay,
J'ai tester ton code juste en modifiant le numéro de feuille à sauvegarder, ça marche.
Il ne me reste plus qu'à essayer de conserver la mise en page de la feuille originale et de trouver comment l'enregistrer sous le nom de fichier qui se crée automatique en cellule E2 de la feuille originale et pis ce sera super !
Merci, toi et à Dude pour votre aide.
Je ne marque pas encore résolu le temps de déchiffrer le code et de tenter de le modifier.
Bise
bonne journée
Yohann
J'ai tester ton code juste en modifiant le numéro de feuille à sauvegarder, ça marche.
Il ne me reste plus qu'à essayer de conserver la mise en page de la feuille originale et de trouver comment l'enregistrer sous le nom de fichier qui se crée automatique en cellule E2 de la feuille originale et pis ce sera super !
Merci, toi et à Dude pour votre aide.
Je ne marque pas encore résolu le temps de déchiffrer le code et de tenter de le modifier.
Bise
bonne journée
Yohann
Open Office 3.2.1 sur Microsoft XP PRO
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
bon j'ai essayé de remplacer les nom de sauvergarde sUrl aur
par nom situé en A2
par
Mais sans succès aucun
alors pour la mise en page ...........
par nom situé en A2
par
Code : Tout sélectionner
ThisComponent.Sheets.getByName("30")
oFeuille.getCellRangeByName("E2")
alors pour la mise en page ...........
Open Office 3.2.1 sur Microsoft XP PRO
-
- ManitOOu
- Messages : 2668
- Inscription : 30 avr. 2009 04:54
- Localisation : CATALUNYA
Re: [Calc] enregistrement d'une feuille unique
Bonjour
à remplacer par (si le nom contient le chemin et l'extension))
ou (si le nom contient le chemin sans l'extension)
Code : Tout sélectionner
' On récupère le nom du document original (avec le path)
aUrl = split(thisComponent.URL,".ods")
' on modifie le nom et on rajoute l'extension
sUrl = aUrl(0) & "_Copie.ods"
à remplacer par (si le nom contient le chemin et l'extension)
Code : Tout sélectionner
' Nom de sauvegarde si le nom contient le chemin et l'extension
sUrl = convertToURL(ThisComponent.Sheets.getByName("30").oFeuille.getCellRangeByName("E2").String
ou (si le nom contient le chemin sans l'extension)
Code : Tout sélectionner
' Nom de sauvegarde si le nom contient le chemin sans l'extension
sUrl = convertToURL(ThisComponent.Sheets.getByName("30").oFeuille.getCellRangeByName("E2").String & ".ods")
cOOordialement
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
Churay,
Dude",
voila avec une partie de code de chacun d'entre vous , la recopie de ma feuille 30 avec la mise en page vers un nouveau classeur fonctionne.
La recopie se fait en deux temps
Je recopie la feuille 30 vers la feuille 37 du classeur existant en ne copiant que les données sans les formules, puis je créé un nouveau classeur "'sans nom" avec seulement la feuille 37.
Mais je ne parviens pas dans la même macro à sauvegarder ce nouveau classeur sous le nom contenu sans la Cellule E2.
voila ou j'en suis ....
une petite aide pour l'enregistrement s'il vous plait....
Merci,
Bonne journée.
Yohann
Dude",
voila avec une partie de code de chacun d'entre vous , la recopie de ma feuille 30 avec la mise en page vers un nouveau classeur fonctionne.
La recopie se fait en deux temps
Je recopie la feuille 30 vers la feuille 37 du classeur existant en ne copiant que les données sans les formules, puis je créé un nouveau classeur "'sans nom" avec seulement la feuille 37.
Mais je ne parviens pas dans la même macro à sauvegarder ce nouveau classeur sous le nom contenu sans la Cellule E2.
Code : Tout sélectionner
Rem Copie feuille 30 vers feuille 37
Dim oDoc As Object, dispatcher As Object
Dim args(5) As New com.sun.star.beans.PropertyValue
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oDoc = ThisComponent
oCadre = oDoc.CurrentController.Frame
oFeuille1 = oDoc.Sheets.getByName("30")
oFeuille2 = oDoc.Sheets.getByName("37")
oCopie = oFeuille1.getCellRangeByName("A1:M50")
oColle = oFeuille2.getCellRangeByName("A1:M50")
oDoc.CurrentController.Select(oCopie)
dispatcher.executeDispatch(oCadre, ".uno:Copy", "", 0, Array())
args(0).Name = "Flags"
args(0).Value = "SVDNT"
args(1).Name = "FormulaCommand"
args(1).Value = 0
args(2).Name = "SkipEmptyCells"
args(2).Value = false
args(3).Name = "Transpose"
args(3).Value = false
args(4).Name = "AsLink"
args(4).Value = false
args(5).Name = "MoveMode"
args(5).Value = 4
oDoc.CurrentController.Select(oColle)
dispatcher.executeDispatch(oCadre, ".uno:InsertContents", "", 0, args())
rem recopie feuille 37 vers un nouveau classeur
dim document as object
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$5:$F$5"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "A"
dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args2())
dim args3(2) as new com.sun.star.beans.PropertyValue
args3(0).Name = "DocName"
args3(0).Value = ""
args3(1).Name = "Index"
args3(1).Value = 32767
args3(2).Name = "Copy"
args3(2).Value = true
dispatcher.executeDispatch(document, ".uno:Move", "", 0, args3())
une petite aide pour l'enregistrement s'il vous plait....
Merci,
Bonne journée.
Yohann
Open Office 3.2.1 sur Microsoft XP PRO
-
- ManitOOu
- Messages : 2668
- Inscription : 30 avr. 2009 04:54
- Localisation : CATALUNYA
Re: [Calc] enregistrement d'une feuille unique
Bonjour
Avec le fichier précédent :
- récupération du nom en E2 de la Feuille nommée "30"
- puisqu'il n'y a pas de path, récupération du path du fichier original
- puisqu'il n'y a pas d'extension, ajout de ".ods"
- sauvegarde de la copie
- fermeture de la copie
- La copie est dans le même dossier que l'original.
Testé avec le fichier API V1.ods et OOo 3.2.1, mais ça ne devrait pas poser de pb avec AOO 3.4.1, LO 3.4.3, LO 3.5.5.3
Avec le fichier précédent :
- récupération du nom en E2 de la Feuille nommée "30"
- puisqu'il n'y a pas de path, récupération du path du fichier original
- puisqu'il n'y a pas d'extension, ajout de ".ods"
- sauvegarde de la copie
- fermeture de la copie
- La copie est dans le même dossier que l'original.
Code : Tout sélectionner
REM ***** BASIC *****
'
' Code fourni par le forum francophone OOo/LO
' http://user.services.openoffice.org/fr/forum/viewtopic.php?f=8&t=35225
'
'
' Ce code est placé sous licence GNU GPL
'
' Testé avec OOo 3.2.1, AOO 3.4.1, LO 3.4.3 et LO 3.5.5.3
'
Option Explicit
Sub Main
Dim oCible As Object, oSheet As Object, oCursor As Object
Dim oRange As Object, oRangeCpy As Object
Dim sURL As String, aUrl() As String
' on Créé la Cible
sURL = "private:factory/scalc"
oCible = StarDesktop.loadComponentFromURL(sURL,"_blank",0,Array())
' On récupère la Feuille30
oSheet = thisComponent.Sheets.getByName("30")
' On récupère la plage utilisée
oCursor = oSheet.createCursor() : oCursor.gotoStartOfUsedArea(False)
oCursor.gotoEndOfUsedArea(True) : oRange = oCursor.getRangeAddress()
' Et son contenu
oRangeCpy = oSheet.getCellRangeByPosition(_
oRange.StartColumn, oRange.StartRow,_
oRange.EndColumn, oRange.EndRow).getDataArray
' qu'on copie en Feuille1 du document créé
oCible.Sheets(0).getCellRangeByPosition(_
oRange.StartColumn, oRange.StartRow,_
oRange.EndColumn, oRange.EndRow).setDataArray(oRangeCpy)
'
' On récupère le path du du document original
aUrl = split(thisComponent.URL,"/")
' on modifie le nom et on rajoute l'extension
aUrl(UBound(aUrl)) = oSheet.getCellRangeByName("E2").String & ".ods"
sUrl = convertToURL(join(aUrl,"/"))
'
' on sauvegarde la copie et on la ferme
oCible.storeAsURL(sUrl, Array())
oCible.close(True)
End Sub
cOOordialement
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
Merci Beaucoup Churay,
C'est super
juste sur la sauvegarde la mise en page n'est pas conservée....
Je ne sais pas si je peu cumuler une partie de la fonction de Dude et la tienne ....?
Je me pers dans les déclarations et les codes associés au differents noms de valeurs
.
Mais c'est déjà beaucoup ce que tu as fais .
Merci.
C'est super
juste sur la sauvegarde la mise en page n'est pas conservée....
Je ne sais pas si je peu cumuler une partie de la fonction de Dude et la tienne ....?
Je me pers dans les déclarations et les codes associés au differents noms de valeurs
.
Mais c'est déjà beaucoup ce que tu as fais .
Merci.
Open Office 3.2.1 sur Microsoft XP PRO
-
- ManitOOu
- Messages : 2668
- Inscription : 30 avr. 2009 04:54
- Localisation : CATALUNYA
Re: [Calc] enregistrement d'une feuille unique
Cumuler : oui
Là c'est la pause déjeuner, je regarde dans une petite demie-heure, si personne n'a répondu avant
Là c'est la pause déjeuner, je regarde dans une petite demie-heure, si personne n'a répondu avant
cOOordialement
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
Re,
J'ai tenté de cumuler ,
le code donne :
Problème, en réponse sur cette ligne : oCible.storeAsURL(sURL, Array(0)) , Propriété ou methode non trouvé storeAsURL
et la je ne sais plus !
J'ai tenté de cumuler ,
le code donne :
Code : Tout sélectionner
Rem Copie feuille 30 vers feuille 37
Dim oDoc As Object, dispatcher As Object
Dim oCadre as Object
Dim args(5) As New com.sun.star.beans.PropertyValue
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oDoc = ThisComponent
oCadre = oDoc.CurrentController.Frame
oFeuille1 = oDoc.Sheets.getByName("30")
oFeuille2 = oDoc.Sheets.getByName("37")
oCopie = oFeuille1.getCellRangeByName("A1:M50")
oColle = oFeuille2.getCellRangeByName("A1:M50")
oDoc.CurrentController.Select(oCopie)
dispatcher.executeDispatch(oCadre, ".uno:Copy", "", 0, Array())
args(0).Name = "Flags"
args(0).Value = "SVDNT"
args(1).Name = "FormulaCommand"
args(1).Value = 0
args(2).Name = "SkipEmptyCells"
args(2).Value = false
args(3).Name = "Transpose"
args(3).Value = false
args(4).Name = "AsLink"
args(4).Value = false
args(5).Name = "MoveMode"
args(5).Value = 4
oDoc.CurrentController.Select(oColle)
dispatcher.executeDispatch(oCadre, ".uno:InsertContents", "", 0, args())
rem recopie feuille 37 vers un nouveau classeur
dim document as object
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$5:$F$5"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "A"
dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args2())
dim args3(2) as new com.sun.star.beans.PropertyValue
args3(0).Name = "DocName"
args3(0).Value = ""
args3(1).Name = "Index"
args3(1).Value = 32767
args3(2).Name = "Copy"
args3(2).Value = true
dispatcher.executeDispatch(document, ".uno:Move", "", 0, args3())
autosave
End Sub
sub autosave
Dim oCible As Object, oSheet As Object, oCursor As Object
Dim oRange As Object, oRangeCpy As Object
Dim sURL As String, aUrl() As String
oSheet = thisComponent.Sheets.getByName("37")
oCible = oSheet
aUrl = split(thisComponent.URL,"/")
' on modifie le nom et on rajoute l'extension
aUrl(UBound(aUrl)) = oSheet.getCellRangeByName("E2").String & ".ods"
sURL = convertToURL(join(aUrl,"/"))
'
' on sauvegarde la copie et on la ferme
oCible.storeAsURL(sURL, Array(0))
fermepage
End Sub
et la je ne sais plus !
Open Office 3.2.1 sur Microsoft XP PRO
-
- IdOOle de la suite
- Messages : 25184
- Inscription : 03 mars 2006 07:45
- Localisation : 127.0.0.1
Re: [Calc] enregistrement d'une feuille unique
Reprenons ton code :Pickup02 a écrit :Problème, en réponse sur cette ligne : oCible.storeAsURL(sURL, Array(0)) , Propriété ou methode non trouvé storeAsURL
Code : Tout sélectionner
oSheet = thisComponent.Sheets.getByName("37")
oCible = oSheet
Donc, il est normal que tu ne puisses l'enregistrer.
Tu dois agir sur l'objet oDoc.
Je dis ça au pif, car là encore :
Tu devrais utiliser XRay pour voir les propriétés et méthodes des objets que tu utilises. C'est un outil indispensable pour comprendre ce que l'on fait.Au début de la discussion, Dude a écrit :Pourquoi ne joins-tu pas un fichier accompagné du code ?
-
- ManitOOu
- Messages : 2668
- Inscription : 30 avr. 2009 04:54
- Localisation : CATALUNYA
Re: [Calc] enregistrement d'une feuille unique
Avec un peu de retard : bonsoir
Un peu plus long que prévu parce qu'il y a les réalités boulot à gérer...
Je suis parti de l'idée que gérer les formats était une usine à gaz ne recelant aucune beauté : donc il fallait ruser un peu et rendre hommage aux codeurs qui nous on gratifié des modèles. Et que partant de là, on devait sortir un truc assez propre et compact (bin vi... on ne se refait pas... )
Donc première manip : à partir de [API V1.ods], suppression des feuilles autres que la "30", enregistrement comme modèle dans le même dossier que [API V1.ods], comme il lui fallait bien un nom, j'ai opté pour [API V1-30.ots]. Ayant laissé les formules et les feuilles y faisant référence ayant disparu, on a plein de #REF, mais en bleu c'est pas si moche (nan je déc***e, mais comme c'est sans importance, j'ai laissé en l'état).
Après quoi, on peut reprendre le code précédent, lui faire subir un léger lifting pour s'adapter à la nouvelle approche et accessoirement harmoniser le nommage des variables (selon mes règles, certes...) et enfin on peut dérouler...
Le code est commenté :
Si on enlève les commentaires, c'est pas trop moche me semble-t-il et c'est encore assez compact...
Un peu plus long que prévu parce qu'il y a les réalités boulot à gérer...
Je suis parti de l'idée que gérer les formats était une usine à gaz ne recelant aucune beauté : donc il fallait ruser un peu et rendre hommage aux codeurs qui nous on gratifié des modèles. Et que partant de là, on devait sortir un truc assez propre et compact (bin vi... on ne se refait pas... )
Donc première manip : à partir de [API V1.ods], suppression des feuilles autres que la "30", enregistrement comme modèle dans le même dossier que [API V1.ods], comme il lui fallait bien un nom, j'ai opté pour [API V1-30.ots]. Ayant laissé les formules et les feuilles y faisant référence ayant disparu, on a plein de #REF, mais en bleu c'est pas si moche (nan je déc***e, mais comme c'est sans importance, j'ai laissé en l'état).
Après quoi, on peut reprendre le code précédent, lui faire subir un léger lifting pour s'adapter à la nouvelle approche et accessoirement harmoniser le nommage des variables (selon mes règles, certes...) et enfin on peut dérouler...
Le code est commenté :
Code : Tout sélectionner
REM ***** BASIC *****
'
' Code fourni par le forum francophone OOo/LO
' http://user.services.openoffice.org/fr/forum/viewtopic.php?f=8&t=35225
'
'
' Ce code est placé sous licence GNU GPL
'
' Testé avec OOo 3.2.1, AOO 3.4.1, LO 3.4.3 et LO 3.5.5.3
'
Option Explicit
Sub MainV2
Dim oCible As Object, oSheet As Object, oCursor As Object
Dim oRange As Object, oRangeCpy As Object
Dim sUrlSrc As String, sUrlCbl As String, sUrlModel As String, aUrl() As String, sPath As String
'
' On récupère la Feuille30
oSheet = thisComponent.Sheets.getByName("30")
'
' On récupère l'url du document original
sUrlSrc = thisComponent.URL
' On en extrait le Path
aUrl = split(sUrlSrc,"/")
aUrl(UBound(aUrl)) = ""
sPath = convertToURL(join(aUrl,"/"))
'
' L'array n'ayant été modifié que sur son dernier élément
' on s'en ressert pour créer le nom de la copie
'
' On triture pour créer le nom de la copie
aUrl(UBound(aUrl)) = oSheet.getCellRangeByName("E2").String & ".ods"
sUrlCbl = convertToURL(join(aUrl,"/"))
'
' Et on bénéficie d'un tour gratuit pour le nom de modèle
aUrl(UBound(aUrl)) = "API V1-30.ots"
sUrlModel = convertToURL(join(aUrl,"/"))
'
' on Créé la Cible à partir du modèle
oCible = StarDesktop.LoadComponentFromURL(sUrlModel,"_default",0,Array()
'
' On récupère la plage utilisée dans l'original Feuille "30"
oCursor = oSheet.createCursor() : oCursor.gotoStartOfUsedArea(False)
oCursor.gotoEndOfUsedArea(True) : oRange = oCursor.getRangeAddress()
' Et son contenu
oRangeCpy = oSheet.getCellRangeByPosition(_
oRange.StartColumn, oRange.StartRow,_
oRange.EndColumn, oRange.EndRow).getDataArray
' qu'on copie en Feuille1 du document créé
oCible.Sheets(0).getCellRangeByPosition(_
oRange.StartColumn, oRange.StartRow,_
oRange.EndColumn, oRange.EndRow).setDataArray(oRangeCpy)
'
' on sauvegarde la copie et on la ferme
oCible.storeAsURL(sUrlCbl, Array())
oCible.close(True)
End Sub
Ajout : En relisant, j'ai retrouvé un sPath qui ne sert plus à rien (j'ai donc mis en commentaire) : vestiged'une approche dont l'essentiel se faisait dans un sub nommé A_La_Hache, le choix du nom est révélateur... Mais pour résumer : c'est compact, ça marche mais c'est vraiment sauvage et limite car un peu tiré par les cheveux... La solution ci-dessus fonctionnant normalement quelle que soit la branche... (bémol : je n'ai pas tester sur la 3.6) autant miser sur une certaine stabilité. |
Dernière modification par Churay le 10 sept. 2012 13:20, modifié 2 fois.
cOOordialement
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
Le modérateur a écrit : Évitez de citer l'ensemble du message précédent, cela rend la lecture très difficile.
Bonjour Churay , Bonjour Dude.Dude a écrit :Reprenons ton code :Pickup02 a écrit :Problème, en réponse sur cette ligne : oCible.storeAsURL(sURL, Array(0)) , Propriété ou methode non trouvé storeAsURLoCible est un objet cellule et non le classeur. D'ailleurs le nom oSheet porte à confusion.Code : Tout sélectionner
oSheet = thisComponent.Sheets.getByName("37") oCible = oSheet
Donc, il est normal que tu ne puisses l'enregistrer.
Tu dois agir sur l'objet oDoc.
Je dis ça au pif, car là encore :Tu devrais utiliser XRay pour voir les propriétés et méthodes des objets que tu utilises. C'est un outil indispensable pour comprendre ce que l'on fait.Au début de la discussion, Dude a écrit :Pourquoi ne joins-tu pas un fichier accompagné du code ?
j'ai fourni mon fichier "allégé" vers le 11 ieme message "API V1".
C'est Vrai et tu as raison je ne comprends pas toujours ce que je fais , ni ce que les autres font en VBA, j'ai télécharger le Xray et vais m'y employer le plus rapidement possible.
Comme beaucoup de personnes il m'a fallut passer à open par obligation, cela ne me gêne pas outre mesures mais ce déshabituer d'un logiciel pour un autre n'est pas évident ....
Et je suis parti sur une application avec des envies d'automatisation de fonction qui me dépassent ....
Et je compte beaucoup sur vos enseignements et expériences pour y arrivé.
Churay,
Ton code moi je le trouve plutôt pas moche , lol, mais il bloque lors de la recherche de la cellule E2 au début de la macro....
je vais tenter de trouver le problème...
Bonne journée....
et merci
mais c'est pas fini lol....
Open Office 3.2.1 sur Microsoft XP PRO
-
- ManitOOu
- Messages : 2668
- Inscription : 30 avr. 2009 04:54
- Localisation : CATALUNYA
Re: [Calc] enregistrement d'une feuille unique
Bonjour,
Et je n'avais pas retesté...
J'ai réactivé les lignes concernées dans mon précédent message... Et retesté avec OOo 3.2.1
Sorry
Effectivement : j'ai conclu un peu vite que le sPath était un vestige d'une version olé-olé, mais il sert encore pour bâtir le nom du fichier modèle.il bloque lors de la recherche de la cellule E2 au début de la macro....
Et je n'avais pas retesté...
J'ai réactivé les lignes concernées dans mon précédent message... Et retesté avec OOo 3.2.1
Sorry
cOOordialement
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
Bonjour Churay,
Je ne comprends pas pourquoi cela fonctionne chez toi et pas chez moi ....
Le code bloque sur la ligne suivante
je ne comprends pas pourquoi alors que toute les déclarations sont faites ....
Je ne comprends pas pourquoi cela fonctionne chez toi et pas chez moi ....
Le code bloque sur la ligne suivante
Code : Tout sélectionner
aUrl(UBound(aUrl)) = oSheet.getCellRangeByName("E2").String & ".ods"
Open Office 3.2.1 sur Microsoft XP PRO
-
- ManitOOu
- Messages : 2668
- Inscription : 30 avr. 2009 04:54
- Localisation : CATALUNYA
Re: [Calc] enregistrement d'une feuille unique
Bonjour,
Par acquis de conscience, je viens de retester avec avec OOo 3.2.1, et LO 3.4.3 : c'est bien Ok
En joignant le fichier peut-être...
Au besoin tu rends anonyme ce que doit l'être.
Par acquis de conscience, je viens de retester avec avec OOo 3.2.1, et LO 3.4.3 : c'est bien Ok
En joignant le fichier peut-être...
Au besoin tu rends anonyme ce que doit l'être.
cOOordialement
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
---
AOO 4.0.1 W7-PRO & LO 5.1.6.2 Debian 7.8 & Ubuntu 16.04 LTS
---
F1 : ça aide...
XRay + SDK
---
Quand le NOT CONFIRMED sera corrigé (OOo et LO) , je serai heureux...
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
Churay,
Mon fichier est présent dans le fil vers le onzième message .
http://user.services.openoffice.org/fr/ ... 56#p193856
Mon fichier est présent dans le fil vers le onzième message .
http://user.services.openoffice.org/fr/ ... 56#p193856
Open Office 3.2.1 sur Microsoft XP PRO
-
- Membre lOOyal
- Messages : 37
- Inscription : 27 juil. 2012 08:25
Re: [Calc] enregistrement d'une feuille unique
Enfin mon fichier est la quoi :Le modérateur a écrit : Merci de ne pas poster plusieurs messages à la suite !
Si vous devez ajouter un complément d'information, le bouton "Editer" à la droite du message permet d'y remédier.
En attendant une prochaine réponse, vous pouvez participer également en répondant à d'autres questions sur notre forum.
http://user.services.openoffice.org/fr/ ... p?id=46934
et le code bloque sur :
Code : Tout sélectionner
oCible = StarDesktop.LoadComponentFromURL(sUrlModel,"_default",0,Array()
Open Office 3.2.1 sur Microsoft XP PRO