Bonjour,

J'ai un problème d'erreur sur une macro qui ouvre un fichier word (liste des fichiers dans la page "Liste Fichiers"), qui copie la totalité du document, et qui vient ensuite coller uniquement le texte en A1 de la page "Traitemant".

Cela me donne une
"Erreur d’exécution 1004" "La méthode pasteSpecial de la
classe worksheet a échoué"
à cet endroit la :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:=False
Voici la macro :


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
18
19
20
21
22
23
24
25
' Macro2 Macro
' Macro enregistrée le 07/12/2012 par Propriétaire
'
 
'
    Dim Cible As String
    Dim i As Long
    Set WordApp = CreateObject("word.application")
    For i = 1 To 2957
        Sheets("Liste Fichiers").Activate
        Cells(i, 1).Select ' Selection de la cellule
        Selection.Copy 'copie de la selection
        Cible = Cells(i, 1)
        WordApp.Documents.Open Filename:=Cible
        WordApp.Selection.WholeStory 'Selectionne tout le document word
        WordApp.Selection.Copy 'copie tout le document word
        WordApp.Quit
        Worksheets("Traitemant").Activate
        ActiveSheet.Cells(1, 1).Activate
        ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
                False
        Range("A1").Select
        Set WordApp = Nothing
    Next
End Sub

Merci d'avance pour votre aide car je sèche un peu depuis plusieurs jours...