Fermeture Formulaire Automatique depuis autre fichier excel

Résolu/Fermé
Chewbie - 12 févr. 2013 à 10:26
 Chewbie - 12 févr. 2013 à 11:17
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


A voir également:

2 réponses

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
Modifié par pilas31 le 12/02/2013 à 11:13
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,
0
Merci beaucoup, cela fonctionne parfaitement !
0