Discussion :

[argv666]

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 :

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

[illight]

Pourquoi tu utilises tout ce chariabia pour ouvrir un Classeur ?

Essaye comme ça :

Code :

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

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

[argv666]

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 :

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

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

[argv666]

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

[illight]

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

Code :

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

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

[argv666]

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

[AlainTech]

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 :

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

  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 :

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

  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 :

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

  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

[illight]

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 ?

[AlainTech]

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 :

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

F1.Name

[illight]

Merci beaucoup pour tes explications