Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA - erreur de compile sur set mavar

VBA - erreur de compile sur set mavar

3 réponses
Avatar
twinley
Bonsoir à tous,

J'ai deux erreurs de compile.

Une, sur set rg
et deux, For B=1 ti Unbound


Qui peut me résoudre cela ?

Merci pour l'aide




Sub EcrireUnFichierTexte()

Dim fso As Object, F As Object
Dim LaLigne As String
Dim Rg As Range, A As Integer
Dim B As Integer, Tblo As Variant

With Worksheets("recap")
Set Rg = .Range("A1:AQ61")
Tblo = Rg
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.CreateTextfile("C:\excel\MonFichier.js")

For A = 1 To UBound(Tblo, 1)
For B = 1 To UBound(Tblo, 2)
LaLigne = LaLigne & Replace(Tblo(A, B), ".", ",") & "$"
Next
LaLigne = LaLigne & vbCrLf
Next
F.WriteLine (LaLigne)
F.Close

End Sub

--
à+twinley
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
twinley
Je ne comprends pas. C'est résolu.

Le texte de cette macro est un copié collé venant de mes notes.
J'ai retrouvé la même version venant d'un post de Michdenis et la
version se compile bien...? Un pb d'espace ou lf !

Sub EcrireUnFichierTexte1()

Dim fso As Object, F As Object
Dim LaLigne As String
Dim Rg As Range, A As Integer
Dim B As Integer, Tblo As Variant

With Worksheets("Feuil1")
Set Rg = .Range("A1:G10")
Tblo = Rg
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.CreateTextfile("C:excelMonFichier.js")

For A = 1 To UBound(Tblo, 1)
For B = 1 To UBound(Tblo, 2)
LaLigne = LaLigne & Replace(Tblo(A, B), ".", ",") & "$"
Next
LaLigne = LaLigne & vbCrLf
Next
F.WriteLine (LaLigne)
F.Close

End Sub


à+twinley

twinley wrote:
Bonsoir à tous,

J'ai deux erreurs de compile.

Une, sur set rg
et deux, For B=1 ti Unbound


Qui peut me résoudre cela ?

Merci pour l'aide




Sub EcrireUnFichierTexte()

Dim fso As Object, F As Object
Dim LaLigne As String
Dim Rg As Range, A As Integer
Dim B As Integer, Tblo As Variant

With Worksheets("recap")
Set Rg = .Range("A1:AQ61")
Tblo = Rg
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.CreateTextfile("C:excelMonFichier.js")

For A = 1 To UBound(Tblo, 1)
For B = 1 To UBound(Tblo, 2)
LaLigne = LaLigne & Replace(Tblo(A, B), ".", ",") & "$"
Next
LaLigne = LaLigne & vbCrLf
Next
F.WriteLine (LaLigne)
F.Close

End Sub



Avatar
Hervé
Bonsoir Twinley,
La variable rg est inutile puisque tu peux affecter directement ta plage au
tableau.

With Worksheets("recap")
Tblo = .Range("A1:AQ61")
End With

Hervé.
"twinley" a écrit dans le message news:
uP4#
Je ne comprends pas. C'est résolu.

Le texte de cette macro est un copié collé venant de mes notes.
J'ai retrouvé la même version venant d'un post de Michdenis et la
version se compile bien...? Un pb d'espace ou lf !

Sub EcrireUnFichierTexte1()

Dim fso As Object, F As Object
Dim LaLigne As String
Dim Rg As Range, A As Integer
Dim B As Integer, Tblo As Variant

With Worksheets("Feuil1")
Set Rg = .Range("A1:G10")
Tblo = Rg
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.CreateTextfile("C:excelMonFichier.js")

For A = 1 To UBound(Tblo, 1)
For B = 1 To UBound(Tblo, 2)
LaLigne = LaLigne & Replace(Tblo(A, B), ".", ",") & "$"
Next
LaLigne = LaLigne & vbCrLf
Next
F.WriteLine (LaLigne)
F.Close

End Sub


à+twinley

twinley wrote:
Bonsoir à tous,

J'ai deux erreurs de compile.

Une, sur set rg
et deux, For B=1 ti Unbound


Qui peut me résoudre cela ?

Merci pour l'aide




Sub EcrireUnFichierTexte()

Dim fso As Object, F As Object
Dim LaLigne As String
Dim Rg As Range, A As Integer
Dim B As Integer, Tblo As Variant

With Worksheets("recap")
Set Rg = .Range("A1:AQ61")
Tblo = Rg
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.CreateTextfile("C:excelMonFichier.js")

For A = 1 To UBound(Tblo, 1)
For B = 1 To UBound(Tblo, 2)
LaLigne = LaLigne & Replace(Tblo(A, B), ".", ",") & "$"
Next
LaLigne = LaLigne & vbCrLf
Next
F.WriteLine (LaLigne)
F.Close

End Sub





Avatar
twinley
Merci Hervé,
une petite amélioration au passage ne fait pas de mal...

Bonsoir

à+twinley

Hervé wrote:
Bonsoir Twinley,
La variable rg est inutile puisque tu peux affecter directement ta plage au
tableau.

With Worksheets("recap")
Tblo = .Range("A1:AQ61")
End With

Hervé.
"twinley" a écrit dans le message news:
uP4#

Je ne comprends pas. C'est résolu.

Le texte de cette macro est un copié collé venant de mes notes.
J'ai retrouvé la même version venant d'un post de Michdenis et la
version se compile bien...? Un pb d'espace ou lf !

Sub EcrireUnFichierTexte1()

Dim fso As Object, F As Object
Dim LaLigne As String
Dim Rg As Range, A As Integer
Dim B As Integer, Tblo As Variant

With Worksheets("Feuil1")
Set Rg = .Range("A1:G10")
Tblo = Rg
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.CreateTextfile("C:excelMonFichier.js")

For A = 1 To UBound(Tblo, 1)
For B = 1 To UBound(Tblo, 2)
LaLigne = LaLigne & Replace(Tblo(A, B), ".", ",") & "$"
Next
LaLigne = LaLigne & vbCrLf
Next
F.WriteLine (LaLigne)
F.Close

End Sub


à+twinley

twinley wrote:

Bonsoir à tous,

J'ai deux erreurs de compile.

Une, sur set rg
et deux, For B=1 ti Unbound


Qui peut me résoudre cela ?

Merci pour l'aide




Sub EcrireUnFichierTexte()

Dim fso As Object, F As Object
Dim LaLigne As String
Dim Rg As Range, A As Integer
Dim B As Integer, Tblo As Variant

With Worksheets("recap")
Set Rg = .Range("A1:AQ61")
Tblo = Rg
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.CreateTextfile("C:excelMonFichier.js")

For A = 1 To UBound(Tblo, 1)
For B = 1 To UBound(Tblo, 2)
LaLigne = LaLigne & Replace(Tblo(A, B), ".", ",") & "$"
Next
LaLigne = LaLigne & vbCrLf
Next
F.WriteLine (LaLigne)
F.Close

End Sub