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
michdenis
Bonjour,
Dans la fenêtre de l'éditeur de code VBA, Barre de menu / outils /références / et dans la liste décoche la ou (les) bibliothèques marquées "MANQUANTES"
"crole" a écrit dans le message de groupe de discussion :
Bonjour le groupe
Pourriez-vous m'aider pour le message suivant;
Lorsque j'excécute le code suivant, j'ai un message d'erreur de compilation
"Projet ou bibliothèque introuvable"
Voici le code Private Sub CommandButton1_Click() CHEMIN_D_ACCES = ActiveWorkbook.Path & "" ' ou chemin en dur ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=CHEMIN_D_ACCES & _ "Fin de séjour BV N° " & [e4].Value & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:úlse Application.DisplayFullScreen = False Application.CommandBars(1).Enabled = True ActiveWindow.DisplayHeadings = True ActiveSheet.Shapes("CommandButton1").Select Selection.Delete ActiveSheet.Shapes("CommandButton2").Select Selection.Delete ActiveSheet.Shapes("CommandButton3").Select Selection.Delete ActiveSheet.Shapes("CommandButton4").Select Selection.Delete ActiveSheet.Shapes("CommandButton5").Select Selection.Delete ActiveSheet.Range("e4").Select End Sub
D'avance merci pour votre aide Cordialement Crole
Bonjour,
Dans la fenêtre de l'éditeur de code VBA,
Barre de menu / outils /références / et dans la liste
décoche la ou (les) bibliothèques marquées "MANQUANTES"
"crole" <contactbruno@voo.be> a écrit dans le message de groupe de discussion :
fcbc2fde-075d-4e62-966e-c8713da77e18@k17g2000yqh.googlegroups.com...
Bonjour le groupe
Pourriez-vous m'aider pour le message suivant;
Lorsque j'excécute le code suivant, j'ai un message d'erreur de
compilation
"Projet ou bibliothèque introuvable"
Voici le code
Private Sub CommandButton1_Click()
CHEMIN_D_ACCES = ActiveWorkbook.Path & "" ' ou chemin en dur
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=CHEMIN_D_ACCES & _
"Fin de séjour BV N° " & [e4].Value & ".xls",
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:úlse
Application.DisplayFullScreen = False
Application.CommandBars(1).Enabled = True
ActiveWindow.DisplayHeadings = True
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton2").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton3").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton4").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton5").Select
Selection.Delete
ActiveSheet.Range("e4").Select
End Sub
Dans la fenêtre de l'éditeur de code VBA, Barre de menu / outils /références / et dans la liste décoche la ou (les) bibliothèques marquées "MANQUANTES"
"crole" a écrit dans le message de groupe de discussion :
Bonjour le groupe
Pourriez-vous m'aider pour le message suivant;
Lorsque j'excécute le code suivant, j'ai un message d'erreur de compilation
"Projet ou bibliothèque introuvable"
Voici le code Private Sub CommandButton1_Click() CHEMIN_D_ACCES = ActiveWorkbook.Path & "" ' ou chemin en dur ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=CHEMIN_D_ACCES & _ "Fin de séjour BV N° " & [e4].Value & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:úlse Application.DisplayFullScreen = False Application.CommandBars(1).Enabled = True ActiveWindow.DisplayHeadings = True ActiveSheet.Shapes("CommandButton1").Select Selection.Delete ActiveSheet.Shapes("CommandButton2").Select Selection.Delete ActiveSheet.Shapes("CommandButton3").Select Selection.Delete ActiveSheet.Shapes("CommandButton4").Select Selection.Delete ActiveSheet.Shapes("CommandButton5").Select Selection.Delete ActiveSheet.Range("e4").Select End Sub