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