Discussion :

[Flodev60]

Bonjour,

J'ai besoin d'ouvrir un fichier .csv dans Excel 2010 qui n'a jamais le même nom (je souhaite donc le rechercher dans une liste)
Ce fichier csv est la base au format xml mais je n'arrive pas à l'ouvrir, c'est pour cela que je le met en csv.
L'idée est donc ensuite de modifier le csv mais je bloque déjà pour charger le csv par le script.

Je joint le fichier excel dans lequel j'ai injecté une macro que j'ai trouvé sur des forum.
J'ai une erreur que je ne comprend pas: erreur de compilation, Type efini par l'utilisateur non défini.
importer csv excel.xlsm
222ACW0831540.xml

Quelqu'un peut il m'aider svp?

Merci
Salutations

[parmi]

Bonjour,

Prend le temps de lire les règles du site concernant les fichiers joints, entre autres.
Comme je n'ouvre pas de fichiers contenant des macros, est-ce que tu peux mettre le bout de code qui fait défaut (en utilisant le bouton # pour le formater) et dire où est-ce que ça plante ?

[Flodev60]

Bonjour et merci pour votre retour,
Veuillez m'excuser c'est la première fois que je viens sur un site d'entre aide de dévelopement...
Ci-dessous le code que j'ai dans Excel (dans un module), il bloque au Private sub (il me semble) avec "Dim FSO As Scripting.FileSystemObject" qui est grisé.

Merci

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
' Sous VBE cocher référence Microsoft Scripting Runtime
Option Explicit
 
Sub Lecture()
Dim fichier As Variant
    ChDir ThisWorkbook.Path
    fichier = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
    If fichier <> False Then Lire fichier
End Sub
 
 
Private Sub Lire(ByVal sNomFichier As String)
Dim s As String
Dim FSO As Scripting.FileSystemObject
Dim fichier As Scripting.TextStream
Dim iRowS As Long, iRowD As Long, iCol As Long
Dim Ar() As String
Dim i As Long
Const Separateur As String * 1 = ","
 
    Worksheets("Samedi").Cells.Clear
    Worksheets("Dimanche").Cells.Clear
 
    Application.ScreenUpdating = False
 
    Set FSO = New Scripting.FileSystemObject
    Set fichier = FSO.GetFile(sNomFichier).OpenAsTextStream(ForReading)
 
    iRowS = 0: iRowD = 0
    Do While Not fichier.AtEndOfStream
        iCol = 1
        s = fichier.ReadLine
        Ar = Split(s, Separateur)
        Select Case Ar(5)
            Case "Samedi"
                iRowS = iRowS + 1
                For i = LBound(Ar) To UBound(Ar)
                    Worksheets("Samedi").Cells(iRowS, iCol) = Ar(i)
                    iCol = iCol + 1
                Next i
            Case "Dimanche"
                iRowD = iRowD + 1
                For i = LBound(Ar) To UBound(Ar)
                    Worksheets("Dimanche").Cells(iRowD, iCol) = Ar(i)
                    iCol = iCol + 1
                Next i
        End Select
    Loop
    fichier.Close
 
    Set fichier = Nothing
    Set FSO = Nothing
 
    Application.ScreenUpdating = True
End Sub

[parmi]

As-tu créé une référence au scripting object ?

Sinon, va dans le menu Outils / Références (dans VBA)
Recherche Microsoft Scripting Runtime et coche la boîte
Ça devrait régler ce problème

[Flodev60]

Ok,
Merci j'ai bien coché cette case.

Par contre, l'objectif est d'écrire le csv dans excel dans le but de le retravailler et là rien ne s'écris...
J'avais récupéré ce code sur un forum pour aller chercher le csv dans un fichier mais la suite ne concerne pas le projet...

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
' Sous VBE cocher référence Microsoft Scripting Runtime
Option Explicit
 
Sub Lecture()
Dim fichier As Variant
    ChDir ThisWorkbook.Path
    fichier = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
    If fichier <> False Then Lire fichier
End Sub
 
 
Private Sub Lire(ByVal sNomFichier As String)
Dim s As String
Dim FSO As Scripting.FileSystemObject
Dim fichier As Scripting.TextStream
Dim iRowS As Long, iRowD As Long, iCol As Long
Dim Ar() As String
Dim i As Long
Const Separateur As String * 1 = ","
 
'    Worksheets("Samedi").Cells.Clear
 '   Worksheets("Dimanche").Cells.Clear
 
