J'utilise excel 2010 et depuis lors le code VBA ci-apr=E8s ne fonctionne
pas.
Pourriez-vous m'aider =E0 r=E9soudre cela.
Merci d'avance pour vos r=E9ponses.
Le code:
Private Sub CommandButton2_Click()
CHEMIN_D_ACCES =3D ActiveWorkbook.Path & "\" ' ou chemin en dur
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=3DCHEMIN_D_ACCES & _
"Fin de S=E9jour N=B0 " & [f4].Value & ".xls",
FileFormat:=3DxlOpenXMLWorkbookMacroEnabled, CreateBackup:=3DFalse
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.Shapes("Calendar1").Select
Selection.Delete
ActiveSheet.Columns("A:A").Select
Selection.Delete Shift:=3DxlToLeft
ActiveSheet.Range("A4").Select
End Sub
Bonne soir=E9e
Crole
"crole" <contactbruno@skynet.be> a écrit dans le message de groupe de discussion :
ef9c50c0-7563-4b95-aeab-02c40e0aeeac@q2g2000vbk.googlegroups.com...
Bonsoir le groupe,
J'utilise excel 2010 et depuis lors le code VBA ci-après ne fonctionne
pas.
Pourriez-vous m'aider à résoudre cela.
Merci d'avance pour vos réponses.
Le code:
Private Sub CommandButton2_Click()
CHEMIN_D_ACCES = ActiveWorkbook.Path & "" ' ou chemin en dur
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=CHEMIN_D_ACCES & _
"Fin de Séjour N° " & [f4].Value & ".xls",
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:úlse
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.Shapes("Calendar1").Select
Selection.Delete
ActiveSheet.Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
ActiveSheet.Range("A4").Select
End Sub
Bonne soirée
Crole
"crole" <contactbruno@skynet.be> a écrit dans le message de groupe de discussion :
10b5000f-c3bc-4382-8d50-34d72aa45a60@g10g2000vbc.googlegroups.com...
Bonsoir MichDenis
La ligne
CHEMIN_D_ACCES = ActiveWorkbook.Path & "" ' ou chemin en dur
Message d'erreur
Erreur de compilation
Projet ou bibliothèque introuvable.
Impossible de supprimer le contrôle ou la référence; en cours d'utilisation
Manquant microsoft calandar control
Crole
michdenis
Si tu as un contrôle "calendrier" dans un formulaire, supprime-le et enlève le bouton de commande de la boîte d'outils du formulaire par un clic droit sur le bouton de commande "Calendar1" et dans le menu contextuel, tu choisis la commande "Supprimer ce contrôle"
Tu fais la même chose si tu as un contrôle "Calendar" sur une feuille de calcul.
Après, tu ouvres la fenêtre "Références" du menu "Outils" et tu supprimes la référence marquées "Manquantes"
"crole" a écrit dans le message de groupe de discussion :
Re,
Impossible de supprimer le contrôle ou la référence; en cours d'utilisation
Manquant microsoft calandar control
Crole
Si tu as un contrôle "calendrier" dans un formulaire,
supprime-le et enlève le bouton de commande de
la boîte d'outils du formulaire par un clic droit sur le
bouton de commande "Calendar1" et dans le menu
contextuel, tu choisis la commande "Supprimer ce contrôle"
Tu fais la même chose si tu as un contrôle "Calendar" sur une feuille de calcul.
Après, tu ouvres la fenêtre "Références" du menu "Outils" et
tu supprimes la référence marquées "Manquantes"
"crole" <contactbruno@skynet.be> a écrit dans le message de groupe de discussion :
93fe83b8-a6ba-4018-aed3-8001d1b21f1e@a30g2000vbt.googlegroups.com...
Re,
Impossible de supprimer le contrôle ou la référence; en cours
d'utilisation
Si tu as un contrôle "calendrier" dans un formulaire, supprime-le et enlève le bouton de commande de la boîte d'outils du formulaire par un clic droit sur le bouton de commande "Calendar1" et dans le menu contextuel, tu choisis la commande "Supprimer ce contrôle"
Tu fais la même chose si tu as un contrôle "Calendar" sur une feuille de calcul.
Après, tu ouvres la fenêtre "Références" du menu "Outils" et tu supprimes la référence marquées "Manquantes"
"crole" <contactbruno@skynet.be> a écrit dans le message de groupe de discussion :
700e829e-7802-4767-9cc1-8a3c2da209ac@z25g2000vbn.googlegroups.com...
Désolé je n'arrive pas
j'ai excécuté à la lettre les indications ci-dessus.
mais toujours le même message.
merci quand même
Crole
"crole" <contactbruno@skynet.be> a écrit dans le message de groupe de discussion :
0ed5d9a0-9d1d-4c08-b9dd-0372975df361@g18g2000vbn.googlegroups.com...
envoyé et merci de m'accorder de ton temps
"crole" <contactbr...@skynet.be> a écrit dans le message de groupe de d iscussion :
0ed5d9a0-9d1d-4c08-b9dd-0372975df...@g18g2000vbn.googlegroups.com...
envoyé et merci de m'accorder de ton temps