Discussion :

[m_kimboo]

bonjour a tous,

je viens vous demander de l'aide

j’essaie de créer un bouton avec une macro dans un fichiers *.ods , qui export 1 seule feuille de ce fichier .ods , pour en faire un fichier .xls , avec le noms du fichier + la date et l'heure.

je ne suis pas du tout développeur , ni informaticien , juste un tech qui essai d'ameliorer le quotidien


j'ai créer en cherchant sur différent site , une macro "export" ( mais toutes les feuilles sont exporter )
puis une macro "CopieFeuilleActive_NouveauClasseu" , mais la une seule feuille est exporter , mais je n'arrive pas a gerer le noms .


je joint le fichier avec tous mes essai ...

Si quelqu'un a un moment
merci par avance ...

[Mobydick_62]

Bonjour,

En pièce jointe le fichier corrigé.

Cordialement

COMPTEURS_date.ods

[m_kimboo]

RE bonjour ,

décidément Mobydick_62 tu es mon sauveur

c'est parfait , a part que le fichier générer l'ouverture via excel dit qu'il est corompu..????!!!! ( pas quand on l'ouvre avec open office)

et si il pouvait se fermer et ne pas rester ouvert...??

je sais je sais j'abuse de te gentillesse....

[Patrice740]

Bonjour,

... a part que le fichier générer l'ouverture via excel dit qu'il est corompu..

C'est normal, le fichier enregistré est un ods avec extension xls !

Il faut spécifier le format d'enregistrement :
Au lieu de :

Code :

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

1
2
3
4
 'Enregistrement avec adresse
 sAdresseDoc = "D:\MESDOCS\" & sNomDoc
 sAdresseDoc = ConvertToURL(sAdresseDoc)   
 oCalcDest.StoreAsUrl(sAdresseDoc,array())

Préciser :

Code :

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

1
2
3
4
5
6
7
 'Enregistrement avec adresse
 Dim Args2(1) As New com.sun.star.beans.PropertyValue
 Args2(0).Name = "FilterName"
 Args2(0).Value = "MS Excel 97"
 sAdresseDoc = "D:\MESDOCS\" & sNomDoc
 sAdresseDoc = ConvertToURL(sAdresseDoc)   
 oCalcDest.StoreAsUrl(sAdresseDoc,Args2())

[Mobydick_62]

Pour Patrice740:

Il faut spécifier le format d'enregistrement :

Effectivement dans ma précipitation, je n'ai pas géré les propriétés d'export. D'autant plus que ce code était présent dans le premier fichier exemple.

Pour m_kimboo :
Pour fermer le document créé il faut ajouter en fin de code :

Code :

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

1
2
3
4
 'Fermeture
 On Error Resume Next ' ignorer l'erreur éventuelle
 oCalcDest.Close(True)
 On Error GoTo 0 ' reprendre le traitement d'erreur normal

Cordialement

[m_kimboo]

Bonjour ,

et MERCI MERCI MERCI MERCI.....

c'est génial , juste ce que je voulais.

encore 2, 3 petit bug

mais mille merci a vous 2 ( Mobydick_62 ,Patrice740)