[VBA] Access-> Excel Format de cellule

Bonjour

j'utilise access pour la création d'un fichier excel, et les donnees s'affiche dans de nombreuse cellule. Dans une de mes tables se trouve une longue chaine de caractère, et je voudrai pouvoir apres chaque "=" faire un retour de ligne, et donc que la cellule et la ligne a laquelle elle appartient change de dimmension en hauteur.

Si vous avez des idées je les prend toute, Merci a vous.

Essaie d'utiliser la propriété WrapText de ta cellule :

Code:

---

1 2	TonAppliExcel.TonWorkbook.TaWorkSheet.Range(TaCellule).WrapText=True

---

Cette propriété est l'équivalent vb de 'Renvoyer à la ligne automatiquement'

Merci, mais avec un renvoie a la ligne automatique je n'obtient pas ce que je veut.

exemple:

-------------------
| Bla=Bla=Bla= | <= Renvoi a la ligne auto
|Bla=Bla = |
-------------------

-------------------
|Bla= | <= Ce que je veut
|Bla= |
|Bla= |
-------------------

J'espere que j'ai su m'expliquer.

Si tu as Access 2000 ou XP, tu dois pouvoir t'en sortir avec la fonction Replace et l'utilisation du caractère de renvoie à la ligne (chr(10) je crois).
Au moment, d'inscrire ta chaine dans ta cellule excel, tu fais :

Code:

---

1 2	TonappliExcel.TonWorkBook.TaWorkSheet.Range(TaCellule)=replace(TaChaine,"=","=" & chr(10))

---

Je n'ai pas testé, mais je pense que ça pourrait résoudre ton problème.

j'utilise cette commande pour copier mes cellules, et la cellule qui me pose probleme est dedans.
Comment puis-je appliquer ta methode?

Code:

---

1 2	DoCmd.TransferSpreadsheet acExport, 0, _ "Valeur_Commentaire_Gamme_Temp", strTargetFile, False, "D15:D26"

---

Merci de ton aide

Ce que tu peux faire, avant d'effectuer ton opération d'exportation vers Excel, c'est lancer une requête qui va formater comme tu le souhaites le champs qui te gêne dans ton tableau temporaire. Je suppose que si les données stokées dans ton tableau temporaire ont une sale tête (des caractères un peu particuliers), ce n'est pas trop gênant (à moins que tu n'aies besoin de les afficher?).
Donc tu effectues la requête suivante :

Code:

---

1 2	UPDATE [Valeur_Commentaire_Gamme_Temp] SET [TonChamp]=replace([TonChamp],""="",""="" & chr(10))

---

Ensuite tu effectues ton transferspreadsheet.

un erreur se produit sur la ligne de la requete

"Fonction replace non défini"

sur

Code:

---

DoCmd.RunSQL "UPDATE Valeur_Commentaire_Gamme_Temp SET [Commentaire]=replace([Commentaire],""="",""="" & chr(10))"

---

J'ai access 2000.

Code:

---

DoCmd.RunSQL "UPDATE Valeur_Commentaire_Gamme_Temp SET [Commentaire]='" & replace([Commentaire],""="",""="" & chr(10)) & "'"

---

Nvl erreur

"impossible de trouver le champ auquel il fait reference"
dans le code du post precedent

Ma table est "Valeur_Commentaire_Gamme_Temp"
et le champ est "Commentaire"

Bon, ben faut croire qu'elle n'existe pas sous Access 2000 alors...
Heu... on va devoir écrire une fonction qui fait la même chose alors.
Ouvre un module dans lequel tu insères le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

Public function replace(Byval Chaine1 As string,Byval Chaine2 As string, Byval Chaine3 as string) Dim chainetemp as string Chainetemp="" While not(instr(Chaine1,Chaine2)=0) chainetemp=chainetemp & left(Chaine1,instr(Chaine1,Chaine2)-1) & Chaine3 Chaine1=mid(Chaine1,instr(Chaine1,Chaine2)+1) wend replace=chainetemp End Function

---

Je pense que ça devrait effectuer la même chose que replace...Mais il te faut utiliser la syntaxe que je t'ai donné et pas celle de Lucifer je pense.

j'ai creer un module nommé Replace.

et apres qu'est ce que je doit faire, car j'ai jamais utiliser les modules ?

j'ai repris ta formule et il me dit "Replace" Non defini dans l'expression

désoler je suis un :boulet: .

Merci enormement

Ne nomme pas ton module replace, nomme le module ou fonctions...
(je ne sais pas si Access ne va pas confondre ton module et ta fonction).De plus, j'ai oublié de préciser le type de Replace:

Code:

---

1 2 3 4 5 6 7 8 9 10

Public function replace(Byval Chaine1 As string,Byval Chaine2 As string, Byval Chaine3 as string) As String Dim chainetemp as string Chainetemp="" While not(instr(Chaine1,Chaine2)=0) chainetemp=chainetemp & left(Chaine1,instr(Chaine1,Chaine2)-1) & Chaine3 Chaine1=mid(Chaine1,instr(Chaine1,Chaine2)+1) wend replace=chainetemp End Function

---

L'erreur il la mettait dans ton module?

le code est passez mais, ca na pas marcher ma chaine de caratcere est dans un cellule, et les lettre les une a la suite des autres sans saut de lignes..... il affiche des petit carree blanc dans excel

En fait excel affiche des petit carree, et quand je clique sur la barre de formule en haut il disparaisse et sont interpreter comme des retour a la ligne.

On tiens le bon bout.

Comment dire a excel d'interpreter ces carrees directement sans a avoir a clicquez dessus. Le tout par Access

Ah? je ne suis pas sûr du chr(10) que je t'ai proposé. (le caractère de saut de ligne est un de ceux compris entre 0 et 32 mais lequel?).
Sinon, en te contentant de remplacer "=" par "= ", ça ne fait pas les sauts de lignes où tu souhaites? (avec l'option passer à la ligne automatiquement)

YES !!!!! sa marche, mais car il ya toujours un mais, comment maitenant agrandir la cellule afin d'avoir toutes les informations qui s'affiche.

ça je crois pas que ce soit possible (c'est une option qui n'existe pas sous Excel pour autant que je sache). Tu devras le faire manuellement pour chaque colonne (dur!dur!).

Citation:

---

Envoyé par pitistef

ça je crois pas que ce soit possible (c'est une option qui n'existe pas sous Excel pour autant que je sache). Tu devras le faire manuellement pour chaque colonne (dur!dur!).

---

C'est pas tout à fait exact...
La fonctionalité existe de 2 façons différentes.

1/tu actives ShrinkToFit sur les cellules. Cela diminue la taille du texte pour qu'il rentre dans la largeur de la cellule.

2/tu utilises AutoFit sur les colonnes/Lignes pour faire un ajustement automatique des tailles de ces dernières.

Choisir en fonction du résultat attendu.
Bien sûr, il vaut mieux faire un peu d'automation dans ce cas là !

ouais exact, j'avais jamais percuté que l'option autofit existait. Bon, c'est cool, je tâcherais de l'utiliser la prochaine fois que j'aurais de l'automation à faire.
:wink:

MERCI

:merci:

:merci:

Code:

---

:merci:

---