Discussion :

[ancel17]

Bonjour,

J'aimerai par le code, copier les colonnes A à M d'un classeur vers un autre.
Voici le code utilisé :

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
   Dim MonDoc as object, Mesfeuilles as object, MaFeuille as object
   Dim NewDoc As Object, NewSheet as object
   Dim MyFileName As String
 
   MonDoc = ThisComponent 'Sélectionne le document en cours
   MesFeuilles=MonDoc.sheets ' les feuilles du classeur
   MaFeuille = Mesfeuilles.GetByName("feuille1")' la feuille1
 
   NewDoc = StarDesktop.LoadComponentFromURL("private:factory/scalc","_blank",0,array()) 'crée le nouveau classeur
 
   MyFileName = "NewDoc.ods" 'Le Nom du nouveau document
 
   NewSheet = NewDoc.Sheets(0) ' Choix de la nouvelle feuille
   NewDoc.CurrentController.ActiveSheet = NewSheet 
   NewSheet.GetCellRangeByName("A:M").DataArray = MaFeuille.GetCellRangeByName("A:M").DataArray 'La copie des colonnes A à M

Le code bloque sur la dernière ligne... j'ai vu que pour copier/coller une plage de cellule cela fonctionnait, mais ce ne doit pas être le cas pour des colonnes (l'idée étant de conserver la mise en forme des colonnes, je ne souhaite pas définir la plage...).
Pouvez-vous m'éclairer ?

Merci de votre aide !

[zoom61]

Salut,

Le copie/coller dans LibreOffice ou OpenOffice ne fonctionne pas pour une (ou plusieurs) colonne et idem pour les lignes, il faut sélectionner une plage de cellules.

@+.

[ancel17]

Salut zoom et merci de tes réponses !

Est-il cependant possible de copier la feuille étant donné que finalement, que je copie uniquement les colonnes A à M ou la feuille complète le résultat sera le même...

[zoom61]

Il n'est pas possible de faire une sélection A:M, il faut faire une sélection A1:M5000.

@+.

[ancel17]

J'ai bien compris qu'il fallait sélectionner une plage, mais si je le fais, il faudra alors redéfinir toute la mise en forme, ce dont je me passerai bien.
D'où ma question, plutôt que de copier une plage, est-il possible de copier la feuille (et si oui, comment l'intégrer à mon code) ? J'ai bien vu ça sur la FAQ, mais je t'avoue que je ne comprends pas le fonctionnement et du coup je ne sais pas l'adapter...

[zoom61]

Cette Q/R devrait mieux convenir à ton besoin !

@+.