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

**killysui** · 13/02/2008, 11h07

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.

**killysui** · 13/02/2008, 11h28

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

Merci.

**cafeine** · 13/02/2008, 11h55

Hello,

en plaçant votre code sur l'événement Workbook_Open du dit classeur.

**killysui** · 13/02/2008, 12h17

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.

**cafeine** · 13/02/2008, 12h44

Ajoute du code sur ThisWorkbook dans VBE.

**SilkyRoad** · 13/02/2008, 12h50

bonjour

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

michel

**killysui** · 13/02/2008, 14h42

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 :

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

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

Merci

**mathieu44800** · 13/02/2008, 14h47

Bonjour,

C'est

Code :

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

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+

**killysui** · 13/02/2008, 14h59

Ca ne fonctionne pas.

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

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

**mathieu44800** · 13/02/2008, 15h25

Re,

Moi j'aurais fait comme ça :

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

**killysui** · 13/02/2008, 16h51

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 :

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

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 :

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

objSheet1.Cells(NumLigne, NoColonne) = Valeur

Quelqu'un aurait une idée..

Merci d'avance.

**ouskel'n'or** · 13/02/2008, 16h56

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.

**killysui** · 13/02/2008, 17h05

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 :

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

1
2
3
4
Set objWbk1 = Workbooks.Open(Chemin & "\" & NomFichier)
                Set objSheet1 = objWbk1.Sheets(NomOnglet)
 
                objSheet1.Cells(NumLigne, NumColonne) = Valeur

**ouskel'n'or** · 13/02/2008, 17h33

Code :

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

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 ?

**killysui** · 13/02/2008, 17h42

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 :

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

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

**ouskel'n'or** · 13/02/2008, 17h45

Ajoute Value

Code :

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

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+

**killysui** · 13/02/2008, 18h11

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

**mathieu44800** · 14/02/2008, 09h20

Bonjour,

Code :

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

objSheet1.Cells(NumLigne, NumColonne) = 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 :

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

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 :

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

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 ?

**ouskel'n'or** · 14/02/2008, 09h42

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.

**killysui** · 14/02/2008, 09h48

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

Concernant l'erreur liée au code :

Code :

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

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.

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

Macros et VBA Excel

Discussions similaires

Partager

Partager