format texte unicode

Bonjour Titi,

Dans la mesure où c'est possible, tu mets le format "texte à la colonne
où il y aura tes numéros de téléphone avant d'importer en supposant
bien sûr que tu connais la colonne de destintation.


Salutations!

<titi> a écrit dans le message de news: uplas1poceihiem97fab5gp2nir1ctvp00@4ax.com...
bonjour

je vous fais part d'un probleme un peu particulier

je fais un export sur un equipement technique d'un fichier je recupere
donc un fichier portant l'extension .crp que je peux ouvrir avec
Excel.

Ce fichier .crp est en un fait le repertoire collectif d'un
autocommutateur telephonique ; il comprend donc des noms et des
numeros de telephone

Le probleme c'est que Excel occulte les 0 presents devant les N°

Et la solution de modifier la format de cellule par 0######### si
elle fonctionne sous excel

Dès l'enregistrement du fichier (fichier qui est au format texte
unicode) excel enlève le 0 present devant les n° de telephone

resultat l'autocom ne fonctionne plus en appels sortants ( il manque
un chiffre et il n'affiche plus les noms des appels entrants

Quelqu'un connaît il la solution ?

le probleme est que l'autocom n'offre aucune possibilité de menu sur
les fichiers

on exporte un fichier et on importe un fichier et c'est tout

il faut donc que le fichier soit nickel avant l'import

donc à moins que je nelme trompe c'est ce que supposait ta reponse non
?

| donc à moins que je nelme trompe c'est ce que supposait ta reponse non ?

Effectivement titi.


Salutations!

donc en fait meme en mettant la colonne concernée en format texte
donc effectivement on peut adjoindre un 0 devant les n° de telephones


mais le probleme est que lors de l'enregistrememnt du fichier au
format texte unicode ( sais pas ce que c'est ce formatr ) excel
occulte le 0 lors de l' enregistrement

Va y par étape :

Est-ce que tes données son Ok après ton exportation dans Excel ?

Dans un deuxième temps, si l'enregistrement du fichier du Fichier Excel
pose problème lorsque vient le temps de le sauvegarder au format txt,
Tu peux le faire par macro ... quel est le séparateur que tu veux avoir
dans ton fichier texte ?


Salutations!



<titi> a écrit dans le message de news: mhras19r9ij85qb0f86vvfqfpmi65at6hl@4ax.com...
donc en fait meme en mettant la colonne concernée en format texte
donc effectivement on peut adjoindre un 0 devant les n° de telephones


mais le probleme est que lors de l'enregistrememnt du fichier au
format texte unicode ( sais pas ce que c'est ce formatr ) excel
occulte le 0 lors de l' enregistrement

Voici comment enregistrer le contenu d'une feuille de calcul dans un fichier texte :

'-----------------------------------
Sub EnregistrerFormatSpecial()

Dim Plage As Range, Séparateur As String
Dim NomFichierSauvegarde As String
Dim R As Long, C As Integer

With Workbooks("NomDuClasseur.xls") 'Classeur ouvert
With .Worksheets("Feuil2") 'Nom à adapter
R = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
C = .Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column
'Plage représente toute la plage déjà occupée
'par des données sur la feuille choisie
Set Plage = .Range(.Range("A1"), .Cells(R, C))
End With

Séparateur = "," 'Choix de ton séparateur
NomFichierSauvegarde = "C:Denis.txt"

SaveAsCSV Plage, Séparateur, NomFichierSauvegarde

End Sub
'-----------------------------------
Sub SaveAsCSV(Plage As Range, Séparateur As String, _
NomFichierSauvegarde As String)

Dim Temp As String, R As Range, C As Range

Open NomFichierSauvegarde For Output As #1
For Each R In Plage.Rows
Temp = ""
For Each C In R.Cells
Temp = Temp & C & Séparateur
Next
Temp = Left(Temp, Len(Temp) - 3)
Print #1, Temp
Next
Close
Set Plage = Nothing: Set C = Nothing: Set R = Nothing
End Sub
'-----------------------------------


Salutations!



<titi> a écrit dans le message de news: mhras19r9ij85qb0f86vvfqfpmi65at6hl@4ax.com...
donc en fait meme en mettant la colonne concernée en format texte
donc effectivement on peut adjoindre un 0 devant les n° de telephones


mais le probleme est que lors de l'enregistrememnt du fichier au
format texte unicode ( sais pas ce que c'est ce formatr ) excel
occulte le 0 lors de l' enregistrement

Dans la première partie "Procédure I"

il manque un End With

Voici la correction :

Sub EnregistrerFormatSpecial()

Dim Plage As Range, Séparateur As String
Dim NomFichierSauvegarde As String
Dim R As Long, C As Integer

With Workbooks("NomDuClasseur.xls") 'Classeur ouvert
With .Worksheets("Feuil2") 'Nom à adapter
R = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
C = .Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column
'Plage représente toute la plage déjà occupée
'par des données sur la feuille choisie
Set Plage = .Range(.Range("A1"), .Cells(R, C))
End With
End With

Séparateur = "," 'Choix de ton séparateur
NomFichierSauvegarde = "C:Denis.txt"

SaveAsCSV Plage, Séparateur, NomFichierSauvegarde

End Sub



Salutations!



<titi> a écrit dans le message de news: mhras19r9ij85qb0f86vvfqfpmi65at6hl@4ax.com...
donc en fait meme en mettant la colonne concernée en format texte
donc effectivement on peut adjoindre un 0 devant les n° de telephones


mais le probleme est que lors de l'enregistrememnt du fichier au
format texte unicode ( sais pas ce que c'est ce formatr ) excel
occulte le 0 lors de l' enregistrement

Bonsoir Titi,

D'abord, c'est pas très prudent de venir te promener sur ce forum quand j'y
rôde :-))

Ensuite, as-tu essayé
=texte(A1;"000000000") le force le 0.
A1 étant la cellule dans laquelle il y a le numéro de téléphone.
Tu recopies la formule pour tous tes numéros
Eventuellement après tu fais un copier /collage spécial / valeurs pour te
débarasser de la formule et tu enregistres.

Ça marche ?

Cordialement.

Gros Minet.

<titi> a écrit dans le message de news:
uplas1poceihiem97fab5gp2nir1ctvp00@4ax.com...

bonjour

je vous fais part d'un probleme un peu particulier

je fais un export sur un equipement technique d'un fichier je recupere
donc un fichier portant l'extension .crp que je peux ouvrir avec
Excel.

Ce fichier .crp est en un fait le repertoire collectif d'un
autocommutateur telephonique ; il comprend donc des noms et des
numeros de telephone

Le probleme c'est que Excel occulte les 0 presents devant les N°

Et la solution de modifier la format de cellule par 0######### si
elle fonctionne sous excel

Dès l'enregistrement du fichier (fichier qui est au format texte
unicode) excel enlève le 0 present devant les n° de telephone

resultat l'autocom ne fonctionne plus en appels sortants ( il manque
un chiffre et il n'affiche plus les noms des appels entrants

Quelqu'un connaît il la solution ?