enchainement de macro

Bonjour,

Voici mon problème.
J'ai dans un premier temps créer un userform avec un bouton d'enregistrement.
Un clique sur ce bouton entraine la création d'un nouveau fichier excel, de sa mise en page et de la saisie des infos trouvées dans le userform.

Mon problème vient de la segmentation de la macro. En effet, lorsque les macro sont "bout à bout" (1 sub au début et 1 à la fin) il n'y a pas de problème lorsque qu'elle sont dans différentes sub elles ne s'enchainent pas.

Voici un exemple :

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

Public Sub Cmd_save_Click()   'On appelle le fichier 'Variable représentant le classeur "destination" Dim sNomFichier2 As String Dim Wb As Workbook   'Ouverture du classeur de destination sNomFichier2 = "monchemin.xlsx" If Dir(sNomFichier2) <> "" Then   Set Wb = Application.Workbooks.Open(sNomFichier2)   Call Wb.Activate   ActiveWindow.WindowState = xlMinimized Else Workbooks.Add ActiveWorkbook.SaveAs sNomFichier2   Set Wb = Application.Workbooks.Open(sNomFichier2) Call Wb.Activate ActiveWindow.WindowState = xlMinimized End If   Call MEP_fichier_ind Call insertion_userform   Call Wb.Close(True) Set Wb = Nothing   End Sub

---

La macro MEP_fichier_ind commence par

Code:

---

1 2	Wb.Sheets.Add ActiveSheet.Name = "PAGE DE GARDE"

---

mais s'arrête à la première ligne.

Cette dernière macro est stockée dans un module alors que la première est sur le userform.

Si je copie colle la macro MEP_fichier_ind à la place de

Code:

---

Call MEP_fichier_ind

---

elle s'execute normalement.

Merci de vos réponses

Bonjour.

Ta variable objet est de portée limitée à la procédure "Cmd_save_Click". Elle n'existe pas pour la procédure "MEP_fichier_ind ". Deux solutions :

• Passer wb en argument de la procédure "MEP_fichier_ind "
• Déclarer Wb comme variable objet publique dans un module standard.

Cela n'a rien à voir mais il me semble que l'instruction sur la ligne 21 va tenter d'ouvrir un classeur déjà ouvert.

Cordialement,

PGZ

Bonjour,

Le passage en argument est de loin préférable à la variable publique..


cordialement,

Didier

impeccable merci beaucoup

Re bonjour,
J'édite mon message car un nouveau problème apparait et je pense qu'il est de même nature.
J'ai bien déclaré wb en tant que parametre comme conseillé dans les messages précédents.

Plus loins dans la macro il s'agit d'intégrer les textbox depuis un userform.
J'utilise le code suivant :

Code:

---

wb.Worksheets("PAGE DE GARDE").Range("B21").Value = txt2.Text

---

Faut il déclarer les text box, bouton d'option et autres check box en paramètre ou bien faut il déclarer le userform dans sa totalité et si oui comment ?

PS : lorsque j'entre le code suivant la macro fonctionne :

Code:

---

wb.Worksheets("PAGE DE GARDE").Range("B21").Value = "coucou"

---

Merci de vos réponses

Cordialement

Citation:

---

Envoyé par braquin

i
Re bonjour,
J'édite mon message car un nouveau problème apparait et je pense qu'il est de même nature.

---

Bonjour,

le plus pratique pour répondre est de donner la nature du problème, le contenu du message d'erreur, à quelle ligne etc...;)

si tu mets un point d'arrêt sur ta première ligne de code citée, le survol de la souris donne quoi pour la valeur de ton textbox ?

cordialement,

Didier

Bonjour,

Le message d'erreur est :

erreur '424':
Objet requis

Concernant la valeur du textbox rien n'apparait.

Le code utilisé est le suivant :

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

Public Sub Cmd_save_Click()   'On appelle le fichier 'Variable représentant le classeur "destination" Dim sNomFichier2 As String Dim wb As Workbook   'Ouverture du classeur de destination sNomFichier2 = "D:\travail\chantiers\EAE\EAE " & Year(Date) & txt1.Text & "_" & txt2.Text & ".xlsx" If Dir(sNomFichier2) <> "" Then   Set wb = Application.Workbooks.Open(sNomFichier2)   Call wb.Activate   ActiveWindow.WindowState = xlMinimized Else Workbooks.Add ActiveWorkbook.SaveAs sNomFichier2   Set wb = Application.Workbooks.Open(sNomFichier2) Call wb.Activate ActiveWindow.WindowState = xlMinimized End If Application.Run "test", wb 'Application.Run "MEP_fichier_ind", wb 'Application.Run "MEP_userform", wb 'Application.Run "recap"     End Sub

---

Cette première macro est dans le userform (rattachée au bouton d'enregistrement

Code:

---

1 2 3 4 5 6 7

Sub test(wb As Workbook) wb.Sheets.Add wb.Worksheets("Feuil1").Name = "PAGE DE GARDE" wb.Worksheets("PAGE DE GARDE").Range("A14").Value = "ENTRETIEN ANNUEL D'EVALUATION" wb.Worksheets("PAGE DE GARDE").Range("B20").Value = txt1.Text   End Sub

---

Cette seconde marco est dans un module.
Le problème survient sur la dernière ligne de cette seconde macro

J'éspère avoir été assez précis.
Merci de vos réponses

Cordialement

Bonjour,

je ne comprends pas trop ton code et n'ai pas le temps décrypter.

ton erreur est normale, sinon. Peux-tu dire le schéma de ton enchaînement :

tu as un classeur, tu lui met un USF1 à partir duquel tu ouvres un classeur avec une nouvelle feuille...

la textbox ciblée est dans ton USF1 ?

tu veux l'inscrire dans une cellule de quel classeur ?

Le code qui demande cette écriture est situé où ?

cordialement,

Didier

Bonjour,

Voici les différentes étapes du projet.

1) J'ouvre Excel, le userform1 se lance automatiquement, je saisis différentes informations (textbox, checkbox, option button)
2) je clik sur enregistrer
3) un nouveau fichier excel (2) est créer
4) des nouvelles feuilles sont ajoutées à ce fichier excel (2)
5) j'insère ensuite les réponses des textbox, checkbox et option button dans différentes cellules du fichier excel (2)
6) l'ensemble du code est rédigé dans le premier classeur. Il n'y a aucune macro dans les autres classeurs puisque ces derniers n'existe pas avant de cliker sur le bouton de sauvegarde

