Discussion :

[braquin]

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 :

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

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

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 :

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

Call MEP_fichier_ind

elle s'execute normalement.

Merci de vos réponses

[pgz]

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

[Didier Gonard]

Bonjour,

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


cordialement,

Didier

[braquin]

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 :

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

    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 :

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

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

Merci de vos réponses

Cordialement

[Didier Gonard]

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

[braquin]

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 :

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

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

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

[Didier Gonard]

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

[braquin]

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 :

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

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

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

[Didier Gonard]

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 :

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

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

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

[braquin]

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

Cordialement