Discussion :

[corentinBEG]

Bonjour,

Je dois régulièrement transformer des feuilles Excel en fichier .TXT avec comme caractéristique de conserver le format des nombres choisi dans Excel. Si par exemple la cellule est une date, je veux que le nombre soit écrit en format DATE dans le .TXT.

Voici le script (simplifié) que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub ecrireFichierTxt()
    'macro qui transforme une feuille Excel en fichier .txt
    'avec conservation du format choisi par l'utilisateur dans Excel
 
    Dim Time As Single
    Time = Timer
 
    strFichier = "test.txt"
 
    'Efface le fichier s'il existe car parfois plantage
    On Error Resume Next
    Kill strFichier
    On Error GoTo 0
    Open strFichier For Output As #1
 
    'Ecriture ligne par ligne
    For i = 1 To 5000
        Texte = ""
        For j = 1 To 10
            'recuperation de la valeur et du format
            Texte = Texte & Right$(Space$(10) & Format(Cells(i, j).Value, Cells(i, j).NumberFormat), 10)
        Next j
        Print #1, RTrim(Texte)
    Next i
 
    'fermeture du fichier .txt
    Close #1
 
    Debug.Print "tps non opti : " & Timer - Time
    'temps d'exécution = 1.8s
End Sub

Cependant, mes fichiers sont parfois très volumineux (plusieurs 10aines de milliers de lignes, plusieurs feuilles Excel, ...) et la macro prend donc un temps non négligeable pour s'effectuer.

Après renseignement sur internet, j'ai lu que l'accès à la feuille Excel était très gourmand en temps, et qu'il valait mieux n'utiliser qu'une commande pour aller chercher toutes les valeurs dans le classeur Excel. J'ai donc remplacé la partie centrale de mon code par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
valeursExcel = Range(Cells(1, 1), Cells(5000, 10))
 
    'Ecriture ligne par ligne
    For i = 1 To 5000
        Texte = ""
        For j = 1 To 10
            ' cette technique ne fonctionne pas avec NumberFormat...
            ' Texte = Texte & Right$(Space$(10) & Format(valeursExcel(i, j).Value, valeursExcel(i, j).NumberFormat), 10)
            Texte = Texte & Right$(Space$(10) & valeursExcel(i, j), 10)
        Next j
        Print #1, RTrim(Texte)
    Next i
 
 'temps d'exécution = 0.7s

Ca fonctionne très bien (temps divisé par 2 voir plus). Cependant le format n'est pas recopié... et ça ne me convient pas.

J'ai donc opté pour une 3eme solution, qui est un compromis des 2 précédentes, mais naturellement la vitesse d'exécution est peu satisfaisante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    valeursExcel = Range(Cells(1, 1), Cells(5000, 10))
 
    'Ecriture ligne par ligne
    For i = 1 To 5000
        Texte = ""
        For j = 1 To 10
            ' Texte = Texte & Right$(Space$(10) & Format(valeursExcel(i, j).Value, valeursExcel(i, j).NumberFormat), 10)
            Texte = Texte & Right$(Space$(10) & Format(valeursExcel(i, j), Cells(i, j).NumberFormat), 10)
        Next j
        Print #1, RTrim(Texte)
    Next i
 
 'temps d'exécution = 1.5s

Je joins un fichier exemple avec les 3 variantes de ma macro.

Question :
La 2eme méthode expliquée ci-dessus est beaucoup plus rapide, mais ne permet pas de prendre en compte le format.
Comment puis-je faire pour recopier le format efficacement ?
Existe-t-il une méthode analogue à celle utilisé pour récupérer toutes les valeurs d'un coup mais avec le format ?

Merci d'avance,
Corentin

[Marc-L]

Bonjour, bonjour !

Au lieu de la propriété .Value utiliser la propriété .Text d'une cellule !

__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[corentinBEG]

Au lieu de la propriété .Value utiliser la propriété .Text d'une cellule !

Merci pour cette première réponse, c'est une piste que je n'avais pas encore explorer.

Mais est-il possible avec la propriété .Text de récupérer tout le contenu de la feuille Excel d'un coup ?
Ceci ne fonctionne pas par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

valeursExcel = Range(Cells(1, 1), Cells(5000, 10)).Text

Et ceci non plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Texte = Texte & Right$(Space$(10) & valeursExcel(i, j).Text, 10)

Du coup je dois faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For i = 1 To 5000
        Texte = ""
        For j = 1 To 10
            Texte = Texte & Right$(Space$(10) & Cells(i, j).Text, 10)
        Next j
        Print #1, RTrim(Texte)
    Next i

Ce qui ne me fait pas gagner de temps.

[Marc-L]

Seules les propriétés Value & Value2 permettent d'affecter une variable tableau.

La priorité n'est pas de gagner du temps mais bien de conserver le format !

Possibilité d'affecter une variable tableau dans un premier temps puis forcer certaines colonnes avec la propriété Text …

[corentinBEG]

La priorité n'est pas de gagner du temps mais bien de conserver le format …

Tout à fait, néanmoins j'espère quand même trouver une astuce pour pouvoir gagner du temps (le fichier exemple est petit comparé au fichier que j'ai l'habitude d'utiliser).

Il n'existe donc pas un moyen de limiter le nombre d'accès "VBA <-> feuille Excel" pour récupérer le "format" de plusieurs cellules ?