Discussion :

[sbastyen]

Bonjour,

Étant novice en programmation VB, je me tourne vers vous pour résoudre mon problème d'ignorance.

J'ai effectué des extractions de fichier csv en powershell d'une base sql, puis des mises en forme en tableaux croisés dynamique par macro excel.
Jusque là tout va bien et fonctionne sans soucis.

Sauf pour deux fichiers qui ne sont pas "formaté" de la bonne façon pour faire un reporting correct.

Plutôt qu'un long discours voici les informations :

Fichier obtenu par extraction (exemple) :

machine,Date,Prenom Nom,Site
Serveur1,08-11-2014,John Doe,Paris
Serveur2,09-11-2014,Bob Marley,Bordeaux
Serveur1 Serveur2 serveur3,10-11-2014,John Doe,Paris
Serveur1 serveurx,11-11-2014,Leititia Casta,Marseille
Serveur1,08-11-2014,super dev,Paris

Mais pour présenter mes tableaux de reporting automatisés je dois avoir comme fichier :

machine,Date,Prenom Nom,Site
Serveur1,08-11-2014,John Doe,Paris
Serveur2,09-11-2014,Bob Marley,Bordeaux
Serveur1,10-11-2014,John Doe,Paris
Serveur2,10-11-2014,John Doe,Paris
serveur3,10-11-2014,John Doe,Paris
Serveur1,11-11-2014,Leititia Casta,Marseille
serveurx,11-11-2014,Leititia Casta,Marseille
Serveur1,08-11-2014,super dev,Paris

J'ai essayé depuis l'extraction en powershell mais la zone machine extraite dans la base SQL pour avoir cette information ne le permet pas. J'ai essayé avec une macro excel sans plus de succès.

J'ai passé 2 jours à chercher sur le web et à faire des tests en VB mais je me rend compte que je suis plus que débutant. Pour la méthode je pense être au point, mais pour le réaliser je suis un cancre. Je pense que la solution est simple et devant mon nez.

Merci de votre aide

cdlt

Sébastien

[pc75]

Bonjour,

Ca devrait t'aider :

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
 
Dim lig(5)
lig(1) = "Serveur1,08-11-2014,John Doe,Paris"
lig(2) = "Serveur2,09-11-2014,Bob Marley,Bordeaux"
lig(3) = "Serveur1 Serveur2 serveur3,10-11-2014,John Doe,Paris"
lig(4) = "Serveur1 serveurx,11-11-2014,Leititia Casta,Marseille"
lig(5) = "Serveur1,08-11-2014,super dev,Paris"
 
For i = 1 To 5
    colonnes = Split(lig(i), ",")
    Serveurs = Split(colonnes(0), " ")
    If UBound(Serveurs) > 0 Then
        For j = 0 To UBound(Serveurs)
            msg = msg & Serveurs(j) & ", " & colonnes(1) & ", " & colonnes(2) & colonnes(3) & Chr(13)
        Next
    Else
        msg = msg & lig(i) & Chr(13)
    End If
Next
msgbox msg

[ProgElecT]

Salut sbastyen et pc75
Ligne 14

Code :

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

            msg = msg & Serveurs(j) & ", " & colonnes(1) & ", " & colonnes(2) & "," & colonnes(3) & Chr(13)

[sbastyen]

Un grand merci pour vos réponses. Je n'ai pas pu tester vos modifications.

Après mes réunions, je les tests et vous tiens informé au plus vite.

Cordialement

Sbastyen

[sbastyen]

Bonjour,

Je n'ai pas réussi en VB à faire ce que je voulait.

J'ai pris la bonne vieille méthode du batch.

Voici ce que cela donne :

Créer un batch avec les commandes ci-dessous puis lancer le batch avec en argument le nom du fichier à traiter.

Commandes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
@echo off
setlocal ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
set nf=%~n1_BIS.csv.csv
::del %nf%
>%nf% echo.
FOR /F "skip=1 eol=; tokens=1,2* delims=," %%i in (%1) do set servernames=%%~i&&set reste=%%j, %%k&&call :action1
@echo on
@echo Creation du fichier %nf%
@type %nf%
goto :eof
:action1
::echo %servernames%, %reste%
FOR %%a in (%servernames%) do echo %%a, %reste:"=%>>%nf%
exit/B

Cela fonctionne sans problème.

Encore merci pour votre aide

Cordialement

Sbastyen