[VBA]Excel Passer d'un classeur à un autre

Version imprimable

25/01/2006, 15h39
Angel79

[VBA]Excel Passer d'un classeur à un autre
Bonjour à tous!
Je travaille sur deux classeurs "liés" par une macro en utilisant Run.
Quand je suis dans le classeur B, je voudrais pouvoir revenir dans le classeur A, sur la feuille active qui a lancé la macro, et y recopier les données grâce à une nouvelle macro.

J'ai visité la FAQ, j'ai bien trouvé une réponse de Bidou :
Code:

1 2 3 Dim objWorkbookSource As Workbook, objWorkbookCible As Workbook objWorkbookSource = Application.Workbooks.Open(Application.GetOpenFilename) objWorkbookCible = Application.Workbooks.Add
Mais je ne comprend pas comment faire dans mon cas. Faut-il que j'indique les noms de mes classeurs?

Merci pour votre aide!
25/01/2006, 18h51
Megaxel

Ce n'est pas très compliqué: en fait, tu dois commencer par ouvrir tes deux classeurs, ou plutôt ouvrir le deuxième, puisque le premier est déjà ouvert, puisque ta macro est lancée.
A partir de ce moment, tu peux travailler indifféremment sur les données des deux classeurs en préfixant les cellules par l'informations COMPLETE de leur position:

Code:

MaVariable = WorkBooks("ClasseurA.xls").Worksheets("Feuil1").Cells(3,1)

Ainsi, tu mets dans "MaVariable" le contenu de la cellule A3 de l'onglet "Feuil1" du classeur "ClasseurA.xls".
Quant à lancer une autre macro qui se trouve dans l'autre classeur, je trouve que c'est une cinématique bien compliquée pour réaliser une copie de cellules d'un classeur vers un autre. Tu es bien sûr qu'il n'y a pas plus simple?
25/01/2006, 20h19
Angel79

Merci pour ton aide Megaxel. :D
En effet, je pense qu'il y a bcp plus simple. Il suffirait d'un userform mais je ne sais pas les faire.
Et le problème, c'est que j'ai besoin de récupérer certaines données qui se trouvent colonnes B, C, E, F et H et ceci sur une ligne choisie par l'utilisateur.
Par exple :
j'ai besoin de récupérer les données de la ligne 6, B6, C6, E6, F6 et H6 dans le classeur Projets, feuille "Données". Pour ensuite aller les coller dans la feuille active "1er trimestre" du classeur Dupond, aux emplacements nommés par des variables.
Cette manipulation sera valable pour les autres onglets "2ème trimestre", "3ème trimestre" et "4ème trimestre" du classeur Dupond.
Et Dupond n'est pas seul, il y a Durand, Martin, etc.
La même manipulation pour les autres personnes.

Donc en effet, ta solution est intéressante mais ta remarque l'est encore plus.Si comme tu dis il faut
"préfixer les cellules par l'informations COMPLETE de leur position", dans mon cas ce n'est pas possible, vu qu'il y a 4 onglets et plusieurs classeurs.

Je pensais qu'il était possible de dire en VBA " de retourner dans le classeur, sur la feuille qui a lancé la macro" sans avoir à l'appeler par son nom(la feuille). Hélàs...
J'ai plus qu'à....me mettre au userform! :lol:
25/01/2006, 20h27
jmfmarques

Citation:

Je pensais qu'il était possible de dire en VBA " de retourner dans le classeur, sur la feuille qui a lancé la macro" sans avoir à l'appeler par son nom(la feuille). Hélàs...

Rien, semble-t-il ,ne saurait t'empêcher d'écrire ce qui te convient dans un fichier temporaire... puis d'y lire l'information nécessaire .... et de l'effacer après utilisation.
Ce n'est pas très élégant, certes, mais.... :idea:
25/01/2006, 21h37
bidou

Citation:

Je pensais qu'il était possible de dire en VBA " de retourner dans le classeur, sur la feuille qui a lancé la macro" sans avoir à l'appeler par son nom(la feuille). Hélàs...

ThisWorkbook surement :lol:
26/01/2006, 08h32
Angel79

Et non ce n'est pas Thisworkbook puisqu'il est déjà ouvert. Je veux aller dans l'autre Workbook (dont le nom peut varier suivant l'utilisateur), Worksheet 1,2, 3 ou 4.
26/01/2006, 08h59
bidou

soyons clair parce que tu commence à m'embrouiller :marteau:

ThisWorkbook contient le code de la macro qui est en train de s'exécuter donc c'est bien "le classeur qui a lancé la macro" :koi:

J'aime bcp ton smiley qui se casse la tête!
voici ce que j'ai fait, peut-être serait-ce plus clair?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub RechercheProjet()
'macro dans le classeur A qui s'exécute grâce à un bouton
 
    ChDir "C:\Gestion\Heures\essais"
    Workbooks.Open Filename:= _
        "C:\Gestion\Heures\essais\Liste_projets_essais.xls"
 
'lance la macro pour ouvrir le classeur liste des projets 
Choix1
 
End Sub
 
Sub Choix1()
Run ("Liste_projets_essais.xls!ChoixProjet")
End Sub

Puis j'arrive sur le classeur B soit Liste_projets_essais :

Code:

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
Sub ChoixProjet()
 
Sheets("Projets Ing").Select
 
'teste si la sélection est bien devant un numéro de projet
If ActiveCell.Value <> " --->" Then MsgBox "Sélectionnez la flèche devant le N° de projet et validez": Exit Sub
 
