Fermeture Formulaire Automatique depuis autre fichier excel [Résolu/Fermé]

Signaler
-
 Chewbie -
Bonjour,
j'ai créer un premier fichier excel sur lequel se lance automatiquement un formulaire.
Je voudrais créer un second fichier qui aille récupérer les données de la feuille1 du fichier pour les coller à la suite de ses propres données.
voici mon code
Sub CumulFichier()
Dim Fichier As Variant
Fichier = Application.GetOpenFilename("Text Files (*.xlsm), *.xlsm")
If Fichier = False Then Exit Sub
Workbooks.Open Filename:=Fichier

If IsEmpty(Range("A2")) = True Then
k = 2
Else: k = Range("A1").End(xlDown).Row + 1
End If

Rows("2:" & k).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Récapitulatif.xlsm").Activate
If IsEmpty(Range("A2")) = True Then
n = 2
Else: n = Range("A1").End(xlDown).Row + 1
End If
Range("A" & n).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Mon seul petit problème c'est qu'à l'ouverture de mon premier classeur, le formulaire se lance, et il faut donc le fermer manuellement pour que ma procédure continue. Comme je vais devoir appliquer cette macro à une multitude fichier excel, il va être un peu fastidieux de devoir fermer à chaque fois à la main le formulaire.
Existe-t-il un moyen de rajouter une ligne de code à la procédure pour que ce formulaire se ferme "tout seul" ?
Merci d'avance


2 réponses

Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
605
Bonjour,

je pense qu'il faut désactiver les événements pour que la macro "workbook_open" ne se lance pas comme ceci :

Application.EnableEvents = False
Workbooks.Open Filename:=Fichier
Application.EnableEvents = True

A tester
Cordialement,
Merci beaucoup, cela fonctionne parfaitement !