pb avec "CreateTextFile"

Version imprimable

Bonjour à tous,

j'avais créer une macro sur excel 2003 qui fonctionnait très bien... et sur excel 2010, ça ne marche plus... :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Option Explicit Public Sous_Repertoires() Public NB_SOUS_REP As Integer Public FileSyst As ClFileSearch.ClasseFileSearch, FileSyst2 As ClFileSearch.ClasseFileSearch Sub GENERE_ENTETE(REP_SOURCE As String) Dim FichierPrin Dim i As Integer Dim LIEN, TITRE, TAILLE, LIGNE, DATE_AUJ As String Dim test As Boolean Set FileSyst = CreateObject("Scripting.FileSystemObject") Set FichierPrin = FileSyst.CreateTextFile(REP_SOURCE & "HTML\ENTETE.html", True) ... end sub
il me surligne CreateTextFile et me met le message d'erreur suivant :

Citation:

Erreur de compilation :
Membre de méthode ou de données introuvable

Quelqu'un peut m'aider ?

merci par avance :P

03/05/2013, 11h29
SfJ5Rpw8

Une mauvaise déclaration pour ton FileSyst :

Code:

Public FileSyst As ClFileSearch.ClasseFileSearch,

plutôt

Code:

Public FileSyst As FileSystemObject

ou

Code:

Public FileSyst

et avec ce code, il me met la même erreur... en surlignant "ClFileSearch.ClasseFileSearch"

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
 
Option Explicit
 
Public Sous_Repertoires()
Public NB_SOUS_REP As Integer
Public FileSyst
Public FileSyst2, FileSyst3
 
 
Sub LISTE_FICHIERS(SOCIETE, SUIVI, SOUS_REP, FichierPrin_xml, _
                    REP_SOURCE As String)
 
 
Dim Liste_Fic()
Dim Liste_Annee()
Dim Liste_Mois()
Dim Cpt As Integer, i As Integer, FileSyst2, FichierDroit
Dim TMP, TMP2, NB_FICHIERS As Integer
Dim NOM_FIC, NUM_MOIS, MOIS, ANNEE As String
 
    Set FileSyst = ClFileSearch.ClasseFileSearch
 
    'scanne le répertoire
    With FileSyst
        .LookIn = REP_SOURCE & "PDF\" & SOCIETE & "\" & SUIVI & "\" & SOUS_REP
        .Filename = "*.*"
 
...
 
end sub

03/05/2013, 12h04
SfJ5Rpw8

il faut que tu revois ton code ... ta variable FileSyst ne dois pas changer de type à tout bout de champ ... .. utilise 2 variables une pour la recherche l'autre pour l'écriture dans ton fichier texte ..

ok, du coup, j'ai ça :

en déclaration globale :

Code:

1
2
3
4
5
6
7
 
Option Explicit
 
Public Sous_Repertoires()
Public NB_SOUS_REP As Integer
Public FileSyst
Public FileSyst2, FileSyst3

puis dans une procédure (qui fonctionne parfaitement)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub GENERE_ENTETE(REP_SOURCE As String)

Dim FichierPrin
Dim i As Integer
Dim LIEN, TITRE, TAILLE, LIGNE, DATE_AUJ As String
Dim test As Boolean
    
Set FileSyst3 = CreateObject("Scripting.FileSystemObject")
Set FichierPrin = FileSyst3.CreateTextFile(REP_SOURCE & "HTML\ENTETE.html", True)

...

End sub

mais dans une autre procédure, qui bloque, j'ai ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub LISTE_FICHIERS(SOCIETE, SUIVI, SOUS_REP, FichierPrin_xml, REP_SOURCE As String)


Dim Liste_Fic()
Dim Liste_Annee()
Dim Liste_Mois()
Dim Cpt As Integer, i As Integer, FichierDroit
Dim TMP, TMP2, NB_FICHIERS As Integer
Dim NOM_FIC, NUM_MOIS, MOIS, ANNEE As String

    Set FileSyst = ClFileSearch.ClasseFileSearch

    'scanne le répertoire
    With FileSyst
        .LookIn = REP_SOURCE & "PDF\" & SOCIETE & "\" & SUIVI & "\" & SOUS_REP
        .Filename = "*.*"

...

End sub

et il me met le message suivant :

Citation:

Erreur de compilation :
Membre de méthode ou de données introuvable

06/05/2013, 11h29
SfJ5Rpw8

bonjour

tu devrai relire le tutoriel :

http://silkyroad.developpez.com/vba/classefilesearch/

..
06/05/2013, 14h44
zellinho

merci ! en relisant, j'ai trouvé la solution. Merci !

:ccool: