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
 

Pièces jointes

  • Recup_Turfomania (2).xlsm
    179.2 KB · Affichages: 35

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
 

Discussions similaires

Réponses
3
Affichages
306
Réponses
5
Affichages
393
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 720
Messages
2 081 920
Membres
101 840
dernier inscrit
SamynoT