Discussion :

[bartimeus35]

Hello,
Une heure que je cherche le caractère que je dois remplacer par chr(13) ( je suppose) pour que mon saut de ligne dans Excel soit transformé en saut de ligne dans ma zone de texte access ?

Je fais ca en VBA , donc un truc du genre

Code :

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

replace(mon_texte, "???", "chr(13)")

???
avant de faire mon insert ?

Quel est le caractère qui correspond à ALT + entrée dans Excel, si je ne fais rien tout est sur le même ligne....

Merci de vos idées

[hyperion13]

salut
je crois Chr(10)

[tee_grandbois]

bonsoir,
c'est bien Chr(13) mais sans les guillemets et il faut inverser les paramètres 2 et 3 (ce n'est pas comme si l'aide en ligne était inexistante pour connaitre l'ordre):

Code :

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

replace(mon_texte,chr(13), "???")

[EDIT]
mille excuses j'ai lu de travers:

Code :

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

replace(mon_texte, "???",chr(13))

[bartimeus35]

Salut, ok Pour remplacer le saut de ligne Excel par chr(13) sans les guillemets mais la question était plutôt quel est le caractère à remplacer par chr(13)

Code :

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

1
2
3
4
Function clean_string(p_txt)
p_txt = Replace(p_txt, "'", " ") ' enlève les simple quotes
clean_string = Replace(p_txt, Chr(10), Chr(13)) ' gère les sauts de ligne
End Function

ne fonctionne pas
Qu'est ce que je dois mettre à le place de chr(10)?
je sèche vraiment
Merci,

[tee_grandbois]

re,
tu n'es pas toujours clair dans tes explications donc c'est difficile de donner des réponses correctes:

Une heure que je cherche le caractère que je dois remplacer par chr(13) ( je suppose) pour que mon saut de ligne dans Excel soit transformé en saut de ligne dans ma zone de texte access ?
Je fais ca en VBA , donc un truc du genre

Code :

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

replace(mon_texte, "???", "chr(13)")

On se fout que tu y as passé une heure ou quel que soit tes états d'âme. Sois simple et concis et écris simplement: "je souhaite remplacer le saut de ligne Excel par le saut de ligne Access dans une requête d'insertion en VBA".
La réponse aurait été plus simple: dans Office Windows un saut de ligne est le même caractère quelque soit l'application, Alt+Entrée, c'est Chr(13) donc il ne doit rien y avoir à remplacer
Ou alors c'est un autre problème que je ne visualise pas ....

[bartimeus35]

eh bien non je te confirme que dans ma cellule Excel j'ai un saut de ligne et que que une oif inséré dans access, via du code VBA

Code :

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

INSERT INTO

....tout est sur la même ligne

[tee_grandbois]

que que une oif inséré dans access

pense à te relire de temps en temps, c'est pénible à force ...

peux-tu poster le contenu d'une cellule dans un fichier texte et le poster ?
Ou alors si tu as Notepad++, copie le contenu dans un nouveau document, clique sur le bouton "Afficher tous les caractères" ( l'icône "Paragraphe" ou plus exactement "Pied-de-mouche": ¶), les sauts de ligne sont marqués ainsi: CRLF

via du code VBA

Code :

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

INSERT INTO

c'est certain qu'avec un code pareil, cela ne risque pas d'insérer quoi que ce soit... sérieusement, mieux vaut t'abstenir de poster du code qui ne fait pas avancer le sujet.
Autre chose: comment sont traités les classeurs (Attache, importation ... ?)

[bartimeus35]

Salut,

Voila le contenu de la cellule Excel que j'importe dan la BDD



et voila ce que j’ai dans mon formulaire ( c'est un champ texte_long)


alors que pourtant voila ce que je vois dans Notepad :



Merci de votre aide

[hyperion13]

re
il suffit dans la tbl de passer le champ en type de données Text long - Format Texte enrichi
et pas besoin d'utiliser Replace()

[bartimeus35]

Génial, merci, il suffisait d'y penser

[hyperion13]

et pour info

Code :

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

1
2
3
4
5
Private Sub Form_Current()
    Me.mon_texte = Replace(mon_texte, Chr(10), "<br/>")
'ou
    'Me.mon_texte = Replace(mon_texte, Chr(10), Chr(13) & Chr(10))
End Sub