Discussion :

[fmris]

bonjour
J'ai un gros pb qui fait l'objet de plusieurs discussions et je n'ai pas de réponse pour le moment.

J'ouvre mon fichier source. Ce fichier source contient l'ensemble des codes et procédures. Un bouton situé sur une feuille execute la macro 1.
La macro 1 consiste à ouvrir un fichier cible en ".txt" et de l'enregistrer ".xlsm."
Le nom de ce fichier cible n'est jamais le meme.
Comme on a à chaque fois un nouveau nom du fichier cible, je n'arrive donc pas à intégrer la procédure événementielle (Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) à ce nouveau fichier cible. Du coup, je suis très ennuyé. SI vous avez une solution, est il possible de m'envoyer un code permettant de réaliser cette opération ?


PS : pour moi, une procédure événementielle se situe sur la feuille du classeur concerné et/ou sur le "Thisworkbook" du fichier concerné. Je ne sais pas appeler et appliquer cette procédure pour l'appliquer sur un autre fichier.

[Invité]

Bonjour,
vola un exemple de ce que je m’évertue à t'expliquer!

dézip tout répertoire sur ton bureau par exemple!

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim WbCible As Workbook
Set WbCible = Workbooks.Add(ThisWorkbook.Path & "\ModèleRd.xltm")
WbCible.Sheets(1).Cells(1, "A") = "toto" 'ici tu relace par ta procédure d'import!
WbCible.SaveAs ThisWorkbook.Path & "\titi.xlsm", xlOpenXMLWorkbookMacroEnabled
WbCible.Close False
End Sub