Discussion :

[lalou91]

Bonjour,

Je souhaite exporter les données de certaines colonnes du tableur calc vers telle colonne précise du tableau de writer sans faire un copié-collé. Juste avec les macros ? Ou lien à activer ? Ou fonction intégrée dans writer ou calc ?

Merci pour votre aide

[TpF45]

Bjour,

Insertion » Objet OLE

tout simplement, non ?

[lalou91]

Bonjour,

Je vous remercie pour votre retour.
Mais faire insertion Objet OLE ne convient pas car il prend toutes les infos du tableau de calc pour en faire une image sur writer.

Or ce que je souhaite, c'est extraire quelques infos de calc et l'exporter dans telle cellule dans writer, sans à avoir retaper certaines infos.

Pour faire plus simple, je vous mets ici en fichier joitn les modèles des deux tableaux calc et writer.

Belle journée, cordialement,

[Mobydick_62]

Bonjour,

Cela peut se faire par macro, mais il faudrait savoir depuis ton fichier Calc ce qu'il faut extraire exactement et insérer dans le document Writer.

Avec les précisions que je te demande, je pourrai ensuite te faire un projet.

Cordialement

[lalou91]

Bonjour Mobydick 62,

Merci pour ta proposition de faire un projet de macro.

En effet, il faut obtenir les données indiquées dans la première ligne des colonnes du document writer c'est à dire :
N° de membre
Nom
Prénom
Date de naissance
N°téléphone

à partir du tableau de calc qui contient beaucoup plus de données. En gros, faire le tri entre différentes infos car calc est pour une utilisation interne et que writer est pour une diffusion plus large contenant des informations limitées.

Bien cordialement,

[Mobydick_62]

Bonsoir
Avec les documents que tu as joint je t'envoie tout çà demain.
Cordialement

[Pekoe]

Bonsoir,
Un lien DDE convient bien dans ce cas de figure : copier la ou les cellules voulues dans Calc, puis collage spécial dans Writer avec lien DDE.
Cordialement,
Pekoe

[jurassic pork]

hello,

Bonjour,

Je souhaite exporter les données de certaines colonnes du tableur calc vers telle colonne précise du tableau de writer sans faire un copié-collé. Juste avec les macros ? Ou lien à activer ? Ou fonction intégrée dans writer ou calc ?

Merci pour votre aide

voici ce que je te propose :
1 - Principe
- On prend les données des membres du classeur calc et on les met dans une variable tableau.
- On balaie le tableau des membres dans le document writer et on insère pour chaque les données correspondantes prises dans la variable tableau.

2 - Le code (j'ai renommé le tableau dans le document writer TableauMembres) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Remplir_Membres()'J.P  Février 2020
Dim oClasseur, oFeuil, oPlage As Object  
Dim Fichier As String 
Dim TableauData()
Dim Args(0) as new com.sun.star.beans.PropertyValue
Dim oTable As Object
Dim i as Integer  
 
'on ouvre le classeur qui contient les données
Fichier = ConvertToUrl("M:\Temp\LibreOffice\Modèle Calc.ods") 
Args(0).Name = "Hidden"
Args(0).Value = true  
oClasseur = StarDesktop.loadComponentFromURL(Fichier,"_blank",0 ,Args() ) 
oFeuil = oClasseur.Sheets(0) ' La 1ere feuille qui est indexée à 0
'Chercher la dernière ligne non vide 
oCurseur = oFeuil.createCursor  
oCurseur.gotoEndOfUsedArea( False ) 
oPlage = oFeuil.getCellRangeByName("A2:L" & (oCurseur.RangeAddress.EndRow +1))
' on met les données utiles du classeur dans un tableau
TableauData = oPlage.DataArray 
'on ferme le classeur
oClasseur.Close( True )  
'on balaie le tableau des membres et on insére les données du tableau data correspondantes
oTable = ThisComponent.TextTables.getByName("TableauMembres")
For i=0 to UBound(TableauData, 1)
   'N° de membre
   oTable.getCellByPosition(0,i+1).setString(TableauData(i)(0))
   'Nom
   oTable.getCellByPosition(1,i+1).setString(TableauData(i)(6))
   'Prénom
   oTable.getCellByPosition(2,i+1).setString(TableauData(i)(7))
   'Date de naissance
   oTable.getCellByPosition(3,i+1).setString(Format(TableauData(i)(5),"mm/dd/yyyy"))
   'N° de téléphone
   oTable.getCellByPosition(4,i+1).setString(TableauData(i)(11))
Next
'Fin 
End Sub

Le résultat (voir pièce jointe)

Ami calmant, J.P

[Mobydick_62]

Bonjour,
Comme convenu un exemple un peu différent de Jurassic.

Le fichier Writer sevra se trouver dans le même répertoire que le fichier Calc.
Pour lancer l'édition du courrier il faut cliquer dans le bouton de la barre de menu voir ci-dessous



Cordialement

Modèle Calc.ods
Modèle Writer.odt

[lalou91]

Bonjour Jurrasic Pork,

Je te remercie pour la macro proposée.

Mais je suis coincée quelque part... En effet, en reprenant la macro pour l'insérer dans "Gérer - Nouveau -Macro" sur Modèle Writer et j'ai renommé le tableau Writer "TableauMembres" comme tu l'as préconisé. Et je n'arrive pas à obtenir les données à partir de Calc.
Donc j'ai fait cette macro sur Modèle Calc, même problème.

En clair, qu'est ce que je dois faire avec la macro ?
- L'enregistrer dans quel macro ? Writer ou Calc ?
- Renommer le tableau Writer "TableauMembres"
- Renommer le tableau Calc "TableauMembres" ?
- Autre action à faire ?

Si tu veux bien joindre mes documents envoyés avec la macro afin je puise trouver comment situer cette macro.

Je suis une grande débutante avec le langage Macro...

[jurassic pork]

hello,
la macro se trouve dans le document writer.
C'est bien le tableau membre de writer qu'il faut renommer.
En pièces jointes le document writer avec la macro et le document calc qui est appelé (ne pas oublier de changer le chemin dans la macro qui appelle ce document)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'on ouvre le classeur qui contient les données
Fichier = ConvertToUrl("M:\Temp\LibreOffice\SourceCalcJP.ods")

On peut lancer la macro à partir du menu Outils de Writer (commande Remplir_Membres) :



As-tu testé la solution à Mobydick_62 ?

Ami calmant, J.P

[lalou91]

Bonjour Jurrasic Pork,


Ca marche super bien !!!! Merci beaucoup Jurrasic Pork.

La solution de Moby Dick 62, je ne l'ai toujours pas reçu...

Juste envie de "complexifier" un peu ;-)