'    Application.ScreenUpdating = False
 
 '   Set FSO = New Scripting.FileSystemObject
  '  Set fichier = FSO.GetFile(sNomFichier).OpenAsTextStream(ForReading)
 
   ' iRowS = 0: iRowD = 0
    'Do While Not fichier.AtEndOfStream
     '   iCol = 1
      '  s = fichier.ReadLine
       ' Ar = Split(s, Separateur)
        'Select Case Ar(5)
         '   Case "Samedi"
          '      iRowS = iRowS + 1
           '     For i = LBound(Ar) To UBound(Ar)
            '        Worksheets("Samedi").Cells(iRowS, iCol) = Ar(i)
             '       iCol = iCol + 1
              '  Next i
            'Case "Dimanche"
             '   iRowD = iRowD + 1
              '  For i = LBound(Ar) To UBound(Ar)
               '     Worksheets("Dimanche").Cells(iRowD, iCol) = Ar(i)
                '    iCol = iCol + 1
                'Next i
       ' End Select
    'Loop
'    fichier.Close
 
    Set fichier = Nothing
    Set FSO = Nothing
 
    Application.ScreenUpdating = True
End Sub

Avez vous une astuce pour écrire le csv dans Excel.

Merci
Salutations

[parmi]

Tu peux l'ouvrir comme si c'était un classeur Excel

Code :

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

Workbooks.Open "Chemin et nom du fichier .csv", local:=True

À ce moment-là tu te retrouves avec 2 classeurs.
En utilisant des variables Workbook, tu pourras travailler dans l'un ou l'autre.
Sinon, utiliser ActiveWorkbook (ton csv à l'écran) et ThisWorkbook (le classeur avec macros)

[Igloobel]

Bonjour à tous

un fichier csv est un fichier texte avec des séparateurs comme par exemple " ", TAB, ";" ...
donc pour gérer des fichiers texte tu as ce tuto

http://warin.developpez.com/access/fichiers/

A+

[Flodev60]

Ok ca marche,
Merci pour votre aide.

Je poursuit mon cde et reviens vers vous si besoins.

Merci

[Flodev60]

Re-Bonjour,

Pour lancer le script, on me demande de le l'ouvrir depuis E3 (un logiciel qui lit des scrit en VB).
Donc j'ai placé le script dans un fichier .vbs avec notepad++.
Mais quand je lance le script, il ne m'ouvre pas la recherche du csv et me met le message d'erreur: Erreur de compilation Microsoft VBScript.

Je ne sais pas du tout ce qui peux bloquer.
Avez vous une idée?
Merci
Salutations

[parmi]

Je ne sais pas ce qu'est E3 à part une cellule en Excel...

Si le code démarre d'un script vbs à l'extérieur d'Excel, il te faudrait utiliser des objets Excel:
Excel.Application 'pour créer une instance d'Excel
Workbook
Worksheet
...

Si tu fais une recherche sur CreateObject("Excel.Application"), tu devrais trouver des exemples.

[Igloobel]

Si tu as des souscis d'ouverture de fichier utilise les FileDialogs qui marche très bien sur VBA et VBS

A+

[Flodev60]

Bonjour,

Afin d'ouvrir directement fichier XML sans passer par le CSV, nous avons tenté ce code mais pas myen d'écrire le xml.

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
 
' Sous VBE cocher référence Microsoft Scripting Runtime
Option Explicit
 
Sub Lecture()
Dim fichier As Variant
Dim Faisceau As Variant
Dim Variable As Variant
 
 
    ChDir ThisWorkbook.Path
    fichier = Application.GetOpenFilename("Fichier XML (*.xml), *.xml")
    If fichier <> False Then
 
    With ActiveSheet.QueryTables.Add(Connection:="FINDER;" & fichier, Destion:=Range("A1"))
 
    End With
    End If
    'Workbooks.OpenXML Filename:=fichier
 
 
    '.OpenXML fichier, local:=True
 
End Sub

Avez vous une idée svp?

[parmi]

Destion ?

With ActiveSheet.QueryTables.Add(Connection:="FINDER;" & fichier, Destion:=Range("A1"))

[Flodev60]

Bonjour,
Merci pour ton retour

OOOps,

Destination plutôt...

Je l'ai modifié dans le script ce qui retire l'erreur mais rien ne s'écris pour autant.

salutations

bonjour,

Après analyse, je pense qu'Excel ouvre quelque chose mais ne l'écris pas.
Y a t'il une atuce pour cela svp?

Merci
Salutations

Bonjour,
Pour résumer la situation ;
Le script ci dessus est mis dans visual Basic.
Le but étant d'ouvrir un XML.
Mais je n'y arrive pas, même en manuel, en faisant un import de fichier xml, il y a une erreur.
Y a-t-il des interdits ?
Excel 2010?
Merci Salutations