Bonjour,
J'ai la macro suivante (Macro1) qui me permet d'enregistrer la première
feuille. Pas de problème jusqu'ici. Or cette feuille contient des listes
déroulantes auxquelles j'ai associé la procédure suivante
(Worksheet_SelectionChange(ByVal abc As Range) que je voudrais également
supprimer. J'ai essayé plusieurs méthodes vues dans les forums, mais deux
problèmes :
D'abord le fichier obtenu s'ouvre avec une fenêtre d'alerte d'ouverture de
macro, alors qu'il n'y en a pas. J'enregistre, j'ouvre de nouveau et là plus
de message d'alerte. Bon mais on peut mieux.
Ensuite le deuxième problème vient du classeur de départ. Si après
fermeture, je l'ouvre, j'ai le message :
« Impossible d'accéder à 'Truc.xls' Le fichier est peut-être en lecture
seule ou vous essayez peut-être d'accéder à un emplacement en lecture seule.
Il est également possible que le serveur sur lequel il est enregistré le
document ne réponde pas. »
Pire si j'essaie de supprimer le classeur, j'ai le message :
« Impossible de supprimer 'Truc' Impossible de lire à partir du fichier ou
de la disquette source »
En fait pour le supprimer il faut le faire en mode sans échec !
Où sont les erreurs ?
Y a-t-il une meilleure méthode pour copier la première feuille et sans les
macros ?
Merci de vos réponses,
GGAL
Sub Worksheet_SelectionChange(ByVal abc As Range)
If abc.Address = "$F$11" Or abc.Address = "$F$13" Or abc.Address = "$F$16" _
Or abc.Address = "$F$17" Or abc.Address = "$F$20" Or abc.Address = "$F$21" _
Then
Application.SendKeys ("%{DOWN}")
End If
End Sub
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
isabelle
bonjour,
voici un exemple pour supprimer tout le code du classeur actif (extrait de la Faq)
Sub SupprToutCodeVBA() 'L Longre, mpfe Dim VBC As Object With ActiveWorkbook.VBProject For Each VBC In .VBComponents If VBC.Type = 100 Then With VBC.CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Else: .VBComponents.Remove VBC End If Next VBC End With MsgBox "Modules et macros du classeur actif supprimées.", _ vbInformation End Sub
isabelle
Bonjour, J'ai la macro suivante (Macro1) qui me permet d'enregistrer la première feuille. Pas de problème jusqu'ici. Or cette feuille contient des listes déroulantes auxquelles j'ai associé la procédure suivante (Worksheet_SelectionChange(ByVal abc As Range) que je voudrais également supprimer. J'ai essayé plusieurs méthodes vues dans les forums, mais deux problèmes : D'abord le fichier obtenu s'ouvre avec une fenêtre d'alerte d'ouverture de macro, alors qu'il n'y en a pas. J'enregistre, j'ouvre de nouveau et là plus de message d'alerte. Bon mais on peut mieux. Ensuite le deuxième problème vient du classeur de départ. Si après fermeture, je l'ouvre, j'ai le message : « Impossible d'accéder à 'Truc.xls' Le fichier est peut-être en lecture seule ou vous essayez peut-être d'accéder à un emplacement en lecture seule. Il est également possible que le serveur sur lequel il est enregistré le document ne réponde pas. » Pire si j'essaie de supprimer le classeur, j'ai le message : « Impossible de supprimer 'Truc' Impossible de lire à partir du fichier ou de la disquette source » En fait pour le supprimer il faut le faire en mode sans échec !
Où sont les erreurs ? Y a-t-il une meilleure méthode pour copier la première feuille et sans les macros ?
Merci de vos réponses,
GGAL
Sub Worksheet_SelectionChange(ByVal abc As Range) If abc.Address = "$F$11" Or abc.Address = "$F$13" Or abc.Address = "$F$16" _ Or abc.Address = "$F$17" Or abc.Address = "$F$20" Or abc.Address = "$F$21" _ Then Application.SendKeys ("%{DOWN}") End If End Sub
voici un exemple pour supprimer tout le code du classeur actif (extrait de la Faq)
Sub SupprToutCodeVBA()
'L Longre, mpfe
Dim VBC As Object
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
MsgBox "Modules et macros du classeur actif supprimées.", _
vbInformation
End Sub
isabelle
Bonjour,
J'ai la macro suivante (Macro1) qui me permet d'enregistrer la première
feuille. Pas de problème jusqu'ici. Or cette feuille contient des listes
déroulantes auxquelles j'ai associé la procédure suivante
(Worksheet_SelectionChange(ByVal abc As Range) que je voudrais également
supprimer. J'ai essayé plusieurs méthodes vues dans les forums, mais deux
problèmes :
D'abord le fichier obtenu s'ouvre avec une fenêtre d'alerte d'ouverture de
macro, alors qu'il n'y en a pas. J'enregistre, j'ouvre de nouveau et là plus
de message d'alerte. Bon mais on peut mieux.
Ensuite le deuxième problème vient du classeur de départ. Si après
fermeture, je l'ouvre, j'ai le message :
« Impossible d'accéder à 'Truc.xls' Le fichier est peut-être en lecture
seule ou vous essayez peut-être d'accéder à un emplacement en lecture seule.
Il est également possible que le serveur sur lequel il est enregistré le
document ne réponde pas. »
Pire si j'essaie de supprimer le classeur, j'ai le message :
« Impossible de supprimer 'Truc' Impossible de lire à partir du fichier ou
de la disquette source »
En fait pour le supprimer il faut le faire en mode sans échec !
Où sont les erreurs ?
Y a-t-il une meilleure méthode pour copier la première feuille et sans les
macros ?
Merci de vos réponses,
GGAL
Sub Worksheet_SelectionChange(ByVal abc As Range)
If abc.Address = "$F$11" Or abc.Address = "$F$13" Or abc.Address = "$F$16" _
Or abc.Address = "$F$17" Or abc.Address = "$F$20" Or abc.Address = "$F$21" _
Then
Application.SendKeys ("%{DOWN}")
End If
End Sub
voici un exemple pour supprimer tout le code du classeur actif (extrait de la Faq)
Sub SupprToutCodeVBA() 'L Longre, mpfe Dim VBC As Object With ActiveWorkbook.VBProject For Each VBC In .VBComponents If VBC.Type = 100 Then With VBC.CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Else: .VBComponents.Remove VBC End If Next VBC End With MsgBox "Modules et macros du classeur actif supprimées.", _ vbInformation End Sub
isabelle
Bonjour, J'ai la macro suivante (Macro1) qui me permet d'enregistrer la première feuille. Pas de problème jusqu'ici. Or cette feuille contient des listes déroulantes auxquelles j'ai associé la procédure suivante (Worksheet_SelectionChange(ByVal abc As Range) que je voudrais également supprimer. J'ai essayé plusieurs méthodes vues dans les forums, mais deux problèmes : D'abord le fichier obtenu s'ouvre avec une fenêtre d'alerte d'ouverture de macro, alors qu'il n'y en a pas. J'enregistre, j'ouvre de nouveau et là plus de message d'alerte. Bon mais on peut mieux. Ensuite le deuxième problème vient du classeur de départ. Si après fermeture, je l'ouvre, j'ai le message : « Impossible d'accéder à 'Truc.xls' Le fichier est peut-être en lecture seule ou vous essayez peut-être d'accéder à un emplacement en lecture seule. Il est également possible que le serveur sur lequel il est enregistré le document ne réponde pas. » Pire si j'essaie de supprimer le classeur, j'ai le message : « Impossible de supprimer 'Truc' Impossible de lire à partir du fichier ou de la disquette source » En fait pour le supprimer il faut le faire en mode sans échec !
Où sont les erreurs ? Y a-t-il une meilleure méthode pour copier la première feuille et sans les macros ?
Merci de vos réponses,
GGAL
Sub Worksheet_SelectionChange(ByVal abc As Range) If abc.Address = "$F$11" Or abc.Address = "$F$13" Or abc.Address = "$F$16" _ Or abc.Address = "$F$17" Or abc.Address = "$F$20" Or abc.Address = "$F$21" _ Then Application.SendKeys ("%{DOWN}") End If End Sub
Merci isabelle, mais cette procédure comme les autres assez semblables, qui fonctionnent bien, mais lorsque je veux rouvrir le fichier j'ai toujours ces deux problèmes.
GGAL
bonjour,
voici un exemple pour supprimer tout le code du classeur actif (extrait de la Faq)
Sub SupprToutCodeVBA() 'L Longre, mpfe Dim VBC As Object With ActiveWorkbook.VBProject For Each VBC In .VBComponents If VBC.Type = 100 Then With VBC.CodeModule ..DeleteLines 1, .CountOfLines ..CodePane.Window.Close End With Else: .VBComponents.Remove VBC End If Next VBC End With MsgBox "Modules et macros du classeur actif supprimées.", _ vbInformation End Sub
isabelle
Bonjour, J'ai la macro suivante (Macro1) qui me permet d'enregistrer la première feuille. Pas de problème jusqu'ici. Or cette feuille contient des listes déroulantes auxquelles j'ai associé la procédure suivante (Worksheet_SelectionChange(ByVal abc As Range) que je voudrais également supprimer. J'ai essayé plusieurs méthodes vues dans les forums, mais deux problèmes : D'abord le fichier obtenu s'ouvre avec une fenêtre d'alerte d'ouverture de macro, alors qu'il n'y en a pas. J'enregistre, j'ouvre de nouveau et là plus de message d'alerte. Bon mais on peut mieux. Ensuite le deuxième problème vient du classeur de départ. Si après fermeture, je l'ouvre, j'ai le message : « Impossible d'accéder à 'Truc.xls' Le fichier est peut-être en lecture seule ou vous essayez peut-être d'accéder à un emplacement en lecture seule. Il est également possible que le serveur sur lequel il est enregistré le document ne réponde pas. » Pire si j'essaie de supprimer le classeur, j'ai le message : « Impossible de supprimer 'Truc' Impossible de lire à partir du fichier ou de la disquette source » En fait pour le supprimer il faut le faire en mode sans échec !
Où sont les erreurs ? Y a-t-il une meilleure méthode pour copier la première feuille et sans les macros ?
Merci de vos réponses,
GGAL
Sub Worksheet_SelectionChange(ByVal abc As Range) If abc.Address = "$F$11" Or abc.Address = "$F$13" Or abc.Address = "$F$16" _ Or abc.Address = "$F$17" Or abc.Address = "$F$20" Or abc.Address = "$F$21" _ Then Application.SendKeys ("%{DOWN}") End If End Sub
Merci isabelle, mais cette procédure comme les autres assez semblables, qui
fonctionnent bien, mais lorsque je veux rouvrir le fichier j'ai toujours ces
deux problèmes.
GGAL
bonjour,
voici un exemple pour supprimer tout le code du classeur actif (extrait de la Faq)
Sub SupprToutCodeVBA()
'L Longre, mpfe
Dim VBC As Object
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
..DeleteLines 1, .CountOfLines
..CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
MsgBox "Modules et macros du classeur actif supprimées.", _
vbInformation
End Sub
isabelle
Bonjour,
J'ai la macro suivante (Macro1) qui me permet d'enregistrer la première
feuille. Pas de problème jusqu'ici. Or cette feuille contient des listes
déroulantes auxquelles j'ai associé la procédure suivante
(Worksheet_SelectionChange(ByVal abc As Range) que je voudrais également
supprimer. J'ai essayé plusieurs méthodes vues dans les forums, mais deux
problèmes :
D'abord le fichier obtenu s'ouvre avec une fenêtre d'alerte d'ouverture de
macro, alors qu'il n'y en a pas. J'enregistre, j'ouvre de nouveau et là plus
de message d'alerte. Bon mais on peut mieux.
Ensuite le deuxième problème vient du classeur de départ. Si après
fermeture, je l'ouvre, j'ai le message :
« Impossible d'accéder à 'Truc.xls' Le fichier est peut-être en lecture
seule ou vous essayez peut-être d'accéder à un emplacement en lecture seule.
Il est également possible que le serveur sur lequel il est enregistré le
document ne réponde pas. »
Pire si j'essaie de supprimer le classeur, j'ai le message :
« Impossible de supprimer 'Truc' Impossible de lire à partir du fichier ou
de la disquette source »
En fait pour le supprimer il faut le faire en mode sans échec !
Où sont les erreurs ?
Y a-t-il une meilleure méthode pour copier la première feuille et sans les
macros ?
Merci de vos réponses,
GGAL
Sub Worksheet_SelectionChange(ByVal abc As Range)
If abc.Address = "$F$11" Or abc.Address = "$F$13" Or abc.Address = "$F$16" _
Or abc.Address = "$F$17" Or abc.Address = "$F$20" Or abc.Address = "$F$21" _
Then
Application.SendKeys ("%{DOWN}")
End If
End Sub
Merci isabelle, mais cette procédure comme les autres assez semblables, qui fonctionnent bien, mais lorsque je veux rouvrir le fichier j'ai toujours ces deux problèmes.
GGAL
bonjour,
voici un exemple pour supprimer tout le code du classeur actif (extrait de la Faq)
Sub SupprToutCodeVBA() 'L Longre, mpfe Dim VBC As Object With ActiveWorkbook.VBProject For Each VBC In .VBComponents If VBC.Type = 100 Then With VBC.CodeModule ..DeleteLines 1, .CountOfLines ..CodePane.Window.Close End With Else: .VBComponents.Remove VBC End If Next VBC End With MsgBox "Modules et macros du classeur actif supprimées.", _ vbInformation End Sub
isabelle
Bonjour, J'ai la macro suivante (Macro1) qui me permet d'enregistrer la première feuille. Pas de problème jusqu'ici. Or cette feuille contient des listes déroulantes auxquelles j'ai associé la procédure suivante (Worksheet_SelectionChange(ByVal abc As Range) que je voudrais également supprimer. J'ai essayé plusieurs méthodes vues dans les forums, mais deux problèmes : D'abord le fichier obtenu s'ouvre avec une fenêtre d'alerte d'ouverture de macro, alors qu'il n'y en a pas. J'enregistre, j'ouvre de nouveau et là plus de message d'alerte. Bon mais on peut mieux. Ensuite le deuxième problème vient du classeur de départ. Si après fermeture, je l'ouvre, j'ai le message : « Impossible d'accéder à 'Truc.xls' Le fichier est peut-être en lecture seule ou vous essayez peut-être d'accéder à un emplacement en lecture seule. Il est également possible que le serveur sur lequel il est enregistré le document ne réponde pas. » Pire si j'essaie de supprimer le classeur, j'ai le message : « Impossible de supprimer 'Truc' Impossible de lire à partir du fichier ou de la disquette source » En fait pour le supprimer il faut le faire en mode sans échec !
Où sont les erreurs ? Y a-t-il une meilleure méthode pour copier la première feuille et sans les macros ?
Merci de vos réponses,
GGAL
Sub Worksheet_SelectionChange(ByVal abc As Range) If abc.Address = "$F$11" Or abc.Address = "$F$13" Or abc.Address = "$F$16" _ Or abc.Address = "$F$17" Or abc.Address = "$F$20" Or abc.Address = "$F$21" _ Then Application.SendKeys ("%{DOWN}") End If End Sub