macro ouverture et utilisation fichier tiers

Version imprimable

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 :arf:. Serais ce un problème de fichier ouvert ?

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

Code:

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

17/12/2008, 12h29
aalex_38

Bonjour,

Sais-tu sur quelle ligne tu as ce message.
17/12/2008, 13h48
jojo_peter

1 pièce(s) jointe(s)
re-bonjour

l'erreur se situe sur la ligne :
Code:

1 2 Set Wb1 = Workbooks(nom_fichier_choisis)
pour plus de facilité je joint les fichiers

Bon, le problème c'est que tu indique le chemin complet alors que tu devrais indiquer seulement le nom du classeur.

Un exemple pour lire tous les classeurs ouverts se trouve sur Developpez.com :
Code:

1 2 3 4 5 6 7 8 9 10 Sub BoucleClasseurs() 'Définit une variable qui va représenter un classeur à chaque itération. Dim Wb As Workbook 'Boucle sur chaque classeur de l'application Excel For Each Wb In Application.Workbooks 'Ecrit le nom de chaque classeur dans la fenêtre d'exécution Ctrl+G Debug.Print Wb.Name Next Wb End Sub
Voila, il te suffit d'indiquer le nom du classeur et ta macro va fonctionner.
Bon courage.

17/12/2008, 16h50
jojo_peter

Ok, c'est mieux ainsi

merci beaucoup