Bonjour Domi,
Quand tu copies ta feuille, il y a création d'un nouveau classeur
contenant la feuille copiée.
à la fin de l'opération, c'est ce nouveau classeur qui est actif ....et
normalement, il ne devrait contenir que la
feuille copiée.
Avant de sélectionner une feuille appartenant au premier classeur, tu
dois d'abord l'activer et ensuite sélectionner la
feuille.
En début de procédure :
Dim Nom as String
Nom = ThisWorkbook.name
Application.ScreenUpdating = False
'Ta procédure
'Remplace par ceci où tu éprouves des difficultés.
Workbooks(Nom).activate
Worksheets("Base").select
Salutations!
"Domi" a écrit dans le message de
news:%
Bonsoir à tous,
Mon code de copie de feuille tournait parfaitement bien jusqu'au moment ou
j'ai inséré les 3 lignes permettant de virer le code dans le module de la
feuille copiée (proposé dans le forum il y a quelques jours)
Sheets("AMModele").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Worksheets("AMModele").[AE1]
'Supprime de la nouvelle feuille créée toutes les formules pour ne
conserver
que les valeurs
With ThisWorkbook.ActiveSheet.UsedRange
.Value2 = .Value2
'Suppression de toutes les Shapes
ActiveSheet.DrawingObjects.Delete
End With
'Suppression du code de module de la feuille copiée
With
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
'Plantage complet de l'applic et je me fais ejecterd'EXCEL si je rajoute
la
ligne suivante (anodine pourtant non ?)
Sheets("BASE").Select 'Ca plante quelle que soit la feuille que je
selectionne ensuite et sur n'importe quel micro...
Message : Erreur d'execution 2147417848 (80010108)
La méthode 'Activate' de l'objet_'worksheet' à échoué (idem si Select à la
place d'activate)
Plantage et ejection d'Excel !
Config Excel 2000/Wk2
Merci pour votre aide
Domi
Bonjour Domi,
Quand tu copies ta feuille, il y a création d'un nouveau classeur
contenant la feuille copiée.
à la fin de l'opération, c'est ce nouveau classeur qui est actif ....et
normalement, il ne devrait contenir que la
feuille copiée.
Avant de sélectionner une feuille appartenant au premier classeur, tu
dois d'abord l'activer et ensuite sélectionner la
feuille.
En début de procédure :
Dim Nom as String
Nom = ThisWorkbook.name
Application.ScreenUpdating = False
'Ta procédure
'Remplace par ceci où tu éprouves des difficultés.
Workbooks(Nom).activate
Worksheets("Base").select
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de
news:%23QjJyUeZEHA.2520@TK2MSFTNGP12.phx.gbl...
Bonsoir à tous,
Mon code de copie de feuille tournait parfaitement bien jusqu'au moment ou
j'ai inséré les 3 lignes permettant de virer le code dans le module de la
feuille copiée (proposé dans le forum il y a quelques jours)
Sheets("AMModele").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Worksheets("AMModele").[AE1]
'Supprime de la nouvelle feuille créée toutes les formules pour ne
conserver
que les valeurs
With ThisWorkbook.ActiveSheet.UsedRange
.Value2 = .Value2
'Suppression de toutes les Shapes
ActiveSheet.DrawingObjects.Delete
End With
'Suppression du code de module de la feuille copiée
With
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
'Plantage complet de l'applic et je me fais ejecterd'EXCEL si je rajoute
la
ligne suivante (anodine pourtant non ?)
Sheets("BASE").Select 'Ca plante quelle que soit la feuille que je
selectionne ensuite et sur n'importe quel micro...
Message : Erreur d'execution 2147417848 (80010108)
La méthode 'Activate' de l'objet_'worksheet' à échoué (idem si Select à la
place d'activate)
Plantage et ejection d'Excel !
Config Excel 2000/Wk2
Merci pour votre aide
Domi
Bonjour Domi,
Quand tu copies ta feuille, il y a création d'un nouveau classeur
contenant la feuille copiée.
à la fin de l'opération, c'est ce nouveau classeur qui est actif ....et
normalement, il ne devrait contenir que la
feuille copiée.
Avant de sélectionner une feuille appartenant au premier classeur, tu
dois d'abord l'activer et ensuite sélectionner la
feuille.
En début de procédure :
Dim Nom as String
Nom = ThisWorkbook.name
Application.ScreenUpdating = False
'Ta procédure
'Remplace par ceci où tu éprouves des difficultés.
Workbooks(Nom).activate
Worksheets("Base").select
Salutations!
"Domi" a écrit dans le message de
news:%
Bonsoir à tous,
Mon code de copie de feuille tournait parfaitement bien jusqu'au moment ou
j'ai inséré les 3 lignes permettant de virer le code dans le module de la
feuille copiée (proposé dans le forum il y a quelques jours)
Sheets("AMModele").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Worksheets("AMModele").[AE1]
'Supprime de la nouvelle feuille créée toutes les formules pour ne
conserver
que les valeurs
With ThisWorkbook.ActiveSheet.UsedRange
.Value2 = .Value2
'Suppression de toutes les Shapes
ActiveSheet.DrawingObjects.Delete
End With
'Suppression du code de module de la feuille copiée
With
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
'Plantage complet de l'applic et je me fais ejecterd'EXCEL si je rajoute
la
ligne suivante (anodine pourtant non ?)
Sheets("BASE").Select 'Ca plante quelle que soit la feuille que je
selectionne ensuite et sur n'importe quel micro...
Message : Erreur d'execution 2147417848 (80010108)
La méthode 'Activate' de l'objet_'worksheet' à échoué (idem si Select à la
place d'activate)
Plantage et ejection d'Excel !
Config Excel 2000/Wk2
Merci pour votre aide
Domi
Bonjour Domi,
Quand tu copies ta feuille, il y a création d'un nouveau classeur
contenant la feuille copiée.
à la fin de l'opération, c'est ce nouveau classeur qui est actif ....et
normalement, il ne devrait contenir que la
feuille copiée.
Avant de sélectionner une feuille appartenant au premier classeur, tu
dois d'abord l'activer et ensuite sélectionner la
feuille.
En début de procédure :
Dim Nom as String
Nom = ThisWorkbook.name
Application.ScreenUpdating = False
'Ta procédure
'Remplace par ceci où tu éprouves des difficultés.
Workbooks(Nom).activate
Worksheets("Base").select
Salutations!
"Domi" a écrit dans le message de
news:%
Bonsoir à tous,
Mon code de copie de feuille tournait parfaitement bien jusqu'au moment ou
j'ai inséré les 3 lignes permettant de virer le code dans le module de la
feuille copiée (proposé dans le forum il y a quelques jours)
Sheets("AMModele").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Worksheets("AMModele").[AE1]
'Supprime de la nouvelle feuille créée toutes les formules pour ne
conserver
que les valeurs
With ThisWorkbook.ActiveSheet.UsedRange
.Value2 = .Value2
'Suppression de toutes les Shapes
ActiveSheet.DrawingObjects.Delete
End With
'Suppression du code de module de la feuille copiée
With
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
'Plantage complet de l'applic et je me fais ejecterd'EXCEL si je rajoute
la
ligne suivante (anodine pourtant non ?)
Sheets("BASE").Select 'Ca plante quelle que soit la feuille que je
selectionne ensuite et sur n'importe quel micro...
Message : Erreur d'execution 2147417848 (80010108)
La méthode 'Activate' de l'objet_'worksheet' à échoué (idem si Select à la
place d'activate)
Plantage et ejection d'Excel !
Config Excel 2000/Wk2
Merci pour votre aide
Domi
Bonjour Domi,
Quand tu copies ta feuille, il y a création d'un nouveau classeur
contenant la feuille copiée.
à la fin de l'opération, c'est ce nouveau classeur qui est actif ....et
normalement, il ne devrait contenir que la
feuille copiée.
Avant de sélectionner une feuille appartenant au premier classeur, tu
dois d'abord l'activer et ensuite sélectionner la
feuille.
En début de procédure :
Dim Nom as String
Nom = ThisWorkbook.name
Application.ScreenUpdating = False
'Ta procédure
'Remplace par ceci où tu éprouves des difficultés.
Workbooks(Nom).activate
Worksheets("Base").select
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de
news:%23QjJyUeZEHA.2520@TK2MSFTNGP12.phx.gbl...
Bonsoir à tous,
Mon code de copie de feuille tournait parfaitement bien jusqu'au moment ou
j'ai inséré les 3 lignes permettant de virer le code dans le module de la
feuille copiée (proposé dans le forum il y a quelques jours)
Sheets("AMModele").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Worksheets("AMModele").[AE1]
'Supprime de la nouvelle feuille créée toutes les formules pour ne
conserver
que les valeurs
With ThisWorkbook.ActiveSheet.UsedRange
.Value2 = .Value2
'Suppression de toutes les Shapes
ActiveSheet.DrawingObjects.Delete
End With
'Suppression du code de module de la feuille copiée
With
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
'Plantage complet de l'applic et je me fais ejecterd'EXCEL si je rajoute
la
ligne suivante (anodine pourtant non ?)
Sheets("BASE").Select 'Ca plante quelle que soit la feuille que je
selectionne ensuite et sur n'importe quel micro...
Message : Erreur d'execution 2147417848 (80010108)
La méthode 'Activate' de l'objet_'worksheet' à échoué (idem si Select à la
place d'activate)
Plantage et ejection d'Excel !
Config Excel 2000/Wk2
Merci pour votre aide
Domi
Bonjour Domi,
Quand tu copies ta feuille, il y a création d'un nouveau classeur
contenant la feuille copiée.
à la fin de l'opération, c'est ce nouveau classeur qui est actif ....et
normalement, il ne devrait contenir que la
feuille copiée.
Avant de sélectionner une feuille appartenant au premier classeur, tu
dois d'abord l'activer et ensuite sélectionner la
feuille.
En début de procédure :
Dim Nom as String
Nom = ThisWorkbook.name
Application.ScreenUpdating = False
'Ta procédure
'Remplace par ceci où tu éprouves des difficultés.
Workbooks(Nom).activate
Worksheets("Base").select
Salutations!
"Domi" a écrit dans le message de
news:%
Bonsoir à tous,
Mon code de copie de feuille tournait parfaitement bien jusqu'au moment ou
j'ai inséré les 3 lignes permettant de virer le code dans le module de la
feuille copiée (proposé dans le forum il y a quelques jours)
Sheets("AMModele").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Worksheets("AMModele").[AE1]
'Supprime de la nouvelle feuille créée toutes les formules pour ne
conserver
que les valeurs
With ThisWorkbook.ActiveSheet.UsedRange
.Value2 = .Value2
'Suppression de toutes les Shapes
ActiveSheet.DrawingObjects.Delete
End With
'Suppression du code de module de la feuille copiée
With
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
'Plantage complet de l'applic et je me fais ejecterd'EXCEL si je rajoute
la
ligne suivante (anodine pourtant non ?)
Sheets("BASE").Select 'Ca plante quelle que soit la feuille que je
selectionne ensuite et sur n'importe quel micro...
Message : Erreur d'execution 2147417848 (80010108)
La méthode 'Activate' de l'objet_'worksheet' à échoué (idem si Select à la
place d'activate)
Plantage et ejection d'Excel !
Config Excel 2000/Wk2
Merci pour votre aide
Domi