Erreur EXcel sur TRIM

[Aladin]

Bonjour le forum
J' ai une macro excelq ui fonctionne tres bien sur un premier poste et sur le deuxieme il provoque une erreur sur trim. voici la macro
Sub Export_txt_mount_1()

Sheets("Base").Select
Dim c As Range, ValC As String
Open "E:\\recap.txt" For Output As 1
For Each c In Range("F3:G102")
ValC = c.Value
If ValC > "" Then
Print #1, Trim(ValC)
End If
Next c
Close #1
End Sub
j' ai vérifié au niveau réréfences mais je ne vois rien de spécial. merci d' avance pour toute aide
Aladin

 

[Aladin]

Re : Erreur EXcel sur TRIM

Bonsoir le forum
N' ayant pas eu de réponse jusqu ' a maintenant je pense que peut etre que je n' ai pas fourni plus d' explication, j' ai le méssage d' érreur suivant
Erreur de compilation
Projet ou bibliotheque introuvable
Blocage sur TRIM
Merci d' vavance pour les réponses
Aladin

 

[Staple1600]

Re : Erreur EXcel sur TRIM

Bonsoir


Et comme ça , il se passe quoi

'ton code
Print #1, Application.Trim(ValC)
'ton code

 

[Staple1600]

Re : Erreur EXcel sur TRIM

Re


Chez moi (XL2000)


Ces deux macros fonctionnent parfaitement

Sub Export_txt_mount_1()
Dim c As Range, ValC As String
Sheets(1).Select
Open "C:\recap.txt" For Output As 1
For Each c In Range("F3:F25")
ValC = c.Value
If ValC <> "" Then
Print #1, Application.Trim(ValC)
End If
Next c
Close #1
End Sub

Sub Export_txt_mount_2()
Dim c As Range
Sheets(1).Select
Open "C:\recap.txt" For Output As 1
For Each c In Range("F3:F25")
If Not IsEmpty(c.Value) Then
Print #1, Application.Trim(c.Value)
End If
Next c
Close #1
End Sub

Que ce soit avec Trim ou Application.Trim

 

[Aladin]

Re : Erreur EXcel sur TRIM

Bonsoir Staple1600 et le forum
J' ai teste tes macros et elles fonctionnent correcctement, dans la mienne je n' avais pas (.Application.Trim).
Merci pour ton aide et bonne continuation
Aladin