Exportation des données d'un Fichier .csv dans des fichiers Excel via une Macro.

Version imprimable

Voir 40 message(s) de cette discussion en une page

13/02/2008, 12h07
killysui

Exportation des données d'un Fichier .csv dans des fichiers Excel via une Macro.

Bonjour,

Je débute sur les macros VBA sous EXCEL.

Je souhaiterai via un fichier .csv qui contient :

NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur
NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur

Remplir les valeurs dans le fichier excel, onglet, ligne et colonne.

Pouvez-vous me dire comment m'y prendre.

Pour info : il existe 4 fichiers Excel, qui contiennent environ 400 onglets.

Merci.
13/02/2008, 12h28
killysui

Pouvez-vous me dire comment lancer une focntion d'un module lors de l'ouverture d'un fichier excel?

Merci.
13/02/2008, 12h55
cafeine

Hello,

en plaçant votre code sur l'événement Workbook_Open du dit classeur.
13/02/2008, 13h17
killysui

Merci pour la réponse...

Cependant, j'a effectivement trouvé la méthode "Workbook_Open" d'une feuille mais pas celle du classeur.

Pouvez-vous me dire comment faire exectement?

Merci d'avance.
13/02/2008, 13h44
cafeine

Ajoute du code sur ThisWorkbook dans VBE.
13/02/2008, 13h50
SilkyRoad

bonjour

http://silkyroad.developpez.com/VBA/EvenementsClasseur/

michel
13/02/2008, 15h42
killysui

Merci pour vos réponses et pour ce lien. j'ai enfin réussi à lancer des fonction au démarrage.

Cependant j'aurai encore une question :

Comment je peux affectuer une valeur à une cellule dont je connais
- le nom du fichier EXCEL
- l'onglet(feuille)
- la ligne
- et la colonne.

Voici ce que j'ai essayé mais cella ne fonctionne pas :

Code:

Sheets(NomOnglet).Cells(NomLigne, NomColonne) = Value

Merci
13/02/2008, 15h47
mathieu44800

Bonjour,

C'est

Code:

Sheets("Feuil").Cells(NUMERO_LIGNE, NUMERO_COLLONE) = ...

Tapes sur F1 sur le mot clé que tu ne connais pas et accède à l'aide...

A+

Ca ne fonctionne pas.

Voici le code que j'ai écris jusqu'a présent :

Code:

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
28
29
30
31
32
33
34
35
 
Dim LigneCSV As String, NoLigne As Long, NoLigneCVS As Integer
Dim TableauLignesCSV, TableauValeurLigne
Dim NomFichier, NomOnglet, NumLigne, NoColonne, Valeur
Dim Chemin, NomFichCSV, NomFichEXCEL
 
Chemin = "...."
NomFichCSV = "Test.csv" 'ou .txt
NomFichEXCEL = ""
 
    Dim i As Integer
    i = 0
    Open Chemin & NomFichCSV For Input As #1
    While Not EOF(1)
        Input #1, LigneCSV
        TableauLignesCSV = Split(LigneCSV, ";")
        For NoLigneCVS = 0 To UBound(TableauLignesCSV)
            TableauValeurLigne = Split(TableauLignesCSV(NoLigneCVS), "|")
            NomOnglet = TableauValeurLigne(1)
            NumLigne = TableauValeurLigne(2)
            NoColonne = TableauValeurLigne(3)
            Valeur = TableauValeurLigne(4)
 
            If NomFichEXCEL = "" Or TableauValeurLigne(0) <> NomFichEXCEL Then
                NomFichier = TableauValeurLigne(0)
                'Ouvrir le fichier Excel
 
                'Insertion de la valeur dans la cellule
                Sheets(NomOnglet).Cells(NumLigne, NoColonne) = Value
            Else
 
            End If
        Next
    Wend
    Close #1

PS : La fonction F1 ne fonctionne pas sur mon poste.

Re,

Moi j'aurais fait comme ça :

Code:

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
28
29
30
 
 
    Dim objFSO As New Scripting.FileSystemObject
    Dim objWbk As New Excel.Workbook
    Dim objSheet As New Excel.Worksheet
    Dim objWbk1 As New Excel.Workbook
    Dim objSheet1 As New Excel.Worksheet
 
    strCheminS = "Chemin de ton CVS"
    strFeuil = "Le nom de ta feuil CSV"
    If (objFSO.FileExists(strCheminS)) Then
         Set objWbk = Workbooks.Open(strCheminS)
         Set objSheet = objWbk.Sheets(strFeuil)
         objSheet.Activate
         Set objWbk1 = Workbooks.Open("Chemin de Destination")
         Set objSheet1 = objWbk1.Sheets("Feuille de Destination")
         For i = 2 To 10000
             If (objSheet.Cells(i, 1) <> "") Then
                 strTab = Split(objSheet.Cells(i, 1), ";")
                 objSheet1.Cells(NumLigne, NumCol) = strTab(1)
             End If
        Next i
 
       objWbk.Close False
       Set objWbk = Nothing
       objWbk1.Close True, strCheminD
       Set objWbk1 = Nothing
   Else
         MsgBox "Fichier Non Trouvé !"
   End If

13/02/2008, 17h51
killysui
Merci pour les réponses...

J'en m'inspire pour mon code, cepandant je n'arrive toujours pas à trouver la solution(que je dois rendre pour ce soir).

voici une partie de mon code :
Code:

1 2 3 4 Set objWbk1 = Workbooks.Open(Chemin & "\" & NomFichier) Set objSheet1 = objWbk1.Sheets(NomOnglet) objSheet1.Cells(NumLigne, NoColonne) = Valeur
une erreur apparait sur cette ligne de code :

Code:

objSheet1.Cells(NumLigne, NoColonne) = Valeur

Quelqu'un aurait une idée..

Merci d'avance.
13/02/2008, 17h56
ouskel'n'or

Pour récupérer un csv, tout dépend de ta version d'office. Jète un oeil ici.
Si ça ne te va pas, tu as la solution consistant à l'ouvrir en tant que txt.
Tu dis et je te passe le code.
13/02/2008, 18h05
killysui
Pour l'ouverture du fichier .csv je n'ai aucun problème.

Mon problème est lorsque que je veux mettre une valeur dans une cellule de la manière suivante :
Code:

1 2 3 4 Set objWbk1 = Workbooks.Open(Chemin & "\" & NomFichier) Set objSheet1 = objWbk1.Sheets(NomOnglet) objSheet1.Cells(NumLigne, NumColonne) = Valeur
Pour rappel ma valeur, le num de la ligne, le num de la colonne, le nom de l'onglet(feuille) et le nom de mon fichier Excel ce trouve dans mon fichier Excel de la manier suivante (séparé par des |) :

NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur;
NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur;

Code:

1
2
3
4
5
6
7
Dim NomsDivers as variant
NomsDivers = Split("NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur;","|")
NomFich = NomsDivers(0)
NomOnglet = NomsDivers(1)
NoLig = Val(NomsDivers(2))
NoCol = Val(NomsDivers(3))
Valeur = Replace(NomsDivers(4),";","")

Après, tu sauras quoi en faire ? ;)

Merci ouskel'n'or... Mais cette partie est déja faite...

En fait, il me reste toujours la partie permettant de mettre la valeur dans la cellule voulu :

Voici comment je me suis pris jusqu'à présent mais cela ne fonctionne pas :

Code:

1
2
3
4
5
6
7
8
9
10
Set objWbk1 = Workbooks.Open(Chemin & "\" & NomFichier)
                Set objSheet1 = objWbk1.Sheets(NomOnglet)
                 If Not objSheet1 Is Nothing Then
                    MsgBox "La feuille existe dans le classeur."
                    'Insertion de la valeur dans la cellule
                    'Sheets(NomOnglet).Cells(NumLigne, NumColonne) = Valeur
                    objSheet1.Cells(NumLigne, NumColonne) = Valeur
                 Else
                    MsgBox "La feuille n'existe pas dans le classeur."
                End If

La feuille existe bien mais la valeur ne veut pas se mettre dans la cellule je ne sais pas pourquoi... :cry:

13/02/2008, 18h45
ouskel'n'or

Ajoute Value

Code:

objSheet1.Cells(NumLigne, NumColonne).value = Valeur

Parfois, dans certains cas (!!!) il le faut. Et ne me demande pas de préciser, je n'ai pas identifié les conditions...
A tout hasard
Tu dis
A+
13/02/2008, 19h11
killysui

Et non ça ne fonctionne pas non plus pourtant la feuille existe bien...:cry:

Bonjour,

Citation:

Code:

objSheet1.Cells(NumLigne, NumColonne) = Valeur

Pour rappel ma valeur, le num de la ligne, le num de la colonne, le nom de l'onglet(feuille) et le nom de mon fichier Excel ce trouve dans mon fichier Excel de la manier suivante (séparé par des |) :

NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur;
NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur;

Fait tout d'abord un MsgBox de NumLigne, NumColonne pour voir ce qu'il y a dedans...

Essayes de parcourir ton fichier ou il y a les données, de faire un Split("Ta_Ligne", "|") et de le mettre dans un tableau.
Code:

1 2 3 4 5 6 7 8 9 10 11 Set objWbk1 = Workbooks.Open(Chemin & "\" & NomFichier) Set objSheet1 = objWbk1.Sheets(NomOnglet) If Not objSheet1 Is Nothing Then MsgBox "La feuille existe dans le classeur." 'Insertion de la valeur dans la cellule MsgBox NumLigne & ", " & NumColonne objSheet1.Cells(NumLigne, NumColonne) = Valeur Else MsgBox "La feuille n'existe pas dans le classeur." End If
Tu peux utiliser les objets FSO (Scripting.FileScriptingObject) pour tester l'existance de ton fichier (référence Microsoft Scripting Runtime)
Code:

1 2 3 4 5 6 7 8 Dim objFSO as New Scripting.FileSystemObject ' [...] If (objFSO.FileExists(Chemin & "\" & NomFichier)) Then '[...] Else Msgbox "Fichier Introuvable !" End If
J'ai aussi d'autres questions :
- Le fichier de destination est-il aussi en csv (ou séparé par des "|") ?
- Est ce que tu sauves bien à la fin les changements ?

14/02/2008, 10h42
ouskel'n'or

Citation:

Envoyé par mathieu44800

Fait tout d'abord un MsgBox de NumLigne, NumColonne pour voir ce qu'il y a dedans...

+1 ou un debug.print.
Tu ne nous dis pas comment tu lis ta ligne "NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur;"... Ça aussi ce serait intéressant.
14/02/2008, 10h48
killysui

Merci pour l'intérêt sur mon problème...

Concernant l'erreur liée au code :

Code:

objSheet1.Cells(NumLigne, NumColonne) = Valeur

cela était lié au faite que les paramétre NumLigne et NumColonne étaient des string et non pas des integer....

Comment je fait pour sauvegarder le fichier ?

et enfin non le fichier n'est pas en .csv mais des fichier excel (lister dans le fichier .csv.) ... D'ailleur comment je peux savoir que le fichier est déja ouvert?

Merci d'avance.

10 réponses plus tôt
Citation:
Envoyé par ouskel'n'or
Code:

1 2 3 4 5 6 7 Dim NomsDivers as variant NomsDivers = Split("NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur;","|") NomFich = NomsDivers(0) NomOnglet = NomsDivers(1) NoLig = Val(NomsDivers(2)) NoCol = Val(NomsDivers(3)) Valeur = Replace(NomsDivers(4),";","")
Après, tu sauras quoi en faire ? ;)
Faut lire ! ;)

14/02/2008, 10h55
killysui

autre petit problème la valeur NomFichier contient un retour chariot je croit... comment je pourrais le supprimer ?

Sinon je mets NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur; et mis dans un tableau avec split | puis les valeurs sont mis dans des variables.

Re,

Sauvegarder le fichier et libérer les variables :
Code:

1 2 3 4 Set objSheet1 = Nothing objWbk.Close True, "Chemin de Destination" Set objWbk = Nothing
A+

14/02/2008, 11h05
ouskel'n'or
Citation:

Envoyé par killysui

autre petit problème la valeur NomFichier contient un retour chariot je croit... comment je pourrais le supprimer ?

Pour le savoir, tu peux tester avec instr
Code:

1 2 3 If instr(NomFichier, vbcr) <> 0 Then msgbox "t'as un cr dans le nom (carriage return)" 'ou If instr(NomFichier, vblf) <> 0 Then msgbox "t'as un lf dans le nom"
Pour enlever l'un et/ou l'autre

Code:

NomFichier = Replace(Replace(NomFichier, vblf, ""), vbcr, "")

Citation:

Envoyé par killysui

Sinon je mets NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur; et mis dans un tableau avec split | puis les valeurs sont mis dans des variables.

Ce n'était pas ma question. Comment lis-tu les lignes de ton csv ? Quelle méthode ? Fichier texte ou lecture feuille de calculs ?

Pour répondre à ta question :

voici le code de lecture :

Code:

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
 
    Chemin = ThisWorkbook.Path
    NomFichCSV = "Test.csv"
    NomFichEXCEL = ""
 
    Dim F As Integer
 
     F = FreeFile '1er numéro libre
     Open Chemin & "\" & NomFichCSV For Input As #F 'ouvert en ajout
 
    'Open Chemin & "\" & NomFichCSV For Input As #1
        Do While Not EOF(F)
         Line Input #F, LigneCSV
         TableauLignesCSV = Split(LigneCSV, ";")
         For NoLigneCVS = 0 To UBound(TableauLignesCSV)
             TableauValeurLigne = Split(TableauLignesCSV(NoLigneCVS), "|")
             'If Not TableauValeurLigne Is Nothing Then
                 NomOnglet = TableauValeurLigne(1)
                 NumLigne = Val(TableauValeurLigne(2))
                 NumColonne = Val(TableauValeurLigne(3))
                 Valeur = Val(TableauValeurLigne(4))
......
Next
       Loop
    Close #F

14/02/2008, 11h16
mathieu44800

RE,

Résolu, Non??

A+

J'aurai bien voulu... mais je n'ai pas encore fini...

Je boucle une fois de trop dans mon fichier
Code:

1 2 3 4 For NoLigneCVS = 0 To UBound(TableauLignesCSV) TableauValeurLigne = Split(TableauLignesCSV(NoLigneCVS), "|") 'If Not TableauValeurLigne Is Nothing Then NomOnglet = TableauValeurLigne(1)
du coup j'ai une erreur... comment je peux la gérer?

Merci

Citation:

Envoyé par killysui

Pour répondre à ta question :

voici le code de lecture :

Code:

1
2
3
4
5
6
7
8
9
10
     F = FreeFile '1er numéro libre
     Open Chemin & "\" & NomFichCSV For Input As #F 'ouvert en ajout
 
    'Open Chemin & "\" & NomFichCSV For Input As #1
        Do While Not EOF(F)
         Line Input #F, LigneCSV
         TableauLignesCSV = Split(LigneCSV, ";")
         For NoLigneCVS = 0 To UBound(TableauLignesCSV)
             TableauValeurLigne = Split(TableauLignesCSV(NoLigneCVS), "|")
         '...

Alors, en principe, tu n'as ni vbcr ni vblf ni vbcrlf dans ta ligne.
Qu'est-ce qui te fait penser que tu as l'un ou l'autre dans le nom de fichier ?

14/02/2008, 11h59
mathieu44800

RE,

Code:

For NoLigneCVS = 0 To (UBound(TableauLignesCSV) - 1)

Non??
14/02/2008, 12h12
killysui
Oui moi aussi lorsque j'ai vu cela ca ma paru bizar ... mais à la deuxième ligne une retour chariot(le fichier .csv a du être mal fait..j'ai ). Avec le replace cela fonctionne mieux.