Selection.Offset(0, 1).Select
CAT = ActiveCell.Value
 
Selection.Offset(0, 1).Select
N°_Projet = ActiveCell.Value
 
Selection.Offset(0, 2).Select
Site = ActiveCell.Value
 
Selection.Offset(0, 1).Select
Affectation = ActiveCell.Value
 
Selection.Offset(0, 2).Select
Désignation = ActiveCell.Value
 
Selection.Offset(0, -6).Select
 
 
End Sub
 
Sub Valider()
'bouton qui va fermer le classeur et de ce fait va réactiver l'autre
 
Workbooks("Liste_projets_essais.XLS").Close False
 
End Sub

Maintenant, il faut que je recopie les données que j'ai sélectionnées grâce à la flèche, qui sont "en mémoire" par des variables dans le classeur A. (je n'ai pas encore fait le code, je rame)

Après, lequel est ThisWorkbook dans cette histoire, je l'ignore.

Du coup je ne vois plus l'intérêt d'utiliser des macros différentes puisque ca revient à faire

Code:

1
2
3
4
5
6
7
8
9
ChDir "C:\Gestion\Heures\essais" 
Set MonClasseur=Workbooks.Open(Filename:= "C:\Gestion\Heures\essais\Liste_projets_essais.xls")
With MonClasseur.Sheets("Projets Ing")
   If .Cell(x,y).Value <> " --->" Then 
       MsgBox "Sélectionnez la flèche devant le N° de projet et validez"
       Exit Sub
   EndIf
etc..... 
End With

Merci! en effet, c'est beaucoup plus court et plus simple que de faire appel à une autre macro ailleurs.

Par contre, je ne comprend pas pourquoi mes variables ne veulent pas se recopier après avoir "valider".
Voici mon code :

Code:

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
'déclaration de toutes les variables
 
Dim Cat As String
Dim N°_projet As String
Dim Site As String
Dim Affectation As String
Dim Désignation As Variant
 
Sub Valider()
 
Selection.Offset(0, 1).Select
Cat = ActiveCell.Value
 
Selection.Offset(0, 1).Select
N°_projet = ActiveCell.Value
 
Selection.Offset(0, 2).Select
Site = ActiveCell.Value
 
Selection.Offset(0, 1).Select
Affectation = ActiveCell.Value
 
Selection.Offset(0, 2).Select
Désignation = ActiveCell.Value
 
Selection.Offset(0, -6).Select
 
Workbooks("Liste_projets_INGessais.XLS").Close False
 
End Sub

Dans mon classeur A, je fais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Parcourir()
'Parcourir le tableau pour trouver la dernière ligne vide
Range("A5:A27").Activate
En_Colonne = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colonne).Activate
En_Ligne = En_Ligne + 1
Wend
With ActiveCell
ActiveCell.Select
End With
 
End Sub
 
Sub Recopie_données()
ActiveCell.Select
ActiveCell.Value = Cat
 
End Sub

Mais la cellule (A5 pour exemple) reste vide. Par contre, si je relance la macro Parcourir, la cellule vide suivante est A6 !! :cfou:

26/01/2006, 13h48
bidou

Pour chercher la dernière cellule vide se serait peut être plus simple de faire :

Code:

Range("A27").End(xlUp).Offset(1).Select
26/01/2006, 14h00
Angel79

Merci Bidou !
C'est vrai que c'est plus rapide et plus simple ta solution.

Par contre, je ne comprend toujours pas pourquoi mes variables ne se recopient pas quand je lance la macro Recopie_données dans le classeur A.
J'ai vérifié, en faisant pas à pas la macro Valider, dans le classeur B je vois bien que les variables ont une valeur quand je positionne la souris dessus, mais après, quand j'exécute l'autre macro, elles ont disparu!!
Je n'y comprend rien...
Aurais-je oublié qqch :?:
26/01/2006, 14h39
Igloobel
Salut,
personellement quand je veux affecter à une cellule une valeur je fais :

Code:

Cells(lign, col).FormulaR1C1 = variable

ou
lign : est le N° de ligne
col : est le N° de colonne
variable : ta variable qui contient ta valeur à affecter

Voilà, c'est comme cela que je fais, je ne connaissais pas ce type d'instruction :
Citation:
Code:

1 2 ActiveCell.Select ActiveCell.Value = Cat
@+

Igloobel
26/01/2006, 14h56
Angel79

Merci pour ta proposition Igloobel mais dans mon cas, je ne peux pas indiquer dans Cells la ligne et la colonne car comme avant je demande la dernière cellule vierge du tableau, la Cells en question n'aura jamais la même "adresse"
26/01/2006, 15h06
bidou

Il faut que tes variables soient déclarées dans le classeur A.

mais elles le sont, dans le module 1:

Code:

1
2
3
4
5
6
7
8
 
'déclaration de toutes les variables
 
Dim Cat As String
Dim N°_projet As String
Dim Site As String
Dim Affectation As String
Dim Désignation As Variant

26/01/2006, 15h16
bidou

montre moi tout ton code sinon on va faire 12 pages
26/01/2006, 16h43
Angel79

Non c'est bon :trouve:

Il faut que je déclare mes variables en Public et non en Dim

Après, tout fonctionne à merveille!!
Je suis contente que cela se termine enfin.

Donc pour moi le pb est :resolu:

Merci à tous!