Bonjour,

Dans un fichier b.xls, ma macro appelPageC ouvre un fichier choisie par l'utilisateur (disons c.xls)
ce fichier copie les colonne A et B avec MacroCopie.
Le prog m'indique "l'indice n'appartient pas à la selection"

Si je change "nom_fichier_choisis" par mon fichier .... ça fonctionne . Serais ce un problème de fichier ouvert ?

Quelqu'un aurait il une idée ?? Merci

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
 
Option Explicit
Private Wb1 As Workbook
Private Wb2 As Workbook
Private nom_fichier_choisis As String
 
 
 
Sub MacroCopie()
' Dim Wb1 As Workbook, Wb2 As Workbook
' Dim Wb2 As Workbook
Dim Cell As Range
Dim cible As Range
Dim Tableau()
Dim X As Byte, Y As Byte, Z As Byte, i As Byte
Dim Resultat As String, FirstAddress As String
Dim Ws As Worksheet
 
 
Set Wb1 = Workbooks(nom_fichier_choisis)
Set Wb2 = Workbooks("b.xls")
 
 
' Redéfinir la plage en fonction du nombre de lignes
' Sélectionner cette plage
' Copier les valeurs contenues dans cette plage sur la feuille 2 à la cellule "A1"
With Wb1.ActiveSheet.Range("A1:A13")
.Copy Worksheets(2).[A2]
End With
 
With Wb1.ActiveSheet.Range("B1:B13")
.Copy Worksheets(2).[B2]
End With
End Sub
 
 
Sub AppelPageC()
 
nom_fichier_choisis = Application.GetOpenFilename
    Workbooks.Open nom_fichier_choisis 'ouverture arborescence
    nom_fichier_choisis = ActiveWorkbook.FullName
 
Workbooks("b.xls").Activate
 
End Sub