OVH Cloud OVH Cloud

grille de données

3 réponses
Avatar
Bernard
Bonjour,
j'ai enregistr=E9 une macro qui ouvre (devrait ouvrir) une=20
grille de donn=E9es (base de donn=E9es) or =E0 chaque fois que=20
je la lance j'ai l'erreur suivante : "erreur ex=E9cution=20
1004 La m=E9thode ShowDataForm de la classe Worksheet a=20
=E9chou=E9"

voici le code on ne peut plus simple
Sub Macro1()
Range("B4:G9").Select
ActiveSheet.ShowDataForm
End Sub

la feuille n'est pas prot=E9g=E9e, une feuille toute b=EAte,=20
avec les titres de B4 =E0 B9, et 5 lignes de saisie
d'avance merci

3 réponses

Avatar
ru-th
Salut

essaie
Range("B4:G9").Select
Application.CommandBars("data").FindControl(ID:†0).Execute

a+
rural thierry

"Bernard" a écrit dans le message de
news: 1a6b401c41e22$7e0c8e90$
Bonjour,
j'ai enregistré une macro qui ouvre (devrait ouvrir) une
grille de données (base de données) or à chaque fois que
je la lance j'ai l'erreur suivante : "erreur exécution
1004 La méthode ShowDataForm de la classe Worksheet a
échoué"

voici le code on ne peut plus simple
Sub Macro1()
Range("B4:G9").Select
ActiveSheet.ShowDataForm
End Sub

la feuille n'est pas protégée, une feuille toute bête,
avec les titres de B4 à B9, et 5 lignes de saisie
d'avance merci
Avatar
Benoit
Bonjour,
Il me semble que ShowDataForm est un peu léger.
Form.Show devrait faire l'affaire.
Benoit,

-----Message d'origine-----
Bonjour,
j'ai enregistré une macro qui ouvre (devrait ouvrir) une
grille de données (base de données) or à chaque fois que
je la lance j'ai l'erreur suivante : "erreur exécution
1004 La méthode ShowDataForm de la classe Worksheet a
échoué"

voici le code on ne peut plus simple
Sub Macro1()
Range("B4:G9").Select
ActiveSheet.ShowDataForm
End Sub

la feuille n'est pas protégée, une feuille toute bête,
avec les titres de B4 à B9, et 5 lignes de saisie
d'avance merci
.



Avatar
bernard
Merci, tout à fait ce que je cherchais,

dernière petite question : où trouver la liste des
Identificateurs du contrôle.
d'avance merci
-----Message d'origine-----
Salut

essaie
Range("B4:G9").Select
Application.CommandBars("data").FindControl
(ID:†0).Execute


a+
rural thierry

"Bernard" a écrit
dans le message de

news: 1a6b401c41e22$7e0c8e90$
Bonjour,
j'ai enregistré une macro qui ouvre (devrait ouvrir) une
grille de données (base de données) or à chaque fois que
je la lance j'ai l'erreur suivante : "erreur exécution
1004 La méthode ShowDataForm de la classe Worksheet a
échoué"

voici le code on ne peut plus simple
Sub Macro1()
Range("B4:G9").Select
ActiveSheet.ShowDataForm
End Sub

la feuille n'est pas protégée, une feuille toute bête,
avec les titres de B4 à B9, et 5 lignes de saisie
d'avance merci


.