Page 1 sur 1
[R] Export Automatique xls vers csv
Posté : jeu. 11 sept. 2014 12:37
par Kikki1970
[Export Automatique xls vers csv]
Bonjour à toutes et à tous,
Je débute sur AutiIt et je cherche un code qui permettrait d'exporter un fichier toto.xls en toto.csv.
Tout cela de façon automatique.
Par exemple clic droit sur fichier convertir vers csv ou dépot du fichier dans un répertoire TMP et une routine qui fait la manip.
Si quelqu'un aurait une idée ?
Merci d'avance
Bien à vous !!!
Kikki
Re: Export Automatique xls vers csv
Posté : jeu. 11 sept. 2014 13:03
par jguinch
Merci de modifier le titre du message afin qu'il respecte les
règles de présentation d'un message.
Pour ta question, la réponse est dans la doc :
User Definied Functions Reference \ Excel Management
Re: [R] Export Automatique xls vers csv
Posté : jeu. 11 sept. 2014 17:42
par Kikki1970
jguinch a écrit :Merci de modifier le titre du message afin qu'il respecte les
règles de présentation d'un message.
Pour ta question, la réponse est dans la doc :
User Definied Functions Reference \ Excel Management
Re-Bonjour,
Désolé jquinch pour les règles, c'est mon premier post... Et merci pour ces infos elles m'ont été très utiles.
Voici le code que j'ai adapté à mes besoins (besoin de renommer toujours le même fichier).
Code : Tout sélectionner
#include <Excel.au3>
#include <MsgBoxConstants.au3>
; Ouverture d'une instance EXCEL et ouverture du fichier
Local $oAppl = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Convertisseur CSV", "Erreur d'ouverture de l'instance EXCEL." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oAppl, "c:\TMP\I190302 1.xls")
If @error Then
MsgBox($MB_SYSTEMMODAL, "Convertisseur CSV", "Aucun fichier adéquate présent à l'emplacement C:\TMP" & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Excel_Close($oAppl)
Exit
EndIf
; *******************************************************************************
; Sauvegarde du fichier (xls) dans un autre format (csv) dans le même répertoire.
; Ecrasement du fichier si existant
; *******************************************************************************
Local $sWorkbook = "c:\TMP\I190302 1.csv"
_Excel_BookSaveAs($oWorkbook, $sWorkbook, $xlCSV, True)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Convertisseur CSV", "Erreur d'enregistrement du fichier à l'emplacement C:\TMP" & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Convertisseur CSV", "Fichier exporter à l'emplacement C:\TMP")
ShellExecute($sWorkbook)
_Excel_Close($oAppl)
Cependant, j'ai recopier de l'exemple ce code suivant:
#include <Excel.au3>
#include <MsgBoxConstants.au3>
(les 2 premières lignes que si je les supprime, cela génère un plantage et je ne comprends pas...).
Mais bon cela fonctionne.
Bien à toi
Kikki.
Re: [..] Export Automatique xls vers csv
Posté : jeu. 11 sept. 2014 21:07
par jguinch
Merci de passer le sujet en [R] si le problème est résolu.
Re: [R] Export Automatique xls vers csv
Posté : mer. 17 sept. 2014 09:37
par Kikki1970
Kikki1970 a écrit :
Cependant, j'ai recopier de l'exemple ce code suivant:
#include <Excel.au3>
#include <MsgBoxConstants.au3>
(les 2 premières lignes que si je les supprime, cela génère un plantage et je ne comprends pas...).
Mais bon cela fonctionne.
Bien à toi
Kikki.
Bonjour à toutes et à tous...
Pouvez vous me dire a quoi corresponde ces 2 lignes de code ?
Je veux juste comprendre ...
Merci d'avance.
Kikki
Re: [..] Export Automatique xls vers csv
Posté : mer. 17 sept. 2014 09:45
par TommyDDR
Les fonctions _Excel_xxx ne sont pas des fonctions natives en AutoIt, elles ont donc été écrites, et je vous le donne en mille, elle sont dans le fichier -> Excel.au3
De même que la variable "$MB_SYSTEMMODAL", elle ne sort pas d'un chapeau magique mais du fichier "MsgBoxConstants.au3"