travail sur plusieur classeur

**calimero91** · 09/01/2006, 09h55

bonjour a tous,

je doit travailler sur deux classeur different est malheureusement ej n'y arrive pas.j'ouvre mon premier classeur, et ensuite avec click sur un command bouton j'ouvre mon deuxieme classeur pour ajouter une ligne dans la worksheet1 hors il me rajoute une ligne dans le premier classeur ouvert et pas dans le deuxieme comme je le souhaiterais.
pourriez vous m'aidez s'il vous plait car la je tourne en rond.
merci bcp.

**ouskel'n'or** · 09/01/2006, 10h01

Hello,

Actives-tu ton second classeur et sélectionnes-tu la feuille avant de bricoler dedans ?

Code :

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

1
2
3
4
5
6
Workbooks("NomClasseur2.xls").activate
Worksheets("NomFeuilClasseur2").select
 
'ou 
 
sheets("NomFeuilClasseur2").activate

Tu dis

A+

**calimero91** · 09/01/2006, 10h12

oui mais je ne comprend absolumen,t pk il ne veut pas travailler sur le deuxieme.
j'ai essayer avec ta methode car moi j'utiliser

Code :

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

1
2
wrexcel.Activate
wfexcel.Select

mais ça ne me donne rien de plus

**ouskel'n'or** · 09/01/2006, 10h20

A tout hasard, ton second classeur ne serait-il pas protégé ?

A tout'

**calimero91** · 09/01/2006, 10h27

non le seul classeur proteger est le premier.

**Megaxel** · 09/01/2006, 11h00

Hello !
Plus généralement, si tu penses bien à préfixer touts tes "Cells(a,b)" ou tes "Range(Colonne & i)" par le nom du classeur et le nom de l'onglet:

Code :

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

1
2
 
Workbook("PremierClasseur.xls").Worksheets("OngletA").Cells(2,1)...

tu devrais éviter les confusions, sans avoir a faire de SELECT, ni d'ACTIVATE.

**calimero91** · 09/01/2006, 11h21

desolée maios ça ne fonctionne pas mieux.
je comprend vraiment pas ce qui se passe.
je vais essayer de creer un autre executable que j'appellerais pour ouvrir et travailler dans e deuxieme classeur.mais cette solution m'ennuie un peu,si qq'un a une lumiere a me donner je suis preneur.

**ouskel'n'or** · 09/01/2006, 11h45

Bref, montre nous ton code... d'écriture autant que de sélection

A+

**calimero91** · 09/01/2006, 11h51

voila ouskel'nor

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Command2_Click()
 
'ouverture de l'application
Set appexcel2 = CreateObject("excel.application")
'ouverture du fichier"INDICATEUR"
Set wrexcel = appexcel2.Workbooks.Open("c:\dossier\INDICATEURS.xls")
'ouverture des feuilles
Set wfexcel = wrexcel.Worksheets("données_production")
Set waexcel = wrexcel.Worksheets("données_causes")
Set wcexcel = wrexcel.Worksheets("données_prévisionnel")
Set wdexcel = wrexcel.Worksheets("VUE_GLOBALE")
appexcel2.Visible = True
 
wrexcel.Activate
wfexcel.Select
 
 
r = 1
q = Range("A65535").End(xlUp).Row + 1   'recuperation de la premiere ligne vide
 
 
Cells(q, r).Select                      'selection de la premiere ligne vide
Selection.EntireRow.Insert              'ajout d'une ligne complete
 
wrexcel.Close   'fermeture du classeur excel
appexcel2.Quit   'fermeture de l'application excel
'desallocation memoire
Set wfexcel = Nothing
Set waexcel = Nothing
Set wcexcel = Nothing
Set wdexcel = Nothing
Set wrexcel = Nothing
Set appexcel2 = Nothing
 
End Sub

et voici le code pour le premier classeur:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub form_load()
 
'ouverture de l'application
Set appexcel = CreateObject("excel.application")
'ouverture du fichier 
Set wbexcel = appexcel.Workbooks.Open("dossier\CD.xls")
'ouverture de la feuille 
Set wsexcel = wbexcel.Worksheets("VALID")
appexcel.Visible = False
 
Call ligne
 
End Sub

en esperant que aideras.
par contre les deux classeur sont ouvert dans deux form different.

**ouskel'n'or** · 09/01/2006, 12h14

Déjà, dans l'ouverture de ton fichier 2, tu ouvres une seconde fois l'application.

Essaie de supprimer cette ligne dans "Private Sub Command2_Click() "

'ouverture de l'application
Set appexcel2 = CreateObject("excel.application")

Tu dis

A+

**calimero91** · 09/01/2006, 12h20

au debut je ne recreer pas mon application mais erreur oblige je l'ai recreer. sans cette ligne j'ai l'erreur "un objet et obligatoire"(erreur 424).

**ouskel'n'or** · 09/01/2006, 12h43

Ouvre tes deux fichiers avec le même bouton quite à fermer le premier et quitter l'application ouverts dans form_load.

J'ignore si tu peux déclarer appexcel en public mais ce serait sans doute la meilleure solution... (Je ne connais pas VB)

Au fait, tu as regardé dans la FAC, il y a un sujet qui traite d'Excel sous VB

A+

**calimero91** · 09/01/2006, 12h48

j'ai regarder dans la fac, il donne methode que je ne comprend pas trop mais je vais essayer.et je ne peux pas ouvrir met deux application avec le meme bouton(malheureusement). car comme je le dit plus haut ils sont sur deux form different.

**ouskel'n'or** · 09/01/2006, 13h38

Alors essaie de déclarer appexcel en public (???)

A+

**calimero91** · 09/01/2006, 14h03

deja essayer aussi.cela ne fonctionne pas non plus.
je vais essayer la methode de la FAQ sinon en creant un modukle a part pour l'ouverture du deuxieme classeur et l'ecriture a l'interieur, comme ça ça devrait fonctionner je vous tiendrez au courant mais surtout si vous avez d'autre idées n'hesitez pas. l'aide ai toujours la bienvenu et un savoir n'est utile que si il est partager.

**calimero91** · 10/01/2006, 10h11

bon ben j'ai tester la methode donner par la FAQ mais c une methode VBA. et je n'arrive pas (meme en la modifiant pour VB) a la faire fonctionner.donc j'espere que l'un d'entre vous pourra m'aider.
merci d'avance

**calimero91** · 12/01/2006, 07h22

bon ben voila je viens de tester la methode qui m'avais ete donne par megaxel en precisant devant chaque cells sur quel classuer je travailler et ça a bien fonctionner.merci bcp a tous pouir votre aide et a toi megaxel pour la solution.

**ouskel'n'or** · 12/01/2006, 10h10

Hello,

Je me demandais pourquoi tu disais de la solution de mégapixel qu'elle ne marchait pas et j'ai trouvé :
Metsmoil'sel écrit

Workbook("PremierClasseur.xls").Worksheets("OngletA").Cells(2,1)...

alors qu'il faut mettre "Workbooks("PremierClasseur.xls")...."
Salut passemoilsel
J'aime bien épuiser "le sujet"

A+

**calimero91** · 12/01/2006, 15h37

merci ouskel'nor et c'est effectivement ce qui me poser probleme.

et voila c moi qui est le dernier.lol (juste pour t'ennuyer. quoique je devrais pas sinon tu vas plus m'aider.lol)

travail sur plusieur classeur

VB 6 et antérieur

Discussions similaires

Partager

Partager