[VBA-E] travailler sur deux classeurs

bonjourà tous,

je dois recopier à partir d'un fichier excel, F1, des plages de tableaux sur un autre fichier Excel, F2. Pour cela, je dois ouvrir les deux fichiers pour travailler dessus. Mais deja a cette étape, j'ai un pb. voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton1_Click() Dim objWorkbookSource As Workbook Dim objWorbookCible As Workbook   Set xlapp = New Excel.Application   objWorkbookSource = xlapp.Workbooks.Open("C:\Test\Test.xls") objWorbookCible = xlapp.Workbooks.Add   objWorbookCible.Worksheets(2).Cells(1, 1) = objWorkbookSource.Worksheets(1).Cells(1, 1)   objWorkbookSource.Close objWorbookCible.Close   End Sub

---

j'ai eu erreur dès "objWorkbookSource = xlapp.Workbooks.Open("C:\Test\Test.xls")", une erreur du type '91', variable objet non defini. Une idées, cela vien t il de "xlapp" ?
Merci pour votre aide

:roll:

8O Pourquoi tu utilises tout ce chariabia pour ouvrir un Classeur ? :mrgreen:

Essaye comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click() dim F1,F2 as string F1 = activeworkbook.name 'ici il faut mettre le classeur d'ou tu lance ta macro Workbooks.Open "C:\Test\Test.xls" F2 = activeworkbook.name     F2.Worksheets(2).Cells(1, 1) = F1.Worksheets(1).Cells(1, 1)   F1.Close F2.Close   End Sub

---

Après a toi de le mettre à ta sauce pour le faire dans le sens que tu veux ;)

je veux pas ouvrir un classeur mais deux.

Et j'ai regarder la FAQ de VBA avant, et il y a cette facon de faire expliquer...

Je ne comprends pas ce que tu fais illight..
peut tu m'expliquer stp ?
j'ai fait cela et il me dit une erreur sur F2 : qualificateur incorrect

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton1_Click() Dim F1, F2 As String   F1 = ActiveWorkbook.Name 'ici il faut mettre le classeur d'ou tu lance ta macro Workbooks.Open "C:\Test\Test.xls" F2 = ActiveWorkbook.Name Workbooks.Open "C:\Test\Document2.xls"   F2.Worksheets(2).Cells(1, 1) = F1.Worksheets(1).Cells(1, 1)   F1.Close F2.Close   End Sub

---

merci pour ton aide

qq'1 aurrai une idée ?
je suis perdu....
Je n'arrive pas à travailler en même temps sur les deux classeurs excel...
help me please

:help:

Ah oui effectivement j'ai écrit un peu vite et je me suis planté :oops: désolé :oops: :

Code:

---

1 2 3 4 5

workbooks(F2).Worksheets(2).Cells(1, 1) = workbooks(F1).Worksheets(1).Cells(1, 1)   workbooks(F1).Close workbooks(F2).Close

---

En fait, dans les variables F1 et F2 je met les noms des classeurs que tu ouvre :) de cette façon tu pourra naviguer entre tes 2 classeurs plus facilement :) ou copier des données ou autre :)

merci ca fonctionne mieux.
Bon je vais continuer dans lmes developpements.
Et au besoin...

:merci:

illight, tu devrais faire attention au code que tu proposes.

Deux remarques.

• La première ne porte pas vraiment à conséquence mais il est utile de le savoir.
  Dans la déclaration
  
  Code:

  ---

  Dim F1, F2 as String

  ---

  seul F2 sera du type String. F1 sera un Variant.
  Le code correct pour déclarer 2 Strings est:
  
  Code:

  ---

  Dim F1 As String, F2 As String

  ---

• Pourquoi utilises-tu le nom des classeurs alors que tu peux en créer une instance?
  Voici le même code allégé en créant des instances de classeurs:
  
  Code:

  ---

  1 2 3 4 5 6 7 8 9 10 11

  Private Sub CommandButton1_Click() Dim F1 As Workbook, F2 As Workbook Set F1 = ActiveWorkbook Set F2 = Workbooks.Open "C:\Test\Document2.xls"   F2.Worksheets(2).Cells(1, 1) = F1.Worksheets(1).Cells(1, 1)   F1.Close F2.Close   End Sub

  ---

POur la déclaration, tu viens de m'apprendre quelquechose Alain, maintenant je le saurai et j'y ferai plus attention :)



Pour les déclarations d'instance, je fais de cette manière car parfois j'ai besoin du nom des classeurs pour certaines fonctions et autres procédures que j'utilise :)

A part alléger le code en les créant en instance, est-ce que ça a une incidence sur le mode de fonctionnement, ou la rapidité de la procédure en soi ?

Le premier avantage c'est, au moins, la compacité du code.
Le deuxième, c'est de s'habituer à utiliser des objets. Le passage (qui risque de nous être obligé, un jour ou l'autre) à DOT.NET n'en sera que plus facile.
En terme de performance, l'accès à un pointeur (F2) est toujours plus rapide que l'interprétation d'une chaîne (Workbooks(F2) où F2 est une String) pour, en finale, retourner un objet.

Et si tu as besoin du nom du classeur,

Code:

---

F1.Name

---

Merci beaucoup pour tes explications :D