J'ajoute que le problème n'apparait que lorsque je tente de "partitionner" ma macro d'origine. Initialement lorsque tout est regroupé dans le bouton save, tout fonctionne
La partie ne fonctionant pas est située dans un module.
Le début du code (bouton save) est inscrit ci dessous. C'est lui qui créer le nouveau ficher excel (2) et appelle les autres macros

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

Public Sub Cmd_save_Click()   'On appelle le fichier 'Variable représentant le classeur "destination" Dim sNomFichier2 As String Dim wb As Workbook   'Ouverture du classeur de destination sNomFichier2 = "D:\travail\chantiers\EAE\EAE " & Year(Date) & txt1.Text & "_" & txt2.Text & ".xlsx" If Dir(sNomFichier2) <> "" Then   Set wb = Application.Workbooks.Open(sNomFichier2)   Call wb.Activate   ActiveWindow.WindowState = xlMinimized Else Workbooks.Add ActiveWorkbook.SaveAs sNomFichier2   Set wb = Application.Workbooks.Open(sNomFichier2) Call wb.Activate ActiveWindow.WindowState = xlMinimized End If Application.Run "test", wb 'Application.Run "MEP_fichier_ind", wb 'Application.Run "MEP_userform", wb 'Application.Run "recap"     End Sub

---

la seconde partie du code est l'étape de mise en page et d'insertion des éléments de ce userform dans le fichier excel (2)

Code:

---

1 2 3 4 5 6 7 8

Sub test(wb As Workbook) wb.Sheets.Add wb.Worksheets("Feuil1").Name = "PAGE DE GARDE" wb.Worksheets("PAGE DE GARDE").Range("A14").Value = "ENTRETIEN ANNUEL D'EVALUATION" wb.Worksheets("PAGE DE GARDE").Range("B20").Value = txt1.Text   End Sub

---

Merci de vos réponses

cordialement

Bonjour,

Des bons points, c'est bien de commenter ton code, la bonne pratique qui va avec est de l’indenter (hiérarchie en escalier ou pyramide). C'est bien aussi de faire des procédures séparées pour des traitements spécifiques ou répétitifs dans le projet si c'est justifié.

Par contre ta procédure qui crée ton classeur ou ajoute une feuille à un classeur donné ne doit faire que ça, une fois appelée, elle s'exécute et c'est au moment où la main revient à la procédure appelante (celle de ton USF) que tu mets les lignes d'écriture des textbox et autres dans le classeur voulu.

C'est nettement plus lisible, maintenable et sûr.

Il s'agit d'écriture Explicite ou implicite, ce qui non maîtrisé provoque au mieux des erreurs du genre 424 et au pire n'écrit pas à l'endroit voulu ;)

code explicatif - les versions 2 sont à privilégier, même si les 1 sont OK ici.
repris sur le fond de ton code, sans présumer de la façon de faire. vois vraiment la section tutoriel et au moins ceci :
Programmer efficacement avec Excel en VBA http://bidou.developpez.com/tutoriels/ExcelVBA/

Dans Userform1

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

Private Sub CommandButton1_Click() Dim strNomFic2 Dim wb As Workbook   strNomFic2 = "C:\PassDVP\toto.xlsm" 'on simplifie ici, il existe Set wb = Application.Workbooks.Open(strNomFic2) ThisWorkbook.Activate 'la ligne qui suit est inutile dans la mesure ou un classeur ouvert devient celui actif... 'wb.Activate 'pas de Call à ce niveau... Call test(wb)   End Sub   Private Sub CommandButton2_Click() Dim strNomFic2 Dim wb As Workbook   strNomFic2 = "C:\PassDVP\toto.xlsm" 'on simplifie ici, il existe Set wb = Application.Workbooks.Open(strNomFic2) ThisWorkbook.Activate 'la ligne qui suit est inutile dan la mesure ou un classeur ouvert devient celui actif... wb.Activate 'pas de Call à ce niveau... Call test2(wb) wb.Worksheets("PAGE DE GARDE").Range("B20").Value = Me.txt1.Text End Sub

---

dans Module1

Code:

---

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

Sub test(wb As Workbook) wb.Sheets.Add wb.Worksheets("Feuil1").Name = "PAGE DE GARDE" 'faut-il que le classeur n'ait pas une page du nom Feuil1 déjà... wb.Worksheets("PAGE DE GARDE").Range("A14").Value = "ENTRETIEN ANNUEL D'EVALUATION" wb.Worksheets("PAGE DE GARDE").Range("B20").Value = UserForm1.txt1 'OK, mais pas conseillé   End Sub   Sub test2(wb As Workbook) wb.Sheets.Add wb.Worksheets("Feuil1").Name = "PAGE DE GARDE" 'faut-il que le classeur n'ait pas une page du nom Feuil1 déjà... wb.Worksheets("PAGE DE GARDE").Range("A14").Value = "ENTRETIEN ANNUEL D'EVALUATION" End Sub

---

cordialement,

Didier

Merci beaucoup pour la réponse et toutes ces explications.

Cordialement