j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur c:
copier la feuille MAFEUILLE ainsi que les bouton , les champs, les formules
ainsi que le module1 ( à l'identique) dans mon editeur visual..
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
steph b
SORRY J oubliais je suis en 2003
"steph b" a écrit dans le message de news: 4e819585$0$18804$
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur c: copier la feuille MAFEUILLE ainsi que les bouton , les champs, les formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
est possible en vba?
meci d avance.
SORRY J oubliais je suis en 2003
"steph b" <stephol@prodiag-immo.com> a écrit dans le message de news:
4e819585$0$18804$ba4acef3@reader.news.orange.fr...
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur
c:
copier la feuille MAFEUILLE ainsi que les bouton , les champs, les
formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
"steph b" a écrit dans le message de news: 4e819585$0$18804$
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur c: copier la feuille MAFEUILLE ainsi que les bouton , les champs, les formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
est possible en vba?
meci d avance.
MichD
Bonjour,
Qu'est-ce "mon éditeur visual" ?
MichD ------------------------------------------ "steph b" a écrit dans le message de groupe de discussion : 4e819585$0$18804$
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur c: copier la feuille MAFEUILLE ainsi que les bouton , les champs, les formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
est possible en vba?
meci d avance.
Bonjour,
Qu'est-ce "mon éditeur visual" ?
MichD
------------------------------------------
"steph b" a écrit dans le message de groupe de discussion : 4e819585$0$18804$ba4acef3@reader.news.orange.fr...
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur c:
copier la feuille MAFEUILLE ainsi que les bouton , les champs, les formules
ainsi que le module1 ( à l'identique) dans mon editeur visual..
MichD ------------------------------------------ "steph b" a écrit dans le message de groupe de discussion : 4e819585$0$18804$
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur c: copier la feuille MAFEUILLE ainsi que les bouton , les champs, les formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
est possible en vba?
meci d avance.
MichD
Pour copier l'intégralité d'une feuille de calcul et le code de la feuille de calcul vers un autre classeur ainsi que d'un module standard :
'------------------------------------------------- Sub Copie_Feuille_Calcul_et_Un_CodeModule() Dim S As String, ModCode As Object
'Copie tout le contenu de la feuille et 'le code contenu dans le module de la feuille ThisWorkbook.Worksheets("Feuil1").Copy _ after:=Workbooks("classeur3").Sheets(Sheets.Count)
'Copie le module1 du classeur où est la macro 'Vers un module d'un autre classeur With ThisWorkbook.VBProject.VBComponents("Module1").codemodule S = .Lines(1, .CountOfLines) End With
'Classeur de destination : doit être ouvert absolument With Workbooks("classeur3.xls") 'Ajoute un module With .VBProject.VBComponents.Add(1) 'ajoute le code .codemodule.AddFromString S End With End With End Sub '-------------------------------------------------
MichD ------------------------------------------ "steph b" a écrit dans le message de groupe de discussion : 4e8195c2$0$30789$
SORRY J oubliais je suis en 2003
"steph b" a écrit dans le message de news: 4e819585$0$18804$
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur c: copier la feuille MAFEUILLE ainsi que les bouton , les champs, les formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
est possible en vba?
meci d avance.
Pour copier l'intégralité d'une feuille de calcul et le code de la feuille de calcul
vers un autre classeur ainsi que d'un module standard :
'-------------------------------------------------
Sub Copie_Feuille_Calcul_et_Un_CodeModule()
Dim S As String, ModCode As Object
'Copie tout le contenu de la feuille et
'le code contenu dans le module de la feuille
ThisWorkbook.Worksheets("Feuil1").Copy _
after:=Workbooks("classeur3").Sheets(Sheets.Count)
'Copie le module1 du classeur où est la macro
'Vers un module d'un autre classeur
With ThisWorkbook.VBProject.VBComponents("Module1").codemodule
S = .Lines(1, .CountOfLines)
End With
'Classeur de destination : doit être ouvert absolument
With Workbooks("classeur3.xls")
'Ajoute un module
With .VBProject.VBComponents.Add(1)
'ajoute le code
.codemodule.AddFromString S
End With
End With
End Sub
'-------------------------------------------------
MichD
------------------------------------------
"steph b" a écrit dans le message de groupe de discussion : 4e8195c2$0$30789$ba4acef3@reader.news.orange.fr...
SORRY J oubliais je suis en 2003
"steph b" <stephol@prodiag-immo.com> a écrit dans le message de news:
4e819585$0$18804$ba4acef3@reader.news.orange.fr...
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur
c:
copier la feuille MAFEUILLE ainsi que les bouton , les champs, les
formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
Pour copier l'intégralité d'une feuille de calcul et le code de la feuille de calcul vers un autre classeur ainsi que d'un module standard :
'------------------------------------------------- Sub Copie_Feuille_Calcul_et_Un_CodeModule() Dim S As String, ModCode As Object
'Copie tout le contenu de la feuille et 'le code contenu dans le module de la feuille ThisWorkbook.Worksheets("Feuil1").Copy _ after:=Workbooks("classeur3").Sheets(Sheets.Count)
'Copie le module1 du classeur où est la macro 'Vers un module d'un autre classeur With ThisWorkbook.VBProject.VBComponents("Module1").codemodule S = .Lines(1, .CountOfLines) End With
'Classeur de destination : doit être ouvert absolument With Workbooks("classeur3.xls") 'Ajoute un module With .VBProject.VBComponents.Add(1) 'ajoute le code .codemodule.AddFromString S End With End With End Sub '-------------------------------------------------
MichD ------------------------------------------ "steph b" a écrit dans le message de groupe de discussion : 4e8195c2$0$30789$
SORRY J oubliais je suis en 2003
"steph b" a écrit dans le message de news: 4e819585$0$18804$
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur c: copier la feuille MAFEUILLE ainsi que les bouton , les champs, les formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
est possible en vba?
meci d avance.
MichD
Pour copier l'intégralité d'une feuille de calcul et le code de la feuille de calcul vers un autre classeur ainsi que d'un module standard :
'------------------------------------------------- Sub Copie_Feuille_Calcul_et_Un_CodeModule() Dim S As String, ModCode As Object
'Copie tout le contenu de la feuille et 'le code contenu dans le module de la feuille ThisWorkbook.Worksheets("Feuil1").Copy _ after:=Workbooks("classeur3").Sheets(Sheets.Count)
'Copie le module1 du classeur où est la macro 'Vers un module d'un autre classeur With ThisWorkbook.VBProject.VBComponents("Module1").codemodule S = .Lines(1, .CountOfLines) End With
'Classeur de destination : doit être ouvert absolument With Workbooks("classeur3.xls") 'Ajoute un module With .VBProject.VBComponents.Add(1) 'ajoute le code .codemodule.AddFromString S End With End With End Sub '-------------------------------------------------
MichD ------------------------------------------ "steph b" a écrit dans le message de groupe de discussion : 4e8195c2$0$30789$
SORRY J oubliais je suis en 2003
"steph b" a écrit dans le message de news: 4e819585$0$18804$
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur c: copier la feuille MAFEUILLE ainsi que les bouton , les champs, les formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
est possible en vba?
meci d avance.
Pour copier l'intégralité d'une feuille de calcul et le code de la feuille de calcul
vers un autre classeur ainsi que d'un module standard :
'-------------------------------------------------
Sub Copie_Feuille_Calcul_et_Un_CodeModule()
Dim S As String, ModCode As Object
'Copie tout le contenu de la feuille et
'le code contenu dans le module de la feuille
ThisWorkbook.Worksheets("Feuil1").Copy _
after:=Workbooks("classeur3").Sheets(Sheets.Count)
'Copie le module1 du classeur où est la macro
'Vers un module d'un autre classeur
With ThisWorkbook.VBProject.VBComponents("Module1").codemodule
S = .Lines(1, .CountOfLines)
End With
'Classeur de destination : doit être ouvert absolument
With Workbooks("classeur3.xls")
'Ajoute un module
With .VBProject.VBComponents.Add(1)
'ajoute le code
.codemodule.AddFromString S
End With
End With
End Sub
'-------------------------------------------------
MichD
------------------------------------------
"steph b" a écrit dans le message de groupe de discussion : 4e8195c2$0$30789$ba4acef3@reader.news.orange.fr...
SORRY J oubliais je suis en 2003
"steph b" <stephol@prodiag-immo.com> a écrit dans le message de news:
4e819585$0$18804$ba4acef3@reader.news.orange.fr...
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur
c:
copier la feuille MAFEUILLE ainsi que les bouton , les champs, les
formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
Pour copier l'intégralité d'une feuille de calcul et le code de la feuille de calcul vers un autre classeur ainsi que d'un module standard :
'------------------------------------------------- Sub Copie_Feuille_Calcul_et_Un_CodeModule() Dim S As String, ModCode As Object
'Copie tout le contenu de la feuille et 'le code contenu dans le module de la feuille ThisWorkbook.Worksheets("Feuil1").Copy _ after:=Workbooks("classeur3").Sheets(Sheets.Count)
'Copie le module1 du classeur où est la macro 'Vers un module d'un autre classeur With ThisWorkbook.VBProject.VBComponents("Module1").codemodule S = .Lines(1, .CountOfLines) End With
'Classeur de destination : doit être ouvert absolument With Workbooks("classeur3.xls") 'Ajoute un module With .VBProject.VBComponents.Add(1) 'ajoute le code .codemodule.AddFromString S End With End With End Sub '-------------------------------------------------
MichD ------------------------------------------ "steph b" a écrit dans le message de groupe de discussion : 4e8195c2$0$30789$
SORRY J oubliais je suis en 2003
"steph b" a écrit dans le message de news: 4e819585$0$18804$
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur c: copier la feuille MAFEUILLE ainsi que les bouton , les champs, les formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
est possible en vba?
meci d avance.
steph b
merci j ai pas eu le temps d essayer mais je te tiendrais au courant du bon fonctionnement !
"MichD" a écrit dans le message de news: j5slit$177$
Pour copier l'intégralité d'une feuille de calcul et le code de la feuille de calcul vers un autre classeur ainsi que d'un module standard :
'------------------------------------------------- Sub Copie_Feuille_Calcul_et_Un_CodeModule() Dim S As String, ModCode As Object
'Copie tout le contenu de la feuille et 'le code contenu dans le module de la feuille ThisWorkbook.Worksheets("Feuil1").Copy _ after:=Workbooks("classeur3").Sheets(Sheets.Count)
'Copie le module1 du classeur où est la macro 'Vers un module d'un autre classeur With ThisWorkbook.VBProject.VBComponents("Module1").codemodule S = .Lines(1, .CountOfLines) End With
'Classeur de destination : doit être ouvert absolument With Workbooks("classeur3.xls") 'Ajoute un module With .VBProject.VBComponents.Add(1) 'ajoute le code .codemodule.AddFromString S End With End With End Sub '-------------------------------------------------
MichD ------------------------------------------ "steph b" a écrit dans le message de groupe de discussion : 4e8195c2$0$30789$
SORRY J oubliais je suis en 2003
"steph b" a écrit dans le message de news: 4e819585$0$18804$
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur c: copier la feuille MAFEUILLE ainsi que les bouton , les champs, les formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
est possible en vba?
meci d avance.
merci j ai pas eu le temps d essayer mais je te tiendrais au courant du bon
fonctionnement !
"MichD" <michdenis@hotmail.com> a écrit dans le message de news:
j5slit$177$1@speranza.aioe.org...
Pour copier l'intégralité d'une feuille de calcul et le code de la feuille
de calcul
vers un autre classeur ainsi que d'un module standard :
'-------------------------------------------------
Sub Copie_Feuille_Calcul_et_Un_CodeModule()
Dim S As String, ModCode As Object
'Copie tout le contenu de la feuille et
'le code contenu dans le module de la feuille
ThisWorkbook.Worksheets("Feuil1").Copy _
after:=Workbooks("classeur3").Sheets(Sheets.Count)
'Copie le module1 du classeur où est la macro
'Vers un module d'un autre classeur
With ThisWorkbook.VBProject.VBComponents("Module1").codemodule
S = .Lines(1, .CountOfLines)
End With
'Classeur de destination : doit être ouvert absolument
With Workbooks("classeur3.xls")
'Ajoute un module
With .VBProject.VBComponents.Add(1)
'ajoute le code
.codemodule.AddFromString S
End With
End With
End Sub
'-------------------------------------------------
MichD
------------------------------------------
"steph b" a écrit dans le message de groupe de discussion :
4e8195c2$0$30789$ba4acef3@reader.news.orange.fr...
SORRY J oubliais je suis en 2003
"steph b" <stephol@prodiag-immo.com> a écrit dans le message de news:
4e819585$0$18804$ba4acef3@reader.news.orange.fr...
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur
c:
copier la feuille MAFEUILLE ainsi que les bouton , les champs, les
formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
merci j ai pas eu le temps d essayer mais je te tiendrais au courant du bon fonctionnement !
"MichD" a écrit dans le message de news: j5slit$177$
Pour copier l'intégralité d'une feuille de calcul et le code de la feuille de calcul vers un autre classeur ainsi que d'un module standard :
'------------------------------------------------- Sub Copie_Feuille_Calcul_et_Un_CodeModule() Dim S As String, ModCode As Object
'Copie tout le contenu de la feuille et 'le code contenu dans le module de la feuille ThisWorkbook.Worksheets("Feuil1").Copy _ after:=Workbooks("classeur3").Sheets(Sheets.Count)
'Copie le module1 du classeur où est la macro 'Vers un module d'un autre classeur With ThisWorkbook.VBProject.VBComponents("Module1").codemodule S = .Lines(1, .CountOfLines) End With
'Classeur de destination : doit être ouvert absolument With Workbooks("classeur3.xls") 'Ajoute un module With .VBProject.VBComponents.Add(1) 'ajoute le code .codemodule.AddFromString S End With End With End Sub '-------------------------------------------------
MichD ------------------------------------------ "steph b" a écrit dans le message de groupe de discussion : 4e8195c2$0$30789$
SORRY J oubliais je suis en 2003
"steph b" a écrit dans le message de news: 4e819585$0$18804$
Bonjour je souhaiterais si possible
j ai un fichier excel d ouvert dont le chemin d'accès peut varier
je voudrais à partir du fichier s'appelant " MON FICHIER" chemin fixe sur c: copier la feuille MAFEUILLE ainsi que les bouton , les champs, les formules ainsi que le module1 ( à l'identique) dans mon editeur visual..
