Suppression de caracteres lors d'un import de fichier

**totor92290** · 02/09/2016, 16h59

Bonjour à tous,

Petit souci...
Je souhaiterais que lors du transfert d'un fichier je puisse modifier le contenu de ce fichier.

Ma table s'appelle row data elle est sous xlsx et je la transfert en csv
dans une des colonne "Handover to Consignee's Agent" j'ai des virgules et je souhaite les retirer avant la transformation en CSV

Le code que j'ai mis derrière le bouton dans un formulaire:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Command0_Click()
 
Update Table
Set [T000_Row_data] = Replace([Handover to Consignee's Agent], ",", "")
 
DoCmd.TransferText acExportDelim, , "T000_Row_data", "C:\Users\Toto\Documents\Myreport.csv", True
 
 
End Sub

Le message d'erreur :
Compile error:
Sub or Function not defined

Qu'est ce que j'ai raté?

Merci

**User** · 02/09/2016, 18h36

Bonjour,

Il faut utiliser la commande RunSQL dans votre cas en précisant le sql de la requête, ça ferait quelque chose comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command0_Click()
Dim LeSQL as string
 
LeSQL="Update T000_Row_data " & _
"Set [T000_Row_data].[Handover to Consignee's Agent] = Replace([Handover to Consignee's Agent], ',', '')"
 
DoCmd.SetWarnings False
DoCmd.RunSQL(LeSQL)
DoCmd.SetWarnings True
 
DoCmd.TransferText acExportDelim, , "T000_Row_data", "C:\Users\Toto\Documents\Myreport.csv", True
 
End Sub

Mais il faut peut-être créer une table intermédiaire (T000_Row_data2) avant et exporter cette table, pour éviter de mettre à jour la table d'origine :

Code sql :

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

SELECT * INTO T000_Row_data2 FROM T000_Row_data

ça ferait donc un code du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command0_Click()
Dim LeSQL as string
 
LeSQL="Update T000_Row_data2 " & _
"Set [T000_Row_data2].[Handover to Consignee's Agent] = Replace([Handover to Consignee's Agent], ',', '')"
 
DoCmd.SetWarnings False
DoCmd.RunSQL("SELECT * INTO T000_Row_data2 FROM T000_Row_data")
DoCmd.RunSQL(LeSQL)
DoCmd.SetWarnings True
 
DoCmd.TransferText acExportDelim, , "T000_Row_data2", "C:\Users\Toto\Documents\Myreport.csv", True
 
End Sub

Cdlt,

Cdlt,

**totor92290** · 02/09/2016, 18h50

Merci User

Alors A pas bien tout compris !!

J'ai copier/coller votre premier code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command0_Click()
Dim LeSQL as string
 
LeSQL="Update T000_Row_data " & _
"Set [T000_Row_data].[Handover to Consignee's Agent] = Replace([Handover to Consignee's Agent], ',', '')"
 
DoCmd.SetWarings False
DoCmd.RunSQL(LeSQL)
DoCmd.SetWarings True
 
DoCmd.TransferText acExportDelim, , "T000_Row_data", "C:\Users\Toto\Documents\Myreport.csv", True
 
End Sub

et click bouton

J'ai un message d'eeur sur le set warnings que je ne comprends pas
Compile error Method or data member not found?

Kezaco?

**User** · 02/09/2016, 18h52

autant pour moi :

Code :

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

DoCmd.SetWarnings False

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command0_Click()
Dim LeSQL as string
 
LeSQL="Update T000_Row_data " & _
"Set [T000_Row_data].[Handover to Consignee's Agent] = Replace([Handover to Consignee's Agent], ',', '')"
 
DoCmd.SetWarnings False
DoCmd.RunSQL(LeSQL)
DoCmd.SetWarnings True
 
DoCmd.TransferText acExportDelim, , "T000_Row_data", "C:\Users\Toto\Documents\Myreport.csv", True
 
End Sub

**totor92290** · 02/09/2016, 18h58

Merci USER

Désolé pour le désagrément mais j'ai de nouveau un message!

Run-Time error '3075':
Operation must use an updateable query.

???

**User** · 02/09/2016, 19h03

Apparemment "T000_Row_data" est une requête qui ne peut être mise à jour :

Dans ce cas pourquoi ne pas utiliser le 2ème code, avec :

Code :

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

1
2
 
DoCmd.RunSQL("SELECT * INTO T000_Row_data2 FROM T000_Row_data")

Pour transformer cette requête en table ?

**totor92290** · 02/09/2016, 19h17

Merci USER

"T000_Row_data" est une table liée. Est ce que cela pose problème?

Je n'ai pas été assez explicite.
J'ai deux tables liées. Une provenant de la source en xlsx et contenant, dans certaines colonnes, des dates avec des format "bizarres"
"Feb 5, 2016 12:00:00 AM" à la place de "05/02/2016 12:00:00"
Donc lorsque je lie cette table les datas sont non conformes.
Lorsque je la transfert en CSV le séparateur virgule me fait un "Feb 5" et dans la colonne d'à coté " 2016 12:00:00 AM"
Il ne considère plus cela comme des dates et me remonte N/A

Je me suis dit (à tord sans doute) "je vais prendre la table xlsx liée et l'enregistrée sur mon PC à l'adresse C:\Users\Toto\Documents\Myreport.csv et je vais en profiter pour "cleaner" ces colonnes."

La table CSV est donc elle aussi liée.

c'est tordu, non?

**User** · 02/09/2016, 19h44

Il y a possibilité d'exporter en utilisant d'autre séparateur, comme le tab :

Il faut exporter manullement une 1ère fois, puis enregistrer, les spécifications d'exportations : access devrait t'ajouter une entrée dans la table système MSysIMEXSpecs.

Ensuite il faut voir la colonne FieldSeparator.

Et enfin spécifier cette exportation dans la commande :

Code :

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

DoCmd.TransferText acExportDelim, ExportCSV, "T000_Row_data", "C:\Users\Toto\Documents\Myreport.csv", True

Cdlt

**totor92290** · 02/09/2016, 19h51

OUPS stop!

En fait le problème est tout autre. J'ai essayé de le contourner mais ce n'est pas la bonne méthode!!

En fait le 1er fichier xlsx qui est lié les colonnes avec les dates ont la même apparence. Lorsque je lie ce fichier excel les dates en erreur se positionnent à droite! - donc ça doit être du texte

Nom : 02-09-2016 19-43-07.png
Affichages : 109
Taille : 7,3 Ko

Nom : 02-09-2016 19-43-07.png
Affichages : 109
Taille : 7,3 Ko

Lorsque je met cette table liée en design view les champs en erreur sont en text
Nom : 02-09-2016 19-50-29.png
Affichages : 132
Taille : 5,7 Ko

Par contre dans excel tous les champs sont en "customs" et c'est le même format que les autres!

Comment faire pour corriger ces formats et avoir un format standard?

Merci

**User** · 02/09/2016, 20h08

Peut-être agir au niveau d'Excel, en changeant le format des cellules, en standard ou en date.

Pouvez-vous poster votre fichier excel que je teste ?

**totor92290** · 02/09/2016, 20h56

Bonsoir USER

Ci-joint

For_User.xlsx

Colonne problématiques de AQ à AT

Merci

**User** · 02/09/2016, 21h45

Le problème c'est que j'ai lié ton fichier excel, et j'obtiens bien des format dates, pour ces champs :

Nom : Table_liée_Création.jpg
Affichages : 126
Taille : 331,7 Ko