Discussion :

[sabredebois]

Bonsoir à tous

Quand je procède à l'exportation de données d'une base Fmp 7 (Macintosh) vers Acces (PC) j'exporte d'abord vers Excel du Mac puis Excel du PC et enfin Access.

Cela fonctionne mais j'obtiens certains caractères bizarres comme des symboles ou ds majuscules avec accents.

Dans "options" de l'exportation de Filemaker j'ai bien sélectionné : "jeu de caractères : Windows (ANSI)"

Le pb c'es que si j'essaie de les changer dans Access je n'y arrive pas...

Par exemple en utilisant "rechercher-remplacer" : je saisis "È" dans "rechercher" et "é" dans "remplacer" ça ne fonctionne pas !

Pour quelle raison ?

Comment faire ?

Merci

[nico84]

Bonjour,

Malheureusement windows raffole des majuscules accentuées
As-tu essayé de les remplacer automatiquement en utilisant leur code ?
Par exemple asc("È")=212 à remplacer par "E"...

[sabredebois]

Merci

je ne comprends pas bien...

veux-tu dire : dans "rechercher -remplacer" :

-dans "rechercher" taper : "asc("È")=212"

-dans "remplacer" taper : "E"

en tous cas j'ai essayé ça ne marche pas...

de même si je tape alt 0200 (pour È) il ne trouve pas le caractère !

[nico84]

C'est un peu plus compliqué que ça

Dans mon idée il faudrait faire un update du fichier après import pour retraiter les champs qui posent problème

Le remplacement peut se faire soit directement dans l'update, soit grâce à une fonction publique appelée par l'update, soit en cours d'import si a un moment tu as la main sur les données...

[sabredebois]

Qu'entends-tu par "update" >> mise à jour ? de quoi ?

et "fonction publique appelée par l'update"

et où intervient "asc("È")=212 à remplacer par "E"... dans tout ça ?

[nico84]

Bonsoir,

Une fonction publique est du code VBA qui étend le langage VBA, comme ceci :

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
Public Function MajAcc(s)
Dim i As Integer, j As Integer, c As String
MajAcc = ""
If Not IsNull(s) Then
  For i = 1 To Len(s)
    Select Case Mid(s, i, 1)
    Case "Ä", "Á", "Â", "À": MajAcc = MajAcc & "A"
    Case "É", "Ê", "Ë", "È": MajAcc = MajAcc & "E"
    Case "Ç": MajAcc = MajAcc & "C"
    Case "Í", "Î", "Ï": MajAcc = MajAcc & "I"
    Case "Ö", "Ô": MajAcc = MajAcc & "O"
    Case "Ü", "Û", "Ù": MajAcc = MajAcc & "U"
    Case Else: MajAcc = MajAcc & ucase(Mid(s, i, 1))
    End Select
  Next
End If
End Function

Un update est une instruction SQL qui modifie des données d'une table, comme ceci :

Code sql :

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

update MaTable set MonChamp=MajAcc(MonChamp)