Discussion :

[Nonno 94]

Bonjour le Forum,

pouvez-vous me dire comment éviter ce problème avec le code suivant ?

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
        Sheets("Valeurs").Select
        
If [AH16] <> "" Then

    Range("AH16").Select                            'Téléchargement des Historiques
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
Windows("COURS (Historique).xls").Activate
        Feuil3.Select                               'Copie de la feuille "Historique"
    Feuil3.Copy Before:=Sheets(5)
    ActiveSheet.Unprotect
    Range("D1:E1").Select
    Selection.Copy
    Range("A1:C1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Rows("2:11").Select
    Selection.Copy
    Rows("2:2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1:C1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            
End If

La macro est lancée d'un 1 er fichier et s'exécute dans un 2 ème (Cours (Historique)).
La macro bloque à la ligne :

Code :

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

        Feuil3.Select                               'Copie de la feuille "Historique"

parce que la Feuil3 se trouve dans le 2 ème fichier et n'est donc pas reconnue.
La feuille active à ce stade de l'exécution de la macro est pourtant bien la feuil3 du 2 ème fichier !!!
J'ai essayé sans succès de modifier le code da la façon suivante :

Code :

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

1
2
Windows("COURS (Historique).xls").Activate
        Feuil3.Select                               'Copie de la feuille "Historique"

Existe-t-il une autre modification qui résoudrait mon problème ?
Si oui, je vous remercie de bien vouloir me l'indiquer.

Bonne journée.
Cordialement.

Nonno 94.

[Daniel.C]

Bonjour,

Ou j'ai mal compris, ou c'est la bonne feuille qui est sélectée ? Alors pourquoi vouloir la re-sélecter ? Ne te sers pas du codename d'une feuille d'un autre classeur. Pourquoi ne pas se servir de son nom ?

[Nonno 94]

Bonjour Monsieur Daniel.C et merci de me répondre.

Concernant votre 1 ère interrogation, la feuil3 est bien "sélectée" lorsque la macro s'arrête. J'ai donc supprimé :

Code :

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

Feuil3.Select

Ceci ne nuit en rien à "la fluidité de ma macro bricolée" lorsque je la lance à partir du 2 ème fichier dont elle est originaire.
Par contre, lorsqu'elle la procédure est lancée à partir du 1 er fichier, cette "fameuse" macro :
- copie tout d'abord la feuil3 de ce 1 er fichier et
- "plante" (réclame la Sub de cette même feuil3 du 1 er fichier) !!!!

Concernant votre seconde demande, je ne puis la satisfaire car la feui3 peut changer plusieurs fois de nom pendant le déroulement de la macro (ces noms changent eux-mêmes régulièrement lors de mises à jour du fichier).

Il semble donc qu'il soit "sage" de ma part de me rabattre sur la solution suivante :
1/ Ouvrir le 2 ème fichier à partir du 1 er
2/ Lancer la macro en cliquant sur un bouton créé dans le 2 ème fichier.

Je pensais pouvoir éviter cette 2 ème "manip.". Mais est-ce possible ? Ce souhait est peut-être dû au fait que "j'suis un peu flemmard" ou alors que certain par ses solutions pertinentes apportées à mes problèmes (suivez mon regard) m'incite à "en demander" toujours ++++ ?

Qu'en pensez-vous ?

A vous lire.
Cordialement.

Nonno 94.

[nibledispo]

bonjour,

je ne comprends pas grand chose à ton code.

je comprend que les ligne avant feuil3.select copient une cellule AH16 en A1 de la même feuille d'un classeur1.

alors si l'autre classeur est ouvert pourquoi ne pas mettre :
workbooks("Historique").sheets("feuil3")

et Daniel preciserait "eviter les select"

la suite du code est pour moi totalement hermetique.

cordialement

[Nonno 94]

Re nibledispo et merci de me répondre.

Malheureusement, le résultat est identique avec la modification que vous proposez et la macro "plante" au même endroit.
Concernant le reste du code, il n'y a que des copies de données et des créations de feuilles. Rien de méchant (j'en suis bien incapable dans ce domaine !).

Cordialement.

[parmi]

Je saisis mal qui est le classeur 1 et le 2 et qui comporte les macros... mais bon...

Plutôt que Feuil3, si tu utilisais le nom du Workbook, ActiveWorkbook ou ThisWorkbook selon le cas ?

Code :

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

ThisWorkbook.Sheets(3).Select

Et comme dit précédemment, les Select sont à éviter

Le code suivant

Code :

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

1
2
3
4
5
6
    Range("AH16").Select      
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

pourrait devenir

Code :

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

1
2
Range("AH16").copy
Range("A1").PasteSpecial xlPasteValues

[Nonno 94]

La macro a exécuter est dans le classeur 2 "Cours (Historique)".
Je souhaite la lancer à partir du Classeur 1 "Conseils - SRD". Pour cela, j'ouvre le classeur 2 avec la macro dont code ci-dessous :

Code :

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

1
2
3
4
5
6
7
Sub Ouvrir_Cours_historique()

    Workbooks.Open Filename:="C:\Users\user\Documents\Médoc (Excel 2003)\R'sIG\Cours (Historique).xls"
    
    'Contrôler_Historiques  
    
End Sub

La macro "plante" lorsque j'ajoute au code ci-dessus la macro "Contrôler_Historiques" qui fonctionne parfaitement lorsqu'elle est lancée avec un bouton située dans la feuille "Valeurs" du Classeur 2 "Cours (Historique)".

Le problème provient du fait que les 2 classeurs sont ouverts et contiennent tous deux 1 Feuil3.

Est-il possible d'écrire un code qui, à partir du classeur 1 :
- ouvre le classeur 2 et
- clique, dans ce classeur, sur le bouton qui lance la macro "Contrôler_Historiques" ?

Merci pour vos propositions et bonne soirée.
Cordialement.

[nibledispo]

Bonsoir,

N'ayant fait que de petites applications avec un seul classeur, il m'est difficile de répondre. Toutefois il me semble que c'est "application.run" pour appeler la macro d'un autre classeur ?

Je vais de ce pas regarder cela.

cordialement,

[parmi]

Comme nibledispo le dit, on peut utiliser Application.Run

Il faut aussi faire la distinction entre ThisWorkbook qui est le classeur qui possède la macro qui roule et ActiveWorkbook qui est le classeur actif au moment où la macro roule...

Donc, lorsque tu ouvres le classeur "Cours (Historique)", c'est lui qui devient ActiveWorkbook tant que tu ne donnes pas le focus à l'autre.

Tu pourrais aussi utiliser des variables Workbook pour bien définir lequel est lequel...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim SRDBook As Workbook, HistBook As Workbook
 
'En début de procédure
Set SRDBook = Thisworkbook
Workbooks.Open "L'autre fichier"
Set HistBook = Activeworkbook
'..... Là, tu utilises les variables workbook pour bien les différencier
'HistBook.Sheets(3).Range("A1") = .....
'Et à la fin, pour vider la mémoire allouée à ces objets
Set SRDBook = Nothing
Set HistBook = Nothing

[laguernette]

C'est l'ensemble des données de Feuil3 que tu veux copier ?
Essaye : Feuil3.cells.select

[Nonno 94]

Bonjour à tous et un grand merci pour vos propositions.

Malheureusement, c'est en vain que je m'acharne depuis hier soir à modifier" mon code bricolé" avec chacune d'elles pour que la macro s'exécute correctement.

Aussi, ce matin, j'aimerais vous poser la question suivante :
>>> puisque actuellement, je procède de la façon suivante :
- Ouverture du classeur "Cours (Historique)" à partir du classeur "Conseils - SRD" en lançant la macro suivante qui se trouve dans ce classeur :

Code :

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

1
2
3
4
5
Sub Ouvrir_Cours_historique()
 
    Workbooks.Open Filename:="C:\Users\user\Documents\Médoc (Excel 2003)\R'sIG\Cours (Historique).xls"
 
End Sub

- puis, dans le classeur "Cours (Historique)" ainsi ouvert, lancement de "ma macro bricolée" "Contrôler_Historiques" en cliquant sur le bouton "CommandButton7"

Code :

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

1
2
3
Private Sub CommandButton7_Click()
   Contrôler_Historiques                                     'Juste_Selectionner
End Sub

situé en [AG18:AI19] de la feuilles "Valeurs" de ce classeur.
>>> n'est-il pas possible de compléter le code ci-dessus en écrivant qu'après ouverture du classeur "Cours (Historique)", il faut cliquer sur le "CommandButton7" pour lancer la macro "bricolée "Contrôler_Historiques" ?

Si cela se révèle impossible, je continuerai, déçu, de lancer "Contrôler_Historiques" en cliquant sur le "CommandButton7".

Bonne journée.
Très cordialement.

Nonno 94.

[Daniel.C]

Bonjour,

Code :

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

1
2
    Workbooks.Open Filename:="C:\Users\user\Documents\Médoc (Excel 2003)\R'sIG\Cours (Historique).xls"
    Application.Run "Cours (Historique).xls!Contrôler_Historiques"

[Nonno 94]

Re Daniel.C,

j'ai espéré faire fonctionné votre dernier code mais, malheureusement, j'en suis incapable. Lorsque je lance la macro depuis le classeur 1 "Conseils - SRD" pour ouvrir le classeur 2 "Cours (Historique)" et exécuter la macro "Contrôler_Historiques" qui se trouve dans ce classeur, la procédure s'arrête, (Application.Run "Cours (Historique).xls!Contrôler_Historiques") est surligné en jaune et le message suivant s'affiche :

Impossible d'exécuter la macro ....Il est possible qu'elle ne soit pas dans ce classeur ou que toutes les macros soient désactivées.

La fenêtre active est alors celle du classeur "Cours (Historique)" dans lequel se trouve cette macro dont le nom est bien "Cours (Historique).xls!Contrôler_Historiques" !

Je capitule car j'ai peur que, de plus, le classeur 2 ne soit ne soit pas très net (impossible de l'ouvrir avec un lien hyper-texte sans "l'endommager gravement" (dixit Excel) et de devoir le réparer !
Je ne peux non plus, me semble-t-il mais avec moi il faut se méfier, ouvrir directement le classeur par la macro et dois passer par un classeur intermédiaire qui ouvre ensuite le classeur 2 !!!

1 ère étape :

Code :

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

    Workbooks.Open Filename:="C:\Users\user\Documents\Médoc (Excel 2003)\R'sIG\Ouvrir COURS.xls"

2 ème étape :

Code :

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

    Workbooks.Open Filename:="C:\Users\user\Documents\Médoc (Excel 2003)\R'sIG\Cours (Historique).xls"

3 ème étape :
je lance la macro "Contrôler_Historiques" en cliquant sur le bouton "CommandButton7"

"ça marche"; alors ....

Encore merci pour votre patience. Bonne soirée.
Cordialement.

Nonno 94.

[Daniel.C]

Peux-tu mettre le classeur "Cours (Historique).xls" - sans données confidentielles - en pièce jointe ?

[Nonno 94]

Re Daniel.C,

une nouvelle fois, merci pour votre persévérance.

Voici donc en P.J. le classeur "corrompu" et celui qui permet de l'ouvrir (Ouvrir COURS)
Il semble que la cause du problème soit des mises en forme conditionnelles dans les colonnes "A" et "X", les plages "AE3:AF8", "AE11:AF16" et la cellule "AI10".
Ce sont des MEF conditionnelles que j'utilise sans aucune difficulté dans tous mes autres classeurs.
Lorsque celui-ci est "gravement endommagé" et que je le répare, le message d'information qui s'affiche m'indique que ces MEF conditionnelles ont été supprimées et il fonctionne à nouveau.
Dans le fichier joint, je les ai remises et ne le rouvre pas car le problème risque de resurgir.

Qu'en conclura le maître ?

Bonne journée.

[Daniel.C]

Le problème vient du classeur "Cours...". J'ai recopié les feuilles dans un classeur vierge ainsi que le module Module3. La macro est correctement appelée. Je te conseille de recopier les feuilles et les macros dans un classeur vierge. Le classeur actuel est douteux.

[Nonno 94]

Re,

ci-joint 2 fichiers.
Arrivez-vous à afficher "Bonjour" en [C3] de la Feuil1 du Classeur "Essai 2" en lançant la macro "Ouvrir_Essai2" dans le Classeur "Essai 1" ?
"Perso", j'en suis incapable !!!
Quelle serait la raison de ce lamentable échec ?
Je joins les 2 classeurs.

A vous lire.
Cordialement.

[Piixx_e]

Hey !

Je ne sais pas si ça va t'aider mais j'ai eu le même souci tout à l'heure, (l'erreur 1004), il ne voulait pas sélectionner une plage de cellules de la feuille 2.

