Erreur automation VBA

merci voici le lien

Re

Beau fichier que celui-là...

Dans ton fichier il y a un module "open macro" qui contient des Private Sub qui sont déjà dans THISWORKBOOK. Il faudrait faire le ménage là....

Transfère les macros dans THISWORKBOOK :

• Private Sub Workbook_Activate()
• Private Sub Workbook_BeforePrint(Cancel As Boolean)
• Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
• Private Sub Workbook_Deactivate()
• Private Sub Workbook_Open()

Dans Thisworkbook,

• choisis ensuite la bonne Private Sub Workbook_Open(), car là tu en auras deux.
• supprime la macro Sub updateProjectInfo().

A te relire

Ca marche pas

Re,

Peux-tu remettre le lien avec ton fichier modifié suite à mes indications

Je le testerai ce soir

Amicalement

Merci Dan.

voici le lien

Re,

J'ai repris le fichier dans ton dernier post, mais tu n'as rien modifié comme je te l'avais dit dans mon post précédent.

Pas possible d'avancer....

A te relire

J ai essaye mais j etais pas capable d enregistrer le fichier

re,

Ok.

La macro updateProjectInfo() doit être exécutée à l'ouverture du fichier ou non ??

A te relire

Si ca derrange pas besoin de l excuter a l ouverture merci

Salut Dan! As tu des nouvelles?

Merci

Re,

Je ne sais pas ce que tu as fait dans ce fichier mais bon il y a vraiement des soucis notamment avec cette barre d'outils que tu as attachée au fichier et qui pour moi vient en conflit avec la sub WorkbookOpen.

J'ai sauvé ton fichier en Xl2003 pour tenter de supprimer cette barre résidente qui de surcroit reste même si tu fermes ton fichier. Malheureusement impossible d'enregsitrer ton fichier.

Pourrais-tu me mettre un lien avec ton fichier enregistré avec extension XLS.

A te relire

merci infiniment.

voici le lien

Avez vous des nouvelles ? merci pour votre aide !

Bonjour,

Pour régler le problème du menu personnalisée et la suppression de la boîte de dialogue (Créer & Effacer ToolBar"), j'ai modifié le code de la feuille "ThisWorkbook"

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call DeleteToolBar
End Sub
Private Sub Workbook_Open()
    Call CreateToolBar
    Call updateProjectInfo
End Sub
Sub updateProjectInfo()
    InputSheet.Unprotect
    Range("ProjectInfo").FormulaR1C1 = "=getprojectinfo()"
    InputSheet.Protect
End Sub

Pour régler le problème de la modification des langues, j'ai redéfini 2 variables dans le module "Toolbars"

Sub TranslateRiskObjectives(language As Integer)

soit

'jep
    Dim oldNo As String
    'jep
    Dim tmpText As String

J'ai supprimé toutes les variables définies non-utilisées(je ne peux-pas toutes énumérer - nettoyage effectuée avec MZ-Tools 3.0 pour VBA ; logiciel gratuit).

Je n'ai pas détecté d'autres problèmes (sous xls, puis xlsm)

A te lire.

merci ! j'ai essayé mais ça marche pas comme d'habitude

Re,

Dans le menu Outils/Références, références disponibles.

Vois-tu des anomalies?

Peux-tu me lister les références cochées?

Cdlt.

voici merci

Re,

Dernière idée pour ma part.

Tu mets option explicit en début de tous tes modules. Tu t'assures que toutes tes variables soient définies.

Puis

Editeur VBA, tu sélectionnes ton projet VBA. Menu Debogage,Compiler VBAProject.

Toutes les anomalies vont s'afficher

A voir pour les corriger : Les principales étant des déclarations de variables.

Bonne nuit

merci de votre aide ! mais je ne suis pas capable de compiler le projet ! le même message d erreur s’apparaît a nouveau!

Re,

Tu lis le lien ci-dessous. Si tu fais des mises à jour régulières d'Office, tu peux te retrouver dans ce cas de figure.

Cdlt