[Résolu] Copier-coller de Word à Excel mais dans une seule cellule

[Lone-wolf]

Bonjour à tous,

Est-il possible de copier-coller du texte Word dans une seule cellule Excel
en concervant la mise en forme du texte.

Je viens de trouver la solution, désolé pour ce message.

Exemple:

Sub CreerDossiers()
Dim txt$, s, i%
txt = [A1] 'txt = "C:\TEST\DOS1\DOS2"
s = Split(txt, "\")
On Error Resume Next
txt = s(0) 
For i = 1 To UBound(s) 
txt = txt & "\" & s(i) 
MkDir txt
Next
End Sub

Depuis Sub CreerDossiers() jusqu'à Next il y a des retours à la ligne (ALT+Enter) sur le document Word.



A+