ouvrir avec un script un fichier csv dans Excel 2010 et le modifier

Version imprimable

25/11/2015, 13h49
Flodev60

2 pièce(s) jointe(s)

ouvrir avec un script un fichier csv dans Excel 2010 et le modifier

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.
Pièce jointe 193553
Pièce jointe 193554

Quelqu'un peut il m'aider svp?

Merci
Salutations
25/11/2015, 14h33
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 ?

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:

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

25/11/2015, 17h54
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

Merci

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:

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

25/11/2015, 20h22
parmi

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

Code:

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)
26/11/2015, 09h34
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+
26/11/2015, 09h42
Flodev60

Ok ca marche,
Merci pour votre aide.

Je poursuit mon cde et reviens vers vous si besoins.

Merci:D
26/11/2015, 10h44
Flodev60

Erreur de compilation Microsoft VBScript

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
26/11/2015, 11h45
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.
26/11/2015, 12h59
Igloobel

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

A+

ouverture xml

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:

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?

27/11/2015, 11h38
parmi

Destion ?

Citation:

With ActiveSheet.QueryTables.Add(Connection:="FINDER;" & fichier, Destion:=Range("A1"))
27/11/2015, 11h45
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