Est ce que c'est possible d'introduire une condition ? Par exemple, obtenir les données demandées seulement si le type de membre est actif et rien si autre que actif ?

J'espère que je ne t'embête pas trop

Encore merci beaucoup
Belle journée

[jurassic pork]

hello,
il suffit d'introduire un test sur la colonne type de membre dans la boucle de remplissage du tableau writer. Comme ceci par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'on balaie le tableau des membres et on insére les données du tableau data correspondantes
oTable = ThisComponent.TextTables.getByName("TableauMembres")
Dim j as Integer
j = 0
For i=0 to UBound(TableauData, 1)
   'on teste si le membre est actif pour remplir le tableau Writer
   if TableauData(i)(1) = "Actif" then
     'N° de membre
     oTable.getCellByPosition(0,j+1).setString(TableauData(i)(0))
     'Nom
     oTable.getCellByPosition(1,j+1).setString(TableauData(i)(6))
     'Prénom
     oTable.getCellByPosition(2,j+1).setString(TableauData(i)(7))
     'Date de naissance
     oTable.getCellByPosition(3,j+1).setString(Format(TableauData(i)(5),"mm/dd/yyyy"))
     'N° de téléphone
     oTable.getCellByPosition(4,j+1).setString(TableauData(i)(11))
     j = j+1
   end if
Next
'Fin

Ami calmant, J.P

[Mobydick_62]

Bonsoir,

Ma solution se trouve dans un post plus haut.
Mais de toute manière ce que Jurassic Pork t'as proposé est parfait (comme d'habitude). Il lui arrive même de m'aider.
La petite différence est que ma macro créée autant de ligne du tableau Writer que de membres à insérer.
Mais aucun doute que Jurrassic Pork pourra y apporter les modifications dans son code, si le besoin se fait sentir.

Cordialement

[lalou91]

Bonjour Jurassic Pork,

Ca marche super bien ! Top de chez Top ! Tu es génial, comme l'a déjà dit Mobydick 62 mais Moby,je te remercie aussi pour ta participation.

Sauf que les lignes qui contiennent le type autre que "actif" sont affichées en blanc. Et sur la liste, il y a donc des lignes en blanc. Il me faudra les supprimer au fur et à mesure, ligne par ligne.
Par contre, la macro proposée par Moby qui crée autant de lignes que de membres à insérer pourrait m'intéresser. Oups je ne la trouve pas comme tu l'indiques dans ton post

C'est déjà bien beaucoup pour tout le reste, c'est vraiment trop bien

Je vais pouvoir l'utiliser pour gérer les courriers des membres.

Au nom de l'équipe, Jurassic et Moby je te remercie sincèrement.
Lalou

[Mobydick_62]

Bonjour,
En pièces jointes.
Comme je le disais le fichier Writer doit se trouver dans le même répertoire que le fichier Calc.

Pour le lancement:



Modèle Calc.ods
Modèle Writer.odt

Cordialement

[jurassic pork]

hello,

Sauf que les lignes qui contiennent le type autre que "actif" sont affichées en blanc. Et sur la liste, il y a donc des lignes en blanc. Il me faudra les supprimer au fur et à mesure, ligne par ligne.

C'est bizarre car j'avais rajouté du code justement pour éviter cet effet. As-tu remplacé dans la macro tout le code situé entre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'on balaie le tableau des membres et on insére les données du tableau data correspondantes

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'Fin

?

Attention pour la macro à Mobydick_62 elle se trouve dans le document calc pas dans le document writer.

[EDIT] En pièce jointe une version expérimentale qui :
1 - Efface le contenu du tableau writer avant le remplissage
2 - Remplit le tableau avec les membres actifs avec un nombre de lignes correspondant.

Ami calmant, J.P