Bonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" a écrit dans le message de news:
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 9B5CF3F1-3A49-4BB5-8C7E-FF1D06D9CD13@microsoft.com...
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" a écrit dans le message de news:
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas
de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" a écrit dans le message de news:
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas
de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 9B5CF3F1-3A49-4BB5-8C7E-FF1D06D9CD13@microsoft.com...
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas
de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" a écrit dans le message de news:
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
ok, d'acord, mais le probleme mon module de la source est copié sur la feuil1.
alors que je souhaite copié dans l'autre classeur dans un module et pas dans
l'evenement de la feuille.
Comment faire?
Et si je souhaite aussi copier un userform, comment faire?
merci d'avanceBonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" a écrit dans le message de news:
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
ok, d'acord, mais le probleme mon module de la source est copié sur la feuil1.
alors que je souhaite copié dans l'autre classeur dans un module et pas dans
l'evenement de la feuille.
Comment faire?
Et si je souhaite aussi copier un userform, comment faire?
merci d'avance
Bonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 9B5CF3F1-3A49-4BB5-8C7E-FF1D06D9CD13@microsoft.com...
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
ok, d'acord, mais le probleme mon module de la source est copié sur la feuil1.
alors que je souhaite copié dans l'autre classeur dans un module et pas dans
l'evenement de la feuille.
Comment faire?
Et si je souhaite aussi copier un userform, comment faire?
merci d'avanceBonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" a écrit dans le message de news:
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
Voici la procédure de Frédéric Sigonneau adaptée à tes besoins concernant la copie du module Standard
'-----------------------------------
Sub AddCode()
Dim S As String, Wbk As Workbook, M As Object
'Copie dans une variable S, tout le code
'du module 1
With ThisWorkbook.VBProject.VBComponents("Module1").codemodule
S = .Lines(1, .CountOfLines)
End With
'Renseigne où le classeur où le code sera copié
Set Wbk = Workbooks("NomClasseurDestination.xls")
With Wbk.VBProject.VBComponents
'Ajoute un module standard
Set M = .Add(1)
With M.codemodule
'Copie le contenu de la variable S
'dans le nouveau module
.AddFromString S
End With
End With
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
ok, d'acord, mais le probleme mon module de la source est copié sur la feuil1.
alors que je souhaite copié dans l'autre classeur dans un module et pas dans
l'evenement de la feuille.
Comment faire?
Et si je souhaite aussi copier un userform, comment faire?
merci d'avanceBonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas
de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" a écrit dans le message de news:
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
Voici la procédure de Frédéric Sigonneau adaptée à tes besoins concernant la copie du module Standard
'-----------------------------------
Sub AddCode()
Dim S As String, Wbk As Workbook, M As Object
'Copie dans une variable S, tout le code
'du module 1
With ThisWorkbook.VBProject.VBComponents("Module1").codemodule
S = .Lines(1, .CountOfLines)
End With
'Renseigne où le classeur où le code sera copié
Set Wbk = Workbooks("NomClasseurDestination.xls")
With Wbk.VBProject.VBComponents
'Ajoute un module standard
Set M = .Add(1)
With M.codemodule
'Copie le contenu de la variable S
'dans le nouveau module
.AddFromString S
End With
End With
End Sub
'-----------------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 42AB37C8-2B01-4D53-8CEA-A862998CE337@microsoft.com...
ok, d'acord, mais le probleme mon module de la source est copié sur la feuil1.
alors que je souhaite copié dans l'autre classeur dans un module et pas dans
l'evenement de la feuille.
Comment faire?
Et si je souhaite aussi copier un userform, comment faire?
merci d'avance
Bonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas
de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 9B5CF3F1-3A49-4BB5-8C7E-FF1D06D9CD13@microsoft.com...
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
Voici la procédure de Frédéric Sigonneau adaptée à tes besoins concernant la copie du module Standard
'-----------------------------------
Sub AddCode()
Dim S As String, Wbk As Workbook, M As Object
'Copie dans une variable S, tout le code
'du module 1
With ThisWorkbook.VBProject.VBComponents("Module1").codemodule
S = .Lines(1, .CountOfLines)
End With
'Renseigne où le classeur où le code sera copié
Set Wbk = Workbooks("NomClasseurDestination.xls")
With Wbk.VBProject.VBComponents
'Ajoute un module standard
Set M = .Add(1)
With M.codemodule
'Copie le contenu de la variable S
'dans le nouveau module
.AddFromString S
End With
End With
End Sub
'-----------------------------------
Salutations!
"rick" a écrit dans le message de news:
ok, d'acord, mais le probleme mon module de la source est copié sur la feuil1.
alors que je souhaite copié dans l'autre classeur dans un module et pas dans
l'evenement de la feuille.
Comment faire?
Et si je souhaite aussi copier un userform, comment faire?
merci d'avanceBonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas
de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" a écrit dans le message de news:
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas
de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" a écrit dans le message de news:
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas
de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 9B5CF3F1-3A49-4BB5-8C7E-FF1D06D9CD13@microsoft.com...
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas
de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" a écrit dans le message de news:
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
Voici la procédure pour Exporter-Importer un formulaire d'un classeur à un autre. Les 2 classeurs doivent être ouverts
'----------------------------------------
Sub Importer_Exporter_Userform()
Dim Fichier As String
'Déterminer le nom et l'emplacement du fichier
'temporaire pour l'exportation-importation.
'Extension du fichier = .Frm
Fichier = "c:denis.frm"
'Exporte le formulaire(userform1) dans fichier temporaire
'Attention, Userform1 = Propriété Name de l'objet formulaire
ThisWorkbook.VBProject.VBComponents("Userform1").Export Fichier
'Importe dans le nouveau classeur le formulaire.
'Si un formulaire porte déjà ce nom dans le classeur de
'destination, la procédure va se planter
Workbooks("NomClasseurDestination.xls").VBProject.VBComponents.Import Fichier
'Destruction du fichier temporaire
Kill Fichier
End Sub
'--------------------------------------
Salutations!
"rick" a écrit dans le message de news:
ok, d'acord, mais le probleme mon module de la source est copié sur la feuil1.
alors que je souhaite copié dans l'autre classeur dans un module et pas dans
l'evenement de la feuille.
Comment faire?
Et si je souhaite aussi copier un userform, comment faire?
merci d'avanceBonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas
de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" a écrit dans le message de news:
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
Voici la procédure pour Exporter-Importer un formulaire d'un classeur à un autre. Les 2 classeurs doivent être ouverts
'----------------------------------------
Sub Importer_Exporter_Userform()
Dim Fichier As String
'Déterminer le nom et l'emplacement du fichier
'temporaire pour l'exportation-importation.
'Extension du fichier = .Frm
Fichier = "c:denis.frm"
'Exporte le formulaire(userform1) dans fichier temporaire
'Attention, Userform1 = Propriété Name de l'objet formulaire
ThisWorkbook.VBProject.VBComponents("Userform1").Export Fichier
'Importe dans le nouveau classeur le formulaire.
'Si un formulaire porte déjà ce nom dans le classeur de
'destination, la procédure va se planter
Workbooks("NomClasseurDestination.xls").VBProject.VBComponents.Import Fichier
'Destruction du fichier temporaire
Kill Fichier
End Sub
'--------------------------------------
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 42AB37C8-2B01-4D53-8CEA-A862998CE337@microsoft.com...
ok, d'acord, mais le probleme mon module de la source est copié sur la feuil1.
alors que je souhaite copié dans l'autre classeur dans un module et pas dans
l'evenement de la feuille.
Comment faire?
Et si je souhaite aussi copier un userform, comment faire?
merci d'avance
Bonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas
de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 9B5CF3F1-3A49-4BB5-8C7E-FF1D06D9CD13@microsoft.com...
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Bonjour Rick,
Voici la procédure pour Exporter-Importer un formulaire d'un classeur à un autre. Les 2 classeurs doivent être ouverts
'----------------------------------------
Sub Importer_Exporter_Userform()
Dim Fichier As String
'Déterminer le nom et l'emplacement du fichier
'temporaire pour l'exportation-importation.
'Extension du fichier = .Frm
Fichier = "c:denis.frm"
'Exporte le formulaire(userform1) dans fichier temporaire
'Attention, Userform1 = Propriété Name de l'objet formulaire
ThisWorkbook.VBProject.VBComponents("Userform1").Export Fichier
'Importe dans le nouveau classeur le formulaire.
'Si un formulaire porte déjà ce nom dans le classeur de
'destination, la procédure va se planter
Workbooks("NomClasseurDestination.xls").VBProject.VBComponents.Import Fichier
'Destruction du fichier temporaire
Kill Fichier
End Sub
'--------------------------------------
Salutations!
"rick" a écrit dans le message de news:
ok, d'acord, mais le probleme mon module de la source est copié sur la feuil1.
alors que je souhaite copié dans l'autre classeur dans un module et pas dans
l'evenement de la feuille.
Comment faire?
Et si je souhaite aussi copier un userform, comment faire?
merci d'avanceBonjour Rick,
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas
de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" a écrit dans le message de news:
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