J'aurai une dernière question(du moin je l'espère)
la fermeture
Code:

1 2 3 objWbk1.close true, chemin & "\" & NomFichExcel set objWbk1 = nothing set app = nothing
ne fonctionne pas...
14/02/2008, 12h14
mathieu44800

Re,

Quelle est l'erreur?

A+
14/02/2008, 12h24
ouskel'n'or

... et sur quelle ligne ?
14/02/2008, 12h33
killysui
Désolé je me suis trompé.L'erreur ce produire lors de la fermeture du fichier

Code:

close #f

Ce qui est bizar c'est cette erreur (qui est vide)n'apparait que si je gère les erreurs avec
Code:

1 2 3 4 On Error Goto errrr errr: msgbox "erreur :" & err.description, vbcritical,"erreur import csv"
14/02/2008, 12h34
killysui

C'est à dire que si je décommente cette partie , l'erreur n'apparait pas.
14/02/2008, 12h39
mathieu44800

Re,

Tu n'essayes pas de faire tout ça sur le même fichier??

Tu ne veux pas nous balancer le code au complet, ça sera plus facile pour la compréhension...

A+
14/02/2008, 13h26
ouskel'n'or
Citation:
Envoyé par killysui

Désolé je me suis trompé.L'erreur ce produire lors de la fermeture du fichier

