je ne trouve pas l'erreur dans mon code

Le
crole
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:=False
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20653211
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"
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
Publicité
Poster une réponse
Anonyme