Discussion :

[rond24]

bjr,
je voudrais travailler sur 3 classeurs différents. je souhaite pour cela utiliser des variables, mais à chaque fois ça plante, et j'ai comme message d'erreur que l'indice n'appartient pas à la sélection.
J'ai regardé ds la faq vba, mais je ne vois tjs pas pourquoi ça plante.

Code :

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

1
2
3
4
5
6
7
8
9
'Ouverture des deux classeurs source
    Application.Workbooks.Open Application.Workbooks(1).Path & "\" & "PdC_PF.xls"
    Application.Workbooks.Open Application.Workbooks(1).Path & "\" & "PdC_dest.xls"
    Set ClasseurSource1 = Workbooks("PdC_PF.xls")
    Set ClasseurSource2 = Workbooks("PdC_dest.xls")
    ClasseurCible = Application.Workbooks(Application.Workbooks(1).Path & "\" & "Restit.xls")
 
 
    ClasseurCible.Worksheets("Restitution").Select

Merci.

[illight]

plutot que de faire ça :

Code :

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

1
2
3
4
5
6
7
8
Application.Workbooks.Open Application.Workbooks(1).Path & "\" & "PdC_PF.xls"
    Application.Workbooks.Open Application.Workbooks(1).Path & "\" & "PdC_dest.xls"
    Set ClasseurSource1 = Workbooks("PdC_PF.xls")
    Set ClasseurSource2 = Workbooks("PdC_dest.xls")
    ClasseurCible = Application.Workbooks(Application.Workbooks(1).Path & "\" & "Restit.xls")
 
 
    ClasseurCible.Worksheets("Restitution").Select

Peut etre qu'écrire ça marchera mieux :

Code :

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

1
2
3
4
5
dim ClasseurSource1,ClasseurSource2 as string
Workbooks.Open Application.Workbooks(1).Path & "\" & "PdC_PF.xls"
ClasseurSource1 = activeWorkbook.Name
Workbooks.Open Application.Workbooks(1).Path & "\" & "PdC_dest.xls"
ClasseurSource2 = activeworkbook.name

Dans ce genre la et tes variables marcheront quand ut changera de classeur, tu fais un Windows(ClasseurSource1).activate ou un workbooks(ClasseurSource1).select (mai sje crois que le second marche pas )

Par contre c'est quoi ton Classeur Cible, j'ai pas trop compris ce que tu voulais faire avec

Enfin j'espère que tu as compris le principe

[SfJ5Rpw8]

tiens inspire toi plutôt de ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub OuvreClasseur()
Dim wk As Workbook
On Error Resume Next
Set wk = Workbooks.Open("Classeurs1.xls")
On Error GoTo 0
If wk Is Nothing Then
 MsgBox "Erreur sur ouverture classeur1.xls"
 Exit Sub
End If
End Sub

ensuite une fois ouvert tu accéde au classeur par wk.sheets(....


ensuite dans ton code c'est pas terrible le :

Code :

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

1
2
 
Application.Workbooks(1).Path...

cela signifie que tu prends le répertoire du 1° classeur ouvert dans excel...c'est pas forcément celui que tu ve...!! utilise plutôt

Code :

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

1
2
 
ThisWorkbook.path

s'il sagit du classeur contenant la macro...

[rond24]

merci de vos réponses.
ça marche avec le code que tu proposes illight . J'ai aussi intégré thisworkbook.
mais Bbil Le workbooks.open ne mfonctionne pas.

Code :

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

1
2
3
 
Dim ClasseurSource1 as Workbook
Set ClasseurSource1 = Workbooks.Open("PdC_PF.xls")

il me retourne "nothing".
Pourtant je ne crois pas avoir besoin de mettre le chemein complet d'accès à Pdc_PF.xls?

[SfJ5Rpw8]

...
Pourtant je ne crois pas avoir besoin de mettre le chemein complet d'accès à Pdc_PF.xls?

et pourquoi...? as moins que le fichier soit sur le répertoire courant...?

[rond24]

Oui.
j'ai mis mes deux fichiers source ainsi que mon fichier cible dans le même répertoire.
Et c'est bon, j'ouvre correctement mes fichiers merci. Mais vu que mon fichier cible est déjà ouvert j'ai défini ma variable ainsi:

Code :

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

ClasseurCible = ThisWorkbook

et là ma variable me retourne nothing??