Pb creatObject

[Amaury]

Bonjour à tous,
voilà lors d'une macro je crée un objet de type dictionaray et tout s'execute bien comme il le faut. Ensuite, je veux retravailler cela chez moi, et là lors de l'ajout d'une paire clé/valeur j'ai une erreur:
Erreur 91: variable objet ou variable de bloc with non definie

j'ai cherché un peu sur le netmaisrien de très concret.
Que ce soit au boulot ou chez moi, je suis sous windows XP et j'ai office 2003. de plus j'ai bien regarde si la référence microsoft runtimme script était bien coch駧
J'espère que quelqu'un va pouvoir m'aider.

mercii

 

[MichelXld]

bonjour Amaury

difficile de répondre sans voir ta macro

ci joint un exemple qui fonctionne chez moi ( WinXP et Excel2002) pour supprimer les lignes en double dans un fichier texte

Option Explicit

Const ForReading = 1
Const ForWriting = 2

Sub supprimetTexteEndouble()
'necessite d'activer la reference Microsoft Scripting Run Time
'
'source
'http://microsoft.supinfo.com/scripts/14082/
'
Dim objDictionary As Scripting.Dictionary
Dim objFSO As Scripting.FileSystemObject
Dim objFile As Scripting.TextStream
Dim strKey 'As ????????????????
Dim strName As String

Set objDictionary = CreateObject('Scripting.Dictionary')

Set objFSO = CreateObject('Scripting.FileSystemObject')
Set objFile = objFSO.OpenTextFile _
('C:\\Documents and Settings\\michel\\dossier\\general\\excel\\monFichier.txt', ForReading)

Do Until objFile.AtEndOfStream
strName = objFile.ReadLine
If Not objDictionary.Exists(strName) Then objDictionary.Add strName, strName
Loop

objFile.Close

Set objFile = objFSO.OpenTextFile _
('C:\\Documents and Settings\\michel\\dossier\\general\\excel\\monFichier.txt', ForWriting)

For Each strKey In objDictionary.Keys
objFile.WriteLine strKey
Next

objFile.Close
End Sub

bonne journée
MichelXld