Discussion :

[Aleexx]

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

[Philippe Tulliez]

Bonjour,
En plus du numéro d'erreur, tu as un message "l'indice n'appartient pas à la sélection" qui est très explicite.
Soit le classeur nommé fichier2 n'est pas présent dans la collection des classeurs ouvert (Workbooks) soit la feuille nommée Feuil2 n'existe pas dans le dit classeur.

[Aleexx]

Bonjour,

J'ai bien vérifié, tout est bien nommé et les feuilles existent bien.
Je viens de refaire un test, cette fois-ci il m'affiche l' "erreur 9 : l'indice n'appartient pas à la sélection" au niveau de la ligne 11 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 With Sheets("Suivi Modifications")

je ne comprend pas

[Philippe Tulliez]

Bonjour,
je ne peux pas t'apporter plus. Erreur 9 signifie que l'objet n'existe pas dans la collection.
Cependant je constate que tu n'as pas rattaché l'objet Range de la ligne 17 avec la feuille Suivi Modifications définit dans le bloc With soit (voir le point en rouge

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
With Sheets("information")
  For n = 6 To .Range("R65536").End(xlUp).Row

Il y a peut-être d'autres erreurs mais je n'ai pas été examiné ton code complètement

Pourquoi utiliser une boucle pour effectuer une copie qui sauf erreur de ma part n'as pas de critères de sélection donc la méthode Copy avec l'argument Destination devrait suffire