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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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