Problème à l'ouverture de fichier

mysti54

XLDnaute Nouveau
Bonjour à tous

Voilà je vous expose mon problème, j'ai plusieurs fichiers avec macro, VBA que je ne peux pas ouvrir car j'ai toujours un message d'erreur à l'ouverture de fichiers surligné en jaune "Private sub Workbrook Open( ).

Ensuite dans la fenêtre j'ai erreur de compilation
Membre de méthode ou de données introuvable


Merci pour votre aide
 

Fichiers joints

mysti54

XLDnaute Nouveau
Bonsoir Merci de m'avoir répondu , oui c'est la bonne syntaxe c'est moi qui est mal écrit c'est bien Private sub Workbook Open( ) qui est écrit en code VBA.
Arrivez-vous a ouvrir le fichier sans fenêtre erreur.

Merci
 

mysti54

XLDnaute Nouveau
Sur un fichier par exemple à l'ouverture du fichier j'ai une fenêtre qui s'affiche est le message suivant
"Erreur de compilation dans le module caché : ThisWorkbook"

J'ai l' impression que c'est souvent le workbook qui pose problème.
 

job75

XLDnaute Barbatruc
Bonjour mysti54, JM,

Sur le fichier du post #1 il y a erreur de compilation sur ReDim Preserve Temp(5) dans Module1.

Il faut qu'au départ Temp soit défini comme un Array en écrivant Dim Temp().

A+
 

mysti54

XLDnaute Nouveau
Pourquoi avant quand j'avais excel 2013, tout les fichiers étaient opérationnel ... Est-ce une configuration d'excel pour que les codes VBA fonctionnent.
 

mysti54

XLDnaute Nouveau
Désolé de ne pas saisir tout

Voilà le module 1

'Option Explicit

Sub test()
'Extraire Musique
If I > 1 Then
Musiques = Musique(Cells(Lig + I, "M").Value)
Temp = Split(Musiques, " ")
If UBound(Temp) < 5 Then ReDim Preserve Temp(5)
For K = 0 To IIf(UBound(Temp) > 5, 6, UBound(Temp))
Cells(Lig + I, 14 + K) = IIf(Temp(K) = "0", 10, IIf(Temp(K) = "", 0, Temp(K)))
Next K
End If
End Sub

Ce qui gêne c'est ce qui a en gras, votre post 7 je cite:
"Il faut qu'au départ Temp soit défini comme un Array en écrivant Dim Temp()"

Merci de votre aide
 

job75

XLDnaute Barbatruc
Code:
Sub test()
'Extraire Musique
Dim Temp()
If I > 1 Then
Musiques = Musique(Cells(Lig + I, "M").Value)
Temp = Split(Musiques, " ")
If UBound(Temp) < 5 Then ReDim Preserve Temp(5)
For K = 0 To IIf(UBound(Temp) > 5, 6, UBound(Temp))
Cells(Lig + I, 14 + K) = IIf(Temp(K) = "0", 10, IIf(Temp(K) = "", 0, Temp(K)))
Next K
End If
End Sub
 

mysti54

XLDnaute Nouveau
Merci j'ai modifié

Mais quand je relance le fichier, j'ai Private Sub Workbook_Open() qui est surligné en jaune comme le problème du début.

Option Explicit

Private Sub Workbook_Open()
With F01
.Activate
.CBoxReunion.Visible = False
Application.Goto .Range("A1")
.Range("P6").Activate
End With
End Sub
 

mysti54

XLDnaute Nouveau
Bonjour à tous

J'ai fait une recherche manuelle de mise à jour et j'en ai eu pas mal concernant excel et tout est rentré dans l'ordre. Le problème venait de là.
Merci pour votre aide.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas