Fermeture Formulaire Automatique depuis autre fichier excel
Résolu
Chewbie
-
Chewbie -
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
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:
- Fermeture Formulaire Automatique depuis autre fichier excel
- Whatsapp formulaire opposition - Guide
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide