Fermeture d'un userform a partir d'un autre userform

**VELO1222** · 19/12/2010, 16h12

Bonjour le forum,
je vous pose mon problème
A partir d'un fichier A et d'un userform j'ouvre un autre fichier B qui contient lui aussi un userform a son ouverture.

je copy des données du fichier A vers le fichier B

puis a la fin du copier coller je n'arrive pas a fermer le fichier B

la userform du fichier B reste a l'écran impossible de la fermer si vous pouviez m'aider d'avance merci

**pgz** · 19/12/2010, 17h46

Bonsoir.

Il ne serait pas inutile que tu montres :

le code de A qui ouvre B
Le code de B qui ouvre l'userform
le code de A qui ferme B.

Cordialement,

PGZ

**VELO1222** · 19/12/2010, 18h23

Bonsoir,
pas de probleme

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub CommandButton5_Click()
 
i = MsgBox("        Vous confirmez la création du NOUVEAU TARIFAIRE                 " & vbCr & "        Sans avoir oublié de remplir les renseignements de la 1ère étape ?                " & vbCr & " " & vbCr & "                - Le Mois et l'année du Nouveau Tarifaire " & vbCr & "                - Le Taux de Marge Budgeté du mois a venir ", vbYesNo + vbQuestion, "Renseignements")
If i = vbYes Then
Application.ScreenUpdating = False
 
Sheets("COEFFICIENTS").Select
T = Range("E54")
R = Range("D62")
Workbooks.Open Filename:=Range("D61")
 
Application.Windows(R).Activate
Sheets("COEFFICIENTS").Range("D49").Copy
Application.Windows(T).Activate
Sheets("PARAMETRAGE").Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.Windows(T).Activate
    Application.CutCopyMode = False
 
Application.Windows(R).Activate
Sheets("COEFFICIENTS").Range("D48").Copy
Application.Windows(T).Activate
Sheets("PARAMETRAGE").Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.Windows(T).Activate
    Application.CutCopyMode = False
 
Application.Windows(R).Activate
Sheets("TARIF V BOVINE").Range("E6:M52").Copy
Application.Windows(T).Activate
Sheets("VIANDE BOVINE").Activate
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.Windows(T).Activate
    Application.CutCopyMode = False
 
ActiveWorkbook.Save
ActiveWindow.Close
 
 
 
 
Application.ScreenUpdating = True
End If
 
End Sub

l'userform du fichier B s'ouvre en Workbook_Open

Cdt

**pgz** · 19/12/2010, 19h03

Bonsoir.

Mais on ne voit pas si B ouvre son formulaire en mode modal...
Tu peux essayer ceci : avant d'ouvrir B

Code :

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

Application.EnableEvents = false

Tu devras ensuite rétablir

Code :

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

Application.EnableEvents = true

Par ailleurs, tu devrais chercher comment on fait des copies sans activation des feuilles concernées. Voir par exemple cette discussion du jour
Tu seras agréablement surpris par la rapidité de "l'autre méthode".

Cordialement,

PGZ

**patricktoulon** · 19/12/2010, 20h10

bonjour je suis assez daccors avec pgz tu n'est pas obligé de activer et desactiver a tout bout de champ

tiens voila la macro qui trans fert les données d'un devis sur la feuille matrice de mon application facturier tu constatera qu'il n'ya aucun activate ni de select ect..... sauf a la fin pour revenir au sheets souhaité car il y en a plusieur dans mon application c'est plus propre ,rapide,

tu n'a plus qu'a adapter a ton besoins

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
 
 
 Sub TransfertDevis()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim titre As String
Dim Wbk As Workbook
titre = ThisWorkbook.Path & "\DEVIS\" & ThisWorkbook.Sheets("entree").LISTEDEVIS1.Value  'chemin et nom du fichier
Set Wbk = Workbooks.Open(titre) ' jouvre le classeur (titre2)
ThisWorkbook.Sheets("DEVIS").Range("f2").Value = Wbk.Sheets("DEVIS1").Range("f2").Value
ThisWorkbook.Sheets("DEVIS").Range("g4:h11").Value = Wbk.Sheets("DEVIS1").Range("g4:h11").Value
ThisWorkbook.Sheets("DEVIS").Range("b11").Value = Wbk.Sheets("DEVIS1").Range("b11").Value
ThisWorkbook.Sheets("DEVIS").Range("a15:h40").Value = Wbk.Sheets("DEVIS1").Range("a15:h40").Value
Wbk.Close ' fermeture du devis ou je récupère les données
Application.DisplayAlerts = True
Sheets("DEVIS").Activate
Sheets("entree").LISTEDEVIS1.Clear
End Sub

au plaisir

**VELO1222** · 19/12/2010, 20h23

bonsoir,
je viens d'essayer avec ta proposition PGZ mais voila j'ai beug a se niveau

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub CommandButton5_Click()

i = MsgBox("        Vous confirmez la création du NOUVEAU TARIFAIRE                 " & vbCr & "        Sans avoir oublié de remplir les renseignements de la 1ère étape ?                " & vbCr & " " & vbCr & "                - Le Mois et l'année du Nouveau Tarifaire " & vbCr & "                - Le Taux de Marge Budgeté du mois a venir ", vbYesNo + vbQuestion, "Renseignements")
If i = vbYes Then

Application.ScreenUpdating = False
Application.EnableEvents = False

Sheets("COEFFICIENTS").Select
T = Range("E54")
R = Range("D62")
Workbooks.Open Filename:=Range("D61")

Application.Windows(R).Activate
Sheets("COEFFICIENTS").Range("D49").Copy
Application.Windows(T).Activate
Sheets("PARAMETRAGE").Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.Windows(T).Activate
    Application.CutCopyMode = False
    
Application.Windows(R).Activate
Sheets("COEFFICIENTS").Range("D48").Copy
Application.Windows(T).Activate
Sheets("PARAMETRAGE").Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.Windows(T).Activate
    Application.CutCopyMode = False
    
Application.Windows(R).Activate
Sheets("TARIF V BOVINE").Range("E6:M52").Copy
Application.Windows(T).Activate
Sheets("VIANDE BOVINE").Activate
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.Windows(T).Activate
    Application.CutCopyMode = False
    
ActiveWorkbook.Save
ActiveWindow.Close




Application.ScreenUpdating = True

Application.EnableEvents = True
End If
End Sub

cdt

**patricktoulon** · 19/12/2010, 20h45

rebonjour

sans doute que ta variable "T" n'est pas instruite correctement cela dis fait un test avec ma proposition et dis moi ce que tu en pense en adaptant les variables et les celules a ton cas bien sur

EDIT:
tien voila un resumé de ton usine a gas

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
 
Sub copie()
Dim titre As String
Dim Wbk As Workbook
 
i = MsgBox("        Vous confirmez la création du NOUVEAU TARIFAIRE                 " & vbCr & "        Sans avoir oublié de remplir les renseignements de la 1ère étape ?                " & vbCr & " " & vbCr & "                - Le Mois et l'année du Nouveau Tarifaire " & vbCr & "                - Le Taux de Marge Budgeté du mois a venir ", vbYesNo + vbQuestion, "Renseignements")
If i = vbYes Then
 
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
 
Sheets("COEFFICIENTS").Select
T = Range("E54")  'ici je supose que les celule ont le nom des classeur en question
R = Range("D62")  'ici je supose que les celule ont le nom des classeur en question
 
Set Wbk = Workbooks.Open(R) ' jouvre le classeur (R)R etant instruit par la celule d62 si j'ai bien compris
 
ThisWorkbook.Sheets("PARAMETRAGE").Range("a2").Value = Wbk.Sheets("COEFFICIENTS").Range("D49").Value
ThisWorkbook.Sheets("PARAMETRAGE").Range("b2").Value = Wbk.Sheets("COEFFICIENTS").Range("D48").Value
ThisWorkbook.Sheets("VIANDE BOVINE").Range("E6:M52").Value = Wbk.Sheets("TARIF V BOVINE").Range("E6:M52").Value
Wbk.Close 
 
ActiveWorkbook.Save
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub

au plaisir

Fermeture d'un userform a partir d'un autre userform

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager