Problème à l'ouverture de fichier

[mysti54]

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

 

[Staple1600]

Bonsoir le fil, le forum

@mysti54
Private sub Workbrook Open( ).
La bonne syntaxe est
Private sub Workbook Open( )

 

[mysti54]

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

 

[Staple1600]

RE

Tu as bien l'underscore aussi dans ton code?
Private Sub Workbook_Open()

 

[mysti54]

oui

 

[mysti54]

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]

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]

Bonjour
Il faut que je supprime ReDim Preserve et que je remplace par Dim temp()

 

[job75]

Re,

Il faut que je supprime ReDim Preserve et que je remplace par Dim temp()

Je ne pense pas car Temp est rempli par le Split mais à vous de voir...

A+

 

[mysti54]

Donc il faut que je fasse quoi ?

 

[mysti54]

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.

 

[job75]

Re,

Donc il faut que je fasse quoi ?

Faire ce que j'ai dit au post #7.

Je suis sur Excel 2013 et votre macro ne marche pas sans ce complément.

A+

 

[mysti54]

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]

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]

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