Problème à l'ouverture de fichier

Staple1600

XLDnaute Barbatruc

• 18 Décembre 2017

• #2

Bonsoir le fil, le forum

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

 

Vote positif 0 Vote négatif

M

mysti54

XLDnaute Nouveau

• 18 Décembre 2017

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Décembre 2017

• #4

RE

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

 

Vote positif 0 Vote négatif

M

mysti54

XLDnaute Nouveau

• 19 Décembre 2017

• #5

oui

 

Vote positif 0 Vote négatif

M

mysti54

XLDnaute Nouveau

• 19 Décembre 2017

• #6

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Décembre 2017

• #7

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+

 

Vote positif 0 Vote négatif

M

mysti54

XLDnaute Nouveau

• 19 Décembre 2017

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Décembre 2017

• #9

Re,

mysti54 à dit:

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

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

M

mysti54

XLDnaute Nouveau

• 19 Décembre 2017

• #10

Donc il faut que je fasse quoi ?

 

Vote positif 0 Vote négatif

M

mysti54

XLDnaute Nouveau

• 19 Décembre 2017

• #11

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Décembre 2017

• #12

Re,

mysti54 à dit:

Donc il faut que je fasse quoi ?

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

M

mysti54

XLDnaute Nouveau

• 19 Décembre 2017

• #13

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Décembre 2017

• #14

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

 

Vote positif 0 Vote négatif

M

mysti54

XLDnaute Nouveau

• 19 Décembre 2017

• #15

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

 

Vote positif 0 Vote négatif