Code:

close #f

Ce qui est bizar c'est cette erreur (qui est vide)n'apparait que si je gère les erreurs avec

Code:

1 2 3 4 On Error Goto errrr errr: msgbox "erreur :" & err.description, vbcritical,"erreur import csv"
Où est placé ton errr: ?
As-tu mis un exit sub avant errr: ?

le errr: et placé juste après

Code:

#close

voici en gros le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
 On Error GoTo Error_LFT
 
 Dim F As Integer
 F = FreeFile '1er numéro libre
 Open Chemin & "\" & NomFichCSV For Input As #F
   Do While Not EOF(F)
      Line Input #F, LigneCSV
      ....
   loop
      ....
 Close #F
 
Error_LFT:
  Beep
  MsgBox "Rrreur : " & vbCrLf & Err.Description, vbCritical, "Erreur import .csv"
   Exit Sub

14/02/2008, 15h18
ouskel'n'or
lors ajoute Exit sub
Code:

1 2 3 Close #F Exit sub Error_LFT::
Tu n'iras sur Error_LFT:: que si tu as une erreur, sinon, tu passeras toujours par "là" après close (!)
Tu fermes le csv, pas le fichier contenant la macro, alors elle continue, c'est normal... ;)
14/02/2008, 15h19
killysui

Sinon vous ne saurez pas comment ajouter la classe Scripting dans la bibliothèque ?

Code:

Dim objFSO As New Scripting.FileSystemObject

Merci
14/02/2008, 15h20
killysui

Merci ouskel'n'or.:D Tu es génial.

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 20h18.