[VBA-E]PB attribuer classeur à une variable

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:

---

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.

plutot que de faire ça :

Code:

---

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:

---

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 :oops: )

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 :)

tiens inspire toi plutôt de ce code :

Code:

---

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:

---

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:

---

1 2	ThisWorkbook.path

---

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

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

Code:

---

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?

Citation:

---

Envoyé par rond24

...
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...?

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:D merci. Mais vu que mon fichier cible est déjà ouvert j'ai défini ma variable ainsi:

Code:

---

ClasseurCible = ThisWorkbook

---

et là ma variable me retourne nothing??

Citation:

---

Envoyé par 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:D merci. Mais vu que mon fichier cible est déjà ouvert j'ai défini ma variable ainsi:

Code:

---

ClasseurCible = ThisWorkbook

---

et là ma variable me retourne nothing??

---

il est ou le set...

sinon si ton classeur cible est celui contenant ta macro tu peu utiliser directement ThisWorkBook.. pas la peine de passre par une variable supplémentaire..

C vrai!!!:oops:
Thx