Macro - import et export fichier texte

Re le Forum,

Ca y est je deviens accroc a VBA et tout ce qu'il permet d'automatiser comme tâche :P

1 ère Question :

J'ai une vieux fichier excel avec macro qui génère un fichier texte à la fin de son execution.

J'ai un souci avec le champ téléphone qui se remet au format numérique et me supprime le 1er zéro quand j'ouvre mon fichier texte.

J'ai pourtant indiqué le format dans ma macro et ne voit pas ce qui cloche.

Code:

---

1 2 3

With Sheets("Feuil1") .Range("E1").NumberFormat = "@" End With

---

J'ai même essayé cela :

Code:

---

1 2 3 4

Dim FormatTel As String FormatTel = Range("E1").NumberFormat Range("E1").NumberFormat = "0000000000" Range("E1").NumberFormat = FormatTel

---

Comment puis-je conserver mon zéro dans mon fichier texte final ?

2 ème question :


Dans un autre fichier avec macro j'importe un fichie texté dont le formatage est dans le code de la macro.
Quand j'importe ce fichier texte, j'ai un champ correspondant à des réferences (16 chiffres).
Excel s'obstine à remplacé mon 16 ème chiffre par un 0.
Le dernier chiffre est remplacé par un 0 en lieu et place de celui qui est dans mon fichier texte.
J'ai beau avoir mis le format texte à l'ouverture du fichier que mes données sont transformées.


Ex: Dans le fichier texte j'ai 2543935641257896 quand il est imorté il me met 2543935641257890



Par avance, merci pour votre aide.

Bonjour,
Pour la première question ajoute une apostrophe devant tous nombres ' 33 1 001. C'est la manière la plus sûre d'éviter les soucis.
Ne jamais oublier que le format d'une cellule ne modifie pas sa valeur.
Dès que l'on place un nombre dans une cellule même précédé par + l'éditeur incorporé dans Excel interprète cela comme un nombre et le gère comme tel. De la même manière si tu tape 01/05 il l'interprétera comme une date. Par défaut il le considérera comme étant de l'année en cours mais le formatera comme 01-mai, cad "dd-mmm"

Corona,

Merci pour ta réponse.

Si je mets dans la macro un ' devant cela ne change rien, le 1er zéro ne se retrouve pas dans mon fichier texte généré.

Bonsoir,
comment importes-tu le fichier ?

Hélas,

A la lecture de ta question, je pense en effet que j'ai omis de dire le plus important.

Pour laa question 1 :

J'ouvre mon ClasseurA.XLS possédant uniquement les intitulés de colonnes (celui qui contient les macros), j'ouvre un autre ClasseurB.xls remplit de données (sans macro). Je copie les colonnes du classeurB vers le classeur A.
Une fois que j'ai collé toutes les données dont j'avais besoin dans mon classeurA, je clique sur un bouton macro qui m'enregistre un fichier texte formaté.