Discussion :

[Nissartis]

Bonjour à tous !!!

Situation....
Voilà j'ai ce petit bout de code en VBA (Excel) qui permet de sauvegarder les feuillets qui sont dans 1 excel par autant de fichier CSV.

Code :

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

1
2
3
4
5
6
7
8
9
  Application.displayAlerts = False
        Dim LaFeuille As worksheet, Chemin As String
        Chemin = "C:\FichierCSV\"
        For Each LaFeuille In ActiveWorkbook.worksheets
            LaFeuille.select()
            activeWorkbook.saveas(Filename:=Chemin & Activesheet.name & ".csv", _
            FileFormat:=xlCSV, CreateBackup:=False)
        Next
        Application.displayAlerts = True

Ce VBA est à la base dans une Maccro (un bouton). Il marche très bien et genere correctement les fichiers CSV.


Ce que je souhaite faire....
On souhaite automatiser cette action. C'est a dire éviter que l'utilisateur ouvre le fichier excel, crée un bouton, link le VBA, et éxécute le bouton.
En gros l'algo serait:
-Ouverture du Programme.
-Link du programme avec Excel.
-Ouverture du fichier Excel.
-Execution de la partie Script ExlToCsv (le code ci-dessus).
-Fermeture du fichier Excel.
-Fermeture du programme.


L'utilisation finale....
Une fois le fichier Excel récupéré, je cliquerais sur l'exe qui exécutera le script pour créer les fichiers CSV. (L'exe et le Excel seront dans le même répertoire).
Le nom du fichier excel ne changera jamais.

Donc je pensais me tourner vers VB 2008 Exp, faire un projet console.
Est ce possible? Si oui pouvez vous m'y aider?

Cordialement,
Nissartis.

[Nissartis]

Bon pour l'instant en cherchant un peu partout je me retrouve avec ce code :

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
Module Module1
 
    Sub Main()
 
        Dim appExcel As Microsoft.Office.Interop.Excel.Application 'Variable Application Excel
        Dim wbExcel As Microsoft.Office.Interop.Excel.Workbook 'Variable Classeur Excel
        Dim wsExcel As Microsoft.Office.Interop.Excel.Worksheet 'Variable Feuille Excel
 
 
        appExcel.displayAlerts = False  'On désactive les alertes
        appExcel = CreateObject("Excel.Application")    'Ouverture de l'appli
        wbExcel = appExcel.Workbooks.Open("C:\irrdbu.xls")    'Ouverture du fichier Excel
        wsExcel = wbExcel.Worksheets(1) 'Selection de la premiere feuille
        wsExcel.visible = True  'On affiche la feuille
        appExcel.Visible = True 'On affiche Excel
 
        Dim LaFeuille As wbExcel.worksheet, Chemin As String
        Chemin = "C:\FichierCSV\"   'Chemin où seront les CSV
        For Each LaFeuille In wbExcel.ActiveWorkbook.worksheets
            LaFeuille.select()
            activeWorkbook.saveas(Filename:=Chemin & Activesheet.name & ".csv", _
            FileFormat:=xlCSV, CreateBackup:=False)
        Next
 
    End Sub
 
End Module

Petit soucis n'éyant pas Office 2k3 sur mon poste, je n'ai pas Microsoft.Office.Interop.Excel.dll
donc si quelqu'un pourrait me dire si ça compile ou si ça semble correct ?

Cordialement,
Nissartis.

[Nissartis]

Bonjour.

Quelqu'un pourrait m'expliquer pourquoi je n'arrive pas a trouver cette .DLL ?!
Je suis sur un poste avec Office 2k3 et rien n'y fais. J'ai beau faire:
Projet >> Ajouter une référence >> .NET ou COM >> je me retrouve toujours avec mes variables soulignées en Bleu disant qu'elle en sont pas défini.
(Microsoft.Office.Interop)

Une solution ?

[Nissartis]

Solution trouvé

Il faut re-executer l'install d'office, et dans l'instal personnalisé il faut mettre sous excel -> Prise en charge de .NET

Bon je continue à faire mon programme

[Skalp]

Bravo, bel exemple de persévérance dans tes recherches

N'oublie pas le tag

[Nissartis]

Oulaaaa attend ^^
J'ai juste résolu le petit soucis de compilation

Le Programme est presque finis mais j'ai un soucis sur une seule ligne ... la sauvegarde du fichier ...

Donc pour résumé:
Ouvrir le fichier Excel = OK
Séléctionner les feuillets un par un = OK
Sauvegarde du feuillet selectionner en CSV avec le nom du Feuillet = ECHEC.

Je vais vous mettre une copie de mon code si vous pouvez m'aider ça serait bien ^^