En fait, tout mon code était dans "Feuil1", et ce n'est pas là qu'il faut le mettre pour traiter plusieurs feuilles !

Il faut que tu crées un module

Pour ça : dans VBA, tu cliques droit sur Feuil1 par exemple, tu cliques sur Insertion et Module !
Et tu mets tout ton code dans ce module ! Et là ça devrait marcher

[Daniel.C]

Trois fois maudits ceux qui mettent des espaces dans les noms !

Mets :

Code :

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

Application.Run "'Essai 2.xls'!Bonjour"

au lieu de :

Code :

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

Application.Run "Essai 2.xls!Bonjour"

[Nonno 94]

Re Daniel.C et Piixx_e,

Merci pour vos réponses.
Je n'ai plus le temps de les étudier ce soir mais le ferai, je l'espère, demain.
Daniel.C pouvez-vous, s'il vous plaît, me faire parvenir le classeur que vous avez créé pour que je l'essaie ?

Bonne fin de journée.

P. S. : Daniel.C : si j'ose, le message du 02/11/2013 10h40 a bien été gentiment communiqué par un certain D.C ?

Code :

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

1
2
    Workbooks.Open Filename:="C:\Users\user\Documents\Médoc (Excel 2003)\R'sIG\Cours (Historique).xls"
    Application.Run "Cours (Historique).xls!Contrôler_Historiques"

Cordialement.