Bonjour à tous ,


Je dispose d'un fichier Excel "fichier1" avec toutes mes données dans la feuille "information". Dans un autre fichier Excel "fichier2" , j'ai créé un bouton sur la feuille "feuil2".
A l'action du bouton j'aimerai récupérer les informations de la feuille "information" pour les mettre dans la feuille 'feuil2'. Avec mon code actuel, j'ai une erreur qui apparaît : erreur 9.
L'erreur apparaît au niveau de mon premier Workbooks ligne : 21


Merci d'avance

Voici mon code actuel :

Code VBA : 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
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Feuil2_Bouton1_Cliquer()
 
 
  Dim Chemin As String
  Dim Fichier As String
 
Chemin = "C:\xxxxxxxxx\"
Fichier = " fichier1.xlsm"
 
 
  With Sheets("information")
 
 
    ligne = 6
 
        For n = 6 To Range("R65536").End(xlUp).Row
            x = Split(Range("R" & n), Chr(10))
 
 
        For m = LBound(x) To UBound(x)
            Workbooks("fichier2").Sheets("Feuil2").Range("A" & ligne) = x(m)
 
 
        For col = 1 To 3
             Workbooks("fichier2").Sheets("Feuil2").Cells(ligne, col) = Cells(n, col)
        Next col
 
 
        ligne = ligne + 1
 
        Next m
        Next n
 
 
    End With
 
 
End Sub