Discussion :

[hedidev1]

Bonjour voici l’ébauche du programme mais il ne fonctionne bien sûr pas.

Il faut copier les styles rapides de WdDoc et les mettre en choix de style dans WdDoc2.

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
Function CopyPasteStyle(sDocCopy As String, sDocPaste As String)
 
On Error GoTo errorHandler
        Dim WdDoc2 As Word.Document
        Set WdApp = Word.Application
        Set WdDoc = GetObject(sDocCopy)
        Set WdDoc2 = GetObject(sDocPaste)
        WdApp.Visible = True
Dim i As Long
i = 0
Do
i = i + 1
Set WdDoc.Styles(i).NameLocal = WdDoc2.Styles.Add(Name:=WdDoc.Styles(i).NameLocal, Type:=wdStyleTypeCharacter)
Loop
errorHandler:
 
End Function

[Kimy_Ire]

Bonjour hedidev1,

Sauf erreur de ma part, tu n'es pas dans le bon forum ?

Cordialement,
Kimy

[hedidev1]

Bonjour,

au fait je fais cela depuis Excel.

Mais le pb est resolu merci !