Sauvegarde d'une variable dans un fichier texte

Version imprimable

22/01/2018, 10h07
thais781

Sauvegarde d'une variable dans un fichier texte

Bonjour,

Dans mon code VBA, j'ai une variable qui contient des chaines de caractère (string classique) et je souhaiterai sauvegarder ces données dans un fichier .txt
Mon soucis est que ce code doit être cross plateforme et pouvoir tourner aussi bien sous windows que sous mac .... et la ca se complique

Une petite piste ?

Merci d'avance

Thais
22/01/2018, 10h45
Menhir

Le plus simple :
Tu crées un nouveau classeur avec Workbooks.Add
Tu copies tes données dans la feuille de ce classeur
Tu sauvegardes au format xlTextWindows ou xlTextMac avec un SaveAs.
Tu fermes le fichier avec un Close.

Bien sûr tu pourrais faire ça avec un traitement séquentiel mais ça ne sera pas plus simple.

Citation:

Mon soucis est que ce code doit être cross plateforme et pouvoir tourner aussi bien sous windows que sous mac

Tu mets le SaveAs dans une structure If qui vérifie la propriété OperatingSystem. https://msdn.microsoft.com/fr-fr/VBA...property-excel
En fait, tu fais un SaveAs pour Mac et un pour Windows en modifiant le format et le chemin.
22/01/2018, 10h46
Marc-L

Bonjour !

Citation:

Envoyé par thais781

Mon soucis est que ce code doit être cross plateforme et pouvoir tourner aussi bien sous windows que sous mac

Merci alors d'indiquer précisément et techniquement l'attendu après avoir comparé les deux plateformes …
L'instruction pour créer un fichier texte étant unique en VBA et ce, peu importe MAC ou PC.

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour,

Merci pour votre aide
Effectivement marche pas mal .... sauf un truc bizarre ....
Le code qui fonctionne :
Code:

1 2 3 4 5 6 Sheets("Feuil1").Select Sheets("Feuil1").Copy ActiveWorkbook.SaveAs FileName:="/Users/testuser/Desktop/toto.txt", _ FileFormat:=xlUnicodeText, CreateBackup:=False ActiveWindow.Close
Mais dès que j'essaye de modifier le nom du fichier cible dans la macro, je me retrouve avec une erreur d'execution 1004, "Nous ne pouvons pas accéder au fichier tata.txt"
Alors que la seule modification faite est le remplacement de toto.txt par tata.txt

Curieux .....8O

J'ai loupé quelque chose ?

Thais

Bonjour
une autre methode non conventionnelle

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
Sub test()
    Dim plage As Range, EXT As String, chemin As String
    Set plage = Range("A1:C10")' preciser la plage ici (activesheet.usedrange pour tout la partie utilisée) 
    chemin = "C:\Users\" & Environ("username") & "\Desktop\" & Replace(plage.Address, ":", "-")
    EXT = ".csv"
    RangeToFichierTexT plage    , ";", chemin, EXT'si pas de chemin precisé c'est le desktop de l'user par defaut 
   'RangeToFichierTexT plage    , separateur de colonne , chemin, EXTENTION 
End Sub
Function RangeToFichierTexT(Rng, Optional separateur As String = ";", Optional chemin As String = "", Optional EXT As String = ".csv")
    Dim T, clearall, fichier As String
    If chemin = "" Then chemin = "C:\Users\" & Environ("username") & "\Desktop\" & Replace(Rng.Address, ":", "-")
    With CreateObject("htmlfile")
        clearall = .parentwindow.clipboardData.setData("Text", "")    'on vide le clipboard au cas ou il y aurait quelque chose
        Rng.Copy    'on copy la plage tout simplement
        'on recupere le texte de la plage dans le cliboard on fait un replace vbtab par le separateur en parametre injecté dans la fonction";" par defaut
        T = Replace(Replace(.parentwindow.clipboardData.GetData("TEXT"), vbTab, separateur), vbCrLf, separateur & vbCrLf): End With
    Application.CutCopyMode = False    'on relache la plage copiée
    'on créé le ficher avec open for....
    fichier = chemin & EXT
    x = FreeFile
    Open fichier For Output As #x
    Print #x, T
    Close #x
End Function

22/01/2018, 11h15
Menhir

Citation:

Envoyé par thais781

Le code qui fonctionne :

Petite remarque qui ne répond pas à ta question mais qui me gratouille :
La ligne Sheets("Feuil1").Select ne sert absolument à rien.
22/01/2018, 14h18
thais781

Merci patricktoulon, mais les ActiveX ne sont pas possible sur Mac, uniquement Windows
@Menhir, oui, ok avec toi, cette ligne n'est pas utile

D'autres idées ?
Le premier code devrait fonctionner mais je ne comprend pas pourquoi modifier la ligne de code change quelque chose ????
Est ce que la modification peut intégrer un caractère special non visible ?

Thais :calim2::calim2:
22/01/2018, 14h34
Menhir

Tu n'aurais pas mis dans ton codes des trucs pour masquer les messages, du genre DisplayAlerts = False ou autres joyeusetés du genre ?

Citation:

Envoyé par thais781

Mais dès que j'essaye de modifier le nom du fichier cible dans la macro, je me retrouve avec une erreur d'execution 1004, "Nous ne pouvons pas accéder au fichier tata.txt"

Le libellé de ce message d'erreur parait très étrange.
D'où est-il issu ? Tu n'aurais pas de On Error dans ton code ?

C'est très curieux .....

Pour décrire la méthode pour reproduire le pb :
J'ouvre un nouveau fichier vierge sous excel
je tappe n'importe quoi dans A1
Je lance l'enregistreur de macro et n’obtient le code suivant
Code:

1 2 3 4 5 6 7 sub Macro1() Sheets("Feuil1").Copy ActiveWorkbook.SaveAs FileName:="/Users/testuser/Desktop/toto.txt", _ FileFormat:=xlUnicodeText, CreateBackup:=False ActiveWindow.Close end sub
Si je relance cette macro 20 fois, ca marche à tous les coups

MAIS dès que je touche au nom du fichier cible, même si j'enlève juste une lettre ..... ca plante
Idem quand je tappe le code from scratch

Rien d'autre dans le code ... un peu comme s'il y avait un pbs dans les options/préférences puisque le code est simple et devrait fonctionner
Mais pas de piste ou chercher ...

Pour info, je suis en Microsoft Excel pour Mac Version 16.9 (180116)

Thais

22/01/2018, 15h45
Marc-L

S'il s'agit de la version MAC 2016 assez mal née côté VBA, tester sur une version MAC 2011 …

Sinon voir dans l'aide VBA interne l'exemple de l'instruction Print# …
22/01/2018, 16h34
Menhir

Citation:

Envoyé par thais781

Si je relance cette macro 20 fois, ca marche à tous les coups

Déjà ça c'est curieux.
Sous Windows, il y aurait un message indiquant que le fichier existe déjà et demandant si l'opérateur veut écraser l'ancien.

Mais n'ayant pas de Mac, je ne sais pas comment réagit le File System dans ce cas.