affichage d'erreur d'exécution 438

[mariea]

bonjour,
Lorsque j'ouvre uun f ichier excel déjà créee avec VBa, est noté "erreur d'éxécution 438" et lorsque je vais chercher le détail est inscrit :
'Initialisations
L = 2
valeur = ""

Sheets("Saisie").Activate
Worksheets("Saisie").Calendar1.Value = Now( c 'est cette ligne qui est surlignée en jaune)

'Initialiser toutes les listes déroulantes
Worksheets("Saisie").ComboBox1.clear
Worksheets("Saisie").ComboBox1.Value = ""
Merci de votre aide précieuse

 

[joss56]

Re : affichage d'erreur d'exécution 438

Bonjour à tous, mariea,

Sans voir le fichier et si ni le contrôle Calendar ni la feuille n'ont été renommés, j'essaierai:
WorkSheets("Saisie").Calendar1.Value=Date

A+
Jocelyn

 

[mariea]

Re : affichage d'erreur d'exécution 438

cela ne fonctionne pas et c vrai que j'ai renommé le fichier.
Qu'est ce que le control calendar?
Merci

 

[joss56]

Re : affichage d'erreur d'exécution 438

Peux tu joindre le fichier?

 

[Papou-net]

Re : affichage d'erreur d'exécution 438

Bonjour mariea, joss56

@ mariea,

As-tu inséré un contrôle calendrier sur ta feuille ?
Apparemment, ça fonctionne sur le fichier exemple ci-joint : tu changes la date sur le calendrier et tu cliques sur le bouton Démonstration.

Pour insérer ce contrôle, tu dois afficher le ruban Développeur, puis cliquer sur Insérer, Contrôles ActiveX, bouton Autres contrôles (Clé et marteau croisés), tu choisis Contrôle Calendrier 11.0 et tu valides par OK. Ton curseur se transforme en croix et tu traces le calendrier sur ta feuille de calcul.

Espérant avoir été utile.

Cordialement.

 

[mariea]

Re : affichage d'erreur d'exécution 438

malheureusement non car fichier professionnel

 

[joss56]

Re : affichage d'erreur d'exécution 438

Jette un œil sur le fichier de Papou-net que je salue au passage.

 

[mariea]

Re : affichage d'erreur d'exécution 438

je pense qu'il ya autre chose comme problème car même le fichier joint de papou net car je clique mais cela ne change pas du tout la date. oui j'ai déjà un calendrier dans mon fichier

 

[Papou-net]

Re : affichage d'erreur d'exécution 438

RE :

Chez moi, ça fonctionne parfaitement.

Quand tu dis que ça ne change rien, est-ce que tu as bien la date du jour dans la boîte de message qui s'affiche ?

Mais il est certain que sans ton fichier, difficile de trouver l'origine du problème Tu peux peut-être envoyer une copie de ton fichier sans aucune donnée confidentielle ?

Cordialement.