Comment écrire une procédure dans un nouveau classeur ?
2 réponses
Philou
bonjour,
J'ai un classeur avec un module vba qui me crée automatiquement un nouveau
classeur. J'aimerais pouvoir écrire dans le ThisWorkbook de ce nouveau
classeur quelques lignes de code dans le Workbook_SheetActivate.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Charly
Bonjour Philippe,
Dans le module qui crée ton nouveau classeur tu ajoutes : With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule .AddFromFile ("C:ToolsMaProcedure.txt") End With
Dans le dossier C:Tools (mon exemple) tu crées le fichier MaProcedure.TXT qui comprend le code que tu désires ajouter à ton nouveau classeur.
par exemple:
Private Sub Workbook_BeforeClose(Cancel As Boolean) .... .... End Sub
Salutations Charles
"Philou" a écrit dans le message de news: %
bonjour, J'ai un classeur avec un module vba qui me crée automatiquement un nouveau classeur. J'aimerais pouvoir écrire dans le ThisWorkbook de ce nouveau classeur quelques lignes de code dans le Workbook_SheetActivate.
Si quelqu'un à une idée... je suis preneur ! ;)
Bonjour Philippe,
Dans le module qui crée ton nouveau classeur tu ajoutes :
With
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.AddFromFile ("C:ToolsMaProcedure.txt")
End With
Dans le dossier C:Tools (mon exemple) tu crées le fichier MaProcedure.TXT
qui comprend le code que tu désires ajouter à ton nouveau classeur.
par exemple:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
....
....
End Sub
Salutations
Charles
"Philou" <philippe.blancon@free.fr> a écrit dans le message de news:
%23S7NtgYyEHA.908@TK2MSFTNGP11.phx.gbl...
bonjour,
J'ai un classeur avec un module vba qui me crée automatiquement un
nouveau
classeur. J'aimerais pouvoir écrire dans le ThisWorkbook de ce nouveau
classeur quelques lignes de code dans le Workbook_SheetActivate.
Dans le module qui crée ton nouveau classeur tu ajoutes : With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule .AddFromFile ("C:ToolsMaProcedure.txt") End With
Dans le dossier C:Tools (mon exemple) tu crées le fichier MaProcedure.TXT qui comprend le code que tu désires ajouter à ton nouveau classeur.
par exemple:
Private Sub Workbook_BeforeClose(Cancel As Boolean) .... .... End Sub
Salutations Charles
"Philou" a écrit dans le message de news: %
bonjour, J'ai un classeur avec un module vba qui me crée automatiquement un nouveau classeur. J'aimerais pouvoir écrire dans le ThisWorkbook de ce nouveau classeur quelques lignes de code dans le Workbook_SheetActivate.
Si quelqu'un à une idée... je suis preneur ! ;)
Philou
Super, je viens de tester et ça fonctionne :) Merci Charly Pour le Code ! @mic Philippe
"Charly" a écrit dans le message de news:
Bonjour Philippe,
Dans le module qui crée ton nouveau classeur tu ajoutes : With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule .AddFromFile ("C:ToolsMaProcedure.txt") End With
Dans le dossier C:Tools (mon exemple) tu crées le fichier MaProcedure.TXT qui comprend le code que tu désires ajouter à ton nouveau classeur.
par exemple:
Private Sub Workbook_BeforeClose(Cancel As Boolean) .... .... End Sub
Salutations Charles
"Philou" a écrit dans le message de news: %
bonjour, J'ai un classeur avec un module vba qui me crée automatiquement un nouveau classeur. J'aimerais pouvoir écrire dans le ThisWorkbook de ce nouveau classeur quelques lignes de code dans le Workbook_SheetActivate.
Si quelqu'un à une idée... je suis preneur ! ;)
Super, je viens de tester et ça fonctionne :) Merci Charly Pour le Code !
@mic Philippe
"Charly" <nospam-charles.schauss@cegecom.lu> a écrit dans le message de
news: ujMNMyZyEHA.352@TK2MSFTNGP14.phx.gbl...
Bonjour Philippe,
Dans le module qui crée ton nouveau classeur tu ajoutes :
With
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.AddFromFile ("C:ToolsMaProcedure.txt")
End With
Dans le dossier C:Tools (mon exemple) tu crées le fichier MaProcedure.TXT
qui comprend le code que tu désires ajouter à ton nouveau classeur.
par exemple:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
....
....
End Sub
Salutations
Charles
"Philou" <philippe.blancon@free.fr> a écrit dans le message de news:
%23S7NtgYyEHA.908@TK2MSFTNGP11.phx.gbl...
bonjour,
J'ai un classeur avec un module vba qui me crée automatiquement un
nouveau
classeur. J'aimerais pouvoir écrire dans le ThisWorkbook de ce nouveau
classeur quelques lignes de code dans le Workbook_SheetActivate.
Super, je viens de tester et ça fonctionne :) Merci Charly Pour le Code ! @mic Philippe
"Charly" a écrit dans le message de news:
Bonjour Philippe,
Dans le module qui crée ton nouveau classeur tu ajoutes : With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule .AddFromFile ("C:ToolsMaProcedure.txt") End With
Dans le dossier C:Tools (mon exemple) tu crées le fichier MaProcedure.TXT qui comprend le code que tu désires ajouter à ton nouveau classeur.
par exemple:
Private Sub Workbook_BeforeClose(Cancel As Boolean) .... .... End Sub
Salutations Charles
"Philou" a écrit dans le message de news: %
bonjour, J'ai un classeur avec un module vba qui me crée automatiquement un nouveau classeur. J'aimerais pouvoir écrire dans le ThisWorkbook de ce nouveau classeur quelques lignes de code dans le Workbook_SheetActivate.
