OVH Cloud OVH Cloud

Soucis lors d'un enregistrement en .txt (sur mac)

3 réponses
Avatar
Sébastien
Bonjour à tous,

Voilà, j'ai un petit soucis.

Je suis en train de mettre à jour des tarifs pour une base 4D.

Le problème, certains laboratoires donnant leur tarif en pdf, je me suis
servit d'omnipage pro pour les convertir en fichier Excel.

Maintenant que mon tarif est bon sous Excel, il faut pour l'importer à 4D
qu'il soit en .txt ce qu'il fait mais quand je veux l'injecter dans 4D les
colonnes ont "bougées".

Quand je le ré ouvre dans Excel, je peux avoir plusieurs lignes dans la même
cellule.

Comment puis-je faire pour "bloquer" le format ? Je n'ai plus d'idée là ...

Merci d'avance,

Cordialement,

Sébastien

3 réponses

Avatar
michdenis
Bonjour Sébastien,

| Maintenant que mon tarif est bon sous Excel

Quand tout en bon, tes données occupent
quelle plage de la feuille de calcul ?

Tu veux exporter ces données dans un fichier texte (txt) ?

Quel est le séparateur que tu veux utiliser dans ton fichier texte ?
(Tab, Espace, ....)


Salutations!



"S é bastien" a écrit dans le message de news: BFFA92E8.BF76%
Bonjour à tous,

Voilà, j'ai un petit soucis.

Je suis en train de mettre à jour des tarifs pour une base 4D.

Le problème, certains laboratoires donnant leur tarif en pdf, je me suis
servit d'omnipage pro pour les convertir en fichier Excel.

Maintenant que mon tarif est bon sous Excel, il faut pour l'importer à 4D
qu'il soit en .txt ce qu'il fait mais quand je veux l'injecter dans 4D les
colonnes ont "bougées".

Quand je le ré ouvre dans Excel, je peux avoir plusieurs lignes dans la même
cellule.

Comment puis-je faire pour "bloquer" le format ? Je n'ai plus d'idée là ...

Merci d'avance,

Cordialement,

Sébastien
Avatar
Sébastien
Le 23/01/06 17:34, dans , « michdenis »
a écrit :


Bonjour,

Bonjour Sébastien,

| Maintenant que mon tarif est bon sous Excel

Quand tout en bon, tes données occupent
quelle plage de la feuille de calcul ?


De A à H sur environ 500 lignes


Tu veux exporter ces données dans un fichier texte (txt) ?



Oui, ou plus exactement, j'enregistre mon fichier .xls en .txt mais le
format des cellules changent tout seul et je n'arrive pas à "bloquer" cette
fonction (il faut à chaque fois que je retourne dans "format" "cellules"
"alignement" et que je décoche "aller à la ligne automatiquement"

Quel est le séparateur que tu veux utiliser dans ton fichier texte ?
(Tab, Espace, ....)



Les séparateurs sont les tabulations


Salutations!



Merci beaucoup

PS : lors de l'import dans 4D, il apparaît des " qui ne sont pas visibles ni
remplaçable dans Excel ... Je craque ;-)



"S é bastien" a écrit dans le message de news:
BFFA92E8.BF76%
Bonjour à tous,

Voilà, j'ai un petit soucis.

Je suis en train de mettre à jour des tarifs pour une base 4D.

Le problème, certains laboratoires donnant leur tarif en pdf, je me suis
servit d'omnipage pro pour les convertir en fichier Excel.

Maintenant que mon tarif est bon sous Excel, il faut pour l'importer à 4D
qu'il soit en .txt ce qu'il fait mais quand je veux l'injecter dans 4D les
colonnes ont "bougées".

Quand je le ré ouvre dans Excel, je peux avoir plusieurs lignes dans la même
cellule.

Comment puis-je faire pour "bloquer" le format ? Je n'ai plus d'idée là ...

Merci d'avance,

Cordialement,

Sébastien




Avatar
michdenis
Bonjour Sébastien,

Je ne connais pas l'environnement Mac.

Voici une procédure pour sauvegarder ta plage complète
de ta feuille de calcul format texte (txt.


'==========================================
Sub EnregistrerFormatSpecial()

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

With ThisWorkbook.Worksheets("Feuil2") 'Nom Feuille à définir
R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
Set Plage = .Range(.Range("A1"), Cells(R, C))
End With

Séparateur = vbTab
NomFichierSauvegarde = "C:Denis.txt"

SaveAsTXT Plage, Séparateur, NomFichierSauvegarde

End Sub
'-----------------------------------
Sub SaveAsTXT(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) - 1)
Print #1, Temp
Next
Close
Set Plage = Nothing: Set C = Nothing: Set R = Nothing
End Sub
'==========================================
Procédure pour récupérer un fichier texte ayant "Table" comme séparateur
'----------------------------------------
Sub CSVOpener()
'd'après P. Penet, mpfe
Dim wb As Workbook, NomFich
With Application
NomFich = Application.GetOpenFilename("Fichiers texte,*.txt;*.txt")
If NomFich = False Then Exit Sub
Set wb = .Workbooks.Open(NomFich)
wb.Sheets(1).Columns(1).TextToColumns Range("A1"), , , False, True
End With
End Sub
'----------------------------------------


Salutations!



"S é bastien" a écrit dans le message de news: BFFBA5BF.C057%
Le 23/01/06 17:34, dans , « michdenis »


Bonjour,

Bonjour Sébastien,

| Maintenant que mon tarif est bon sous Excel

Quand tout en bon, tes données occupent
quelle plage de la feuille de calcul ?


De A à H sur environ 500 lignes


Tu veux exporter ces données dans un fichier texte (txt) ?



Oui, ou plus exactement, j'enregistre mon fichier .xls en .txt mais le
format des cellules changent tout seul et je n'arrive pas à "bloquer" cette
fonction (il faut à chaque fois que je retourne dans "format" "cellules"
"alignement" et que je décoche "aller à la ligne automatiquement"

Quel est le séparateur que tu veux utiliser dans ton fichier texte ?
(Tab, Espace, ....)



Les séparateurs sont les tabulations


Salutations!



Merci beaucoup

PS : lors de l'import dans 4D, il apparaît des " qui ne sont pas visibles ni
remplaçable dans Excel ... Je craque ;-)



"S é bastien" a écrit dans le message de news:
BFFA92E8.BF76%
Bonjour à tous,

Voilà, j'ai un petit soucis.

Je suis en train de mettre à jour des tarifs pour une base 4D.

Le problème, certains laboratoires donnant leur tarif en pdf, je me suis
servit d'omnipage pro pour les convertir en fichier Excel.

Maintenant que mon tarif est bon sous Excel, il faut pour l'importer à 4D
qu'il soit en .txt ce qu'il fait mais quand je veux l'injecter dans 4D les
colonnes ont "bougées".

Quand je le ré ouvre dans Excel, je peux avoir plusieurs lignes dans la même
cellule.

Comment puis-je faire pour "bloquer" le format ? Je n'ai plus d'idée là ...

Merci d'avance,

Cordialement,

Sébastien