Découpe AUTO de colonne XLS en format txt - VBA Excel

Question

Bonjour

On m 'a donné ce code sous EXCEL , or j'ai pas excel mais open office ou star office

J'ai un message d'erreur ERREUR SYNTAXE - Range inconnu

Voici la formule VBA sous excel, QUELQU' UN PEUT ME LA CONVERTIR EN OPEN OFFICE ??

j'ai 144 colonnes dans ma Feuille3 à convertir dans 144 fichiers texte.

VOICI MON TABLEAU je commence à

B1 à DT1

! !

B84 à DT84

VOICI LA FORMULE QU'ON M'A DONNé :

Sous Excel :

Aller sous VBE

[Alt] + [F11]

Clic droit sur le nom du classeur dans partie gauche

Choisir [Insertion/Module]

Dans le fenêtre de droite, faire un copier/coller de la

procédure ci-dessous :

Sub FormatTexte()

Dim objFSO As Object, objFichier As Object

Dim strFichier As String, Plage As Range

Dim Ligne As Long, Colonne As Long

Dim strLigne As String

' Chemin d'accès au fichier

strFichier = ThisWorkbook.Path & "\1.html"

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Création d'un fichier

Set objFichier = objFSO.CreateTextFile(strFichier, 2)

' Sélection de la plage à couvrir

Set Plage = Range("A1:C5")

strLigne = ""

' Pour chaque ligne de la sélection

For Ligne = 1 To Plage.Rows.Count

' Pour chaque colonne de la sélection

For Colonne = 1 To Plage.Columns.Count

' Si dernière colonne, place code saut de ligne en html

If (Colonne = Plage.Columns.Count) Then

strLigne = strLigne & Cells(Ligne, Colonne).Value & "<BR>"

Else

' Sinon, ajoute un espace entre chaque saisie

strLigne = strLigne & Cells(Ligne, Colonne).Value & " "

End If

Next Colonne

' Écrire nouvelle ligne

objFichier.WriteLine strLigne

Next Ligne

' Fermeture du fichier

objFichier.Close

End Sub

'

Ensuite, sous Excel :

//Outils/Macro/Macro...

Choisir [FormatTexte]

Voir le fichier [1.html] dans le même dossier que le fichier excel.

Mais j'ai erreur de SYNTAXE, range inconnue

Que faut il que je change ou remplace dans cette formule excel pour open office

OU ALORS, faut il que j'adapte la formule ??

MERCI DE VOTRE AIDE

Je ne trouve rien dans les moteurs de recherche

J'offre volontiers une boite de chocolat à celui qui me denoue ce sac de noeux.

MERCI DE VOTRE BON COEUR

LUCKISURF

Invité · Answer

Salut Luckisurf (mutli-posteur) et le forum Un cadeau pour toi Fait appel à ton ami et tu en trouveras d'autre... pas le gout de mettre une liste 8) Mytå...