Erreur automation VBA

bonjour a tous ,

j'ai besoin de votre aide précieuse...

mon fichier fonctionne correctement avec Excel 2010 mais il bug avec Excel 2003 et 2007 , il affiche un message d'erreur ERREUR AUTOMATION , je ne sais pas c'est quoi ça?

si vous pourriez m'aider ce serait vraiment apprécié .

Merci,

Bonjour,

C'est quoi l'instruction sur laquelle bug le fichier ??

bonjour Dan ,

merci pour votre réponse rapide.

Voici les bugs.

merci

Salut le forum

Pas très utile ton fichier Word . . .

Mytå

malheuresement je peux pas attacher mon fichier a cause de sa taille 2mo

Re le forum

Pour joindre un fichier, tu crées un lien à l'aide de http://cjoint.com/ et tu recopies le lien dans ton prochain message.

La taille des documents téléchargés est pour le moment limitée à 2048 Ko (8192 Ko si durée de 4 jours)

Mytå

merci beaucoup voici le lien

Bonjour,

Un lien qui pourrait vous aider.

En anglais!

Cordialement

http://www.add-ins.com/support/automation_error.htm

Merci pour le lien.

Mais j ai toujours le meme probleme

Bonjour,

Modifies les codes de thisWorkbook dans un 1er. temps et te tu testes.

A+

Re,

C'est mieux avec le code. Les lignes de code supprimés portent l'annoatation "jep"

Option Explicit
Private Sub Workbook_Activate()
    'jep
    CreateToolBar

End Sub

'Private Sub Workbook_BeforePrint(Cancel As Boolean)
'    'Call updateProjectInfo
'End Sub

'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'    'Call updateProjectInfo
'End Sub

Private Sub Workbook_Deactivate()
    'jep
    DeleteToolBar
End Sub

Private Sub Workbook_Open()
    'jep
    'Call CreateToolBar
    Call updateProjectInfo
    Call ShowRiskTable
End Sub

Sub updateProjectInfo()
    InputSheet.Unprotect
    Range("ProjectInfo").FormulaR1C1 = "=getprojectinfo()"
    InputSheet.Protect
End Sub

Re,

Il faut éliminer tout ce qui fait appel :

1 - CreateToolBar

2 - DeleteToolBar

Ceci dans "ThisWorbook" et dans les modules ou ils apparaissent (faire recherche des mots entiers dans projet en cours)

A+

ca marche pas! Est ce que ca marche chez toi?

Merci :

Re,

Dans quelle version d'Excel a été crée le fichier?

Si je ne me trompe pas, depuis l'apparition du ruban sur 2007, la création de menu n'existe plus sous la forme 97-2003!

Quelqu'un pourra confirmer mes dires.

Salut le forum

Jean-Eric la création des menus personnalisés fonctionne mais apparaît dans un onglet « Compléments ».

Mytå

Salut Forum ,

Le fichier a été crée sous Excel 2003 , puis upgraded pour Excel 2007.

Merci.

Bonjour,

Un point sur le fichier :

1 - Pas d'erreur automation

2 - Erreur sur le code suivant corrigé dans ThisWorbook

Sub updateProjectInfo()
    InputSheet.Unprotect
    'jep
    'Range("ProjectInfo").FormulaR1C1 = "=getprojectinfo()"
    Range("ProjectInfo").FormulaR1C1 = GetProjectInfo()
    InputSheet.Protect
End Sub

Sinon, cela fonctionne à priori, mais je peux difficilement tester la chose...

Cordialement

Bonjour

Je ne suis plus intervenu sur ce fil puisque Jean Eric te donne des aides à ce sujet.

En reprenant toutefois ton fichier posté et avoir fait un test sous Excel 2000, je remarque une chose bizarre à savoir que si tu désactives tes macros à l'ouverture, ta barre de menu spécifique est tout de même affichée !

Et si tu fermes ton fichier, en toute logique la barre reste bien affichée.

Je pense que le conflit vient de là. Entre cette barre affichée on ne sait comment et (si tu autorises les macros à l'ouverture) la Private sub Workbook open qui demande aussi d'afficher la barre de menu.

Dans ce cas, si je veux enregistrer ton fichier sous un autre nom, j'ai une erreur système

Le fichier ne serait pas par hasard un vieux fichier élaboré sous Excel 97 avec des macros XL4 ??

Connais tu l'historique de ce fichier ?

Peut être voir de ce coté là

A te relire

Bonjour,

Plus de news pour ce problème?

Cordialement

Salut forum,

Le fichier a ete batis sur 2003 mais upgrader pour 2007.

Une chose je ne comprend pas pourquoi si je lance le fichier avec 2010 tout fonctionne bien.

C est vraiment bizarre !

Merci

Des news pour ce problème?

Merci

Re

Ton lien n'est plus disponible sur Cjoint. Peux-tu le remettre en ligne

A te relire