Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

je ne trouve pas l'erreur dans mon code

1 réponse
Avatar
crole
Bonjour le groupe

Pourriez-vous m'aider pour le message suivant;

Lorsque j'exc=E9cute le code suivant, j'ai un message d'erreur de
compilation

"Projet ou biblioth=E8que introuvable"

Voici le code
Private Sub CommandButton1_Click()
CHEMIN_D_ACCES =3D ActiveWorkbook.Path & "\" ' ou chemin en dur
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=3DCHEMIN_D_ACCES & _
"Fin de s=E9jour BV N=B0 " & [e4].Value & ".xls",
FileFormat:=3DxlOpenXMLWorkbookMacroEnabled, CreateBackup:=3DFalse
Application.DisplayFullScreen =3D False
Application.CommandBars(1).Enabled =3D True
ActiveWindow.DisplayHeadings =3D 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

1 réponse

Avatar
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