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 ^^

[Nissartis]

Alors le code qui me pose soucis est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Try
            For i = 1 To 26
                wsExcel = wbExcel.Worksheets(i)
                wsExcel.Select()
                Console.WriteLine("Traitement du feuillet: " & wsExcel.Name())
                tempo(1000)
                'wsExcel.SaveAs(Filename:=Chemin & wsExcel.Name() & ".csv", FileFormat:=xlCSV, CreateBackup:=False)
                'appExcel.ActiveWorkbook.SaveAs(Filename:=Chemin & wsExcel.Name() & ".csv", FileFormat:=xlCSV, CreateBackup:=False)
            Next i
        Catch
            Console.WriteLine("Impossible de generer les CSV.")
        End Try

Donc je m'explique:
-Je les selectionne 1 par 1 mes feuillets (ça c'est OK)
-j'écris le nom du feuillet actif (ça c'est OK)
-Petite Tempo de 1s (OK)
-Enregistrer le feuillet actif en CSV avec le NomDuFeuillet.CSV (ECHEC)

Le soucis c'est que j'arrive pas a trouver la bonne combinaison pour l'enregistrer, en sachant que xlCSV est une Variable non défini ....

Quelqu'un a une solution ?

Edit1:
-Ouverture du Programme. OK
-Link du programme avec Excel.OK
-Ouverture du fichier Excel.OK
-Selectionner 1 par 1 les feuillets OK
-Enregistrer chaque feuillet en CSV avec le Nom du Feuillet ECHEC
-Fermeture du fichier Excel.OK
-Fermeture du programme.OK

Edit2:
En gros c'est le code suivant qui en VBA, que je dois mettre en VB qui me pose problême

Code :

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

1
2
 activeWorkbook.saveas(Filename:=Chemin & Activesheet.name & ".csv", _
            FileFormat:=xlCSV, CreateBackup:=False)

[Skalp]

Effectivement, si tu mets du code VBA, n'espère pas qu'il soit exécuté en VB.NET

Ton SaveAs() devrait ressembler plutot à ça :

Code :

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

1
2
Dim missing As Object = System.Reflection.Missing.Value
appExcel.ActiveWorkbook.SaveAs(Chemin & wsExcel.Name() & ".csv", XlFileFormat.xlCSV, missing, missing, missing, False, XlSaveAsAccessMode.xlNoChange, missing, missing, missing, missing, missing)

[Nissartis]

alooooorsss
J'ai testé ce que tu m'as donné, le seul endroit ou ça bloque c'est au niveau du Filename.

si je le met en dur : "C:\ .....", ça marche très bien MAIS si je rajoute un quelconque---> & wsExcel.Name(), là il veut pas

La concatenation des chaines s'affiche correctement, mais son utilisation dans Save As ne marche pas :s

[Nissartis]

Apres de multiple test, la conclusion est la suivante: Mon SaveAs ne prend QUE les Filename en Dur o_O

Euh je penses que c'est pas possible là quand même ?! Il doit bien avoir une solution :p

En gros si je met ce code:

Code :

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

1
2
3
4
 
Dim ChemEtCsv As String
ChemEtCsv = "C:\FichierCSV\" & wsExcel.Name() & ".csv"
appExcel.ActiveWorkbook.SaveAs(ChemEtCsv, Microsoft.Office.Interop.Excel.XlFileFormat.xlCSV, missing, missing, missing, False, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange, missing, missing, missing, missing, missing)

Il me sort de mon try en Erreur.

Mais si je met le meme code avec le Filename en Brut:

Code :

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

1
2
3
 
Dim ChemEtCsv As String
appExcel.ActiveWorkbook.SaveAs("C:\FichierCSV\test.csv", Microsoft.Office.Interop.Excel.XlFileFormat.xlCSV, missing, missing, missing, False, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange, missing, missing, missing, missing, missing)

La tous mes 26 feuillets s'écrasent l'un apres l'autre

[Nissartis]

Je le dis mais j'en ai honte ...
Normal que ça marche pas: VB ne crée pas le dossier FichierCSV...

Une fois le dossier crée ça marche niquel !!!
Voilouuu un programme tout beau et tout finis !!!

Par contre Skalp j'ai trouvé une façon peu etre plus simple d'enregistrer, dis moi ce que tu en penses : (Source MDSN pour le 24)

Code :

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

wsExcel.SaveAs(Filename:=("C:\FichierCSV\" & wsExcel.Name() & ".csv"), FileFormat:=24, CreateBackup:=False)

Je proposerai un Tuto pour l'installation de A a Z pour l'utilisation de VB avec Excel, je penses que ça peut être utiles pour les futurs débutants comme moi ^^

[Skalp]

Je le dis mais j'en ai honte ...
Normal que ça marche pas: VB ne crée pas le dossier FichierCSV...

Par contre Skalp j'ai trouvé une façon peu etre plus simple d'enregistrer, dis moi ce que tu en penses : (Source MDSN pour le 24)

Code :

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

wsExcel.SaveAs(Filename:=("C:\FichierCSV\" & wsExcel.Name() & ".csv"), FileFormat:=24, CreateBackup:=False)

Effectivement, c'est plus simple Mais ça doit passer en VB seulement, je ne pense pas que ça compile en C# ou autre.

Je proposerai un Tuto pour l'installation de A a Z pour l'utilisation de VB avec Excel, je penses que ça peut être utiles pour les futurs débutants comme moi ^^

Developpez.com propose déjà de multiples ressources à ce propos ! Mais toute contribution est la bienvenue !
Tu t'es aidé de la msdn seulement ?

[Nissartis]

Pour trouver le 24, oui avec MSDN.

Sinon pour faire mon programme en entier (Vu que c'était la premiere fois que je "touchais" du VB) J'ai pris sur plusieur source (Anglais comme Français) dont des Sources de sur Developpez.com bien entendu.

(Désolé du retard de la réponse, mais je boss que du lundi au Vendredi )