Bonjour le forum ,
j'ai une nouvelle fois besoin de votre aide pour un fichier qui a été réalisé avec excel 2003-2007 , celui-ci ne veut plus s'ouvrir avec la version excel 2010.
je vous remercie d'avance pour votre aide pour percer le mystere ( le fichier est trop pour le mettre en piece jointe)
J'ai le message ci dessous:
Erreur de compilation dans le module caché -Userform 7 . j'ai le code ci-dessous pour l'userform 7 qui fonctionnerait trés bien avec l'ancienne version
Private Sub ComboBox1_Change()
Sheets("BASE").Range("h1").Value = ComboBox1
Unload Me
UserForm2.Show
End Sub
Private Sub CommandButton1_Click()
UserForm11.Show
End Sub
Private Sub Image4_Click()
Application.Quit
End Sub
Private Sub UserForm_Initialize()
LeTexte = "Compte d'exploitation des filières Métiers....Compte d'exploitation des filières Métiers...."
LaCouleur = "#CC0000"
ParametresHtml
Tempo
ComboBox1.Clear
lgDerLig = Worksheets("cumul").Range("z" & Cells.Rows.Count).End(xlUp).Row
If lgDerLig > 1 Then
ComboBox1.RowSource = "cumul!z1:z" & lgDerLig
End If
End Sub
Private Sub UserForm_Activate()
With UserForm7 'userform 7 plein ecran
.startUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'desactiver croix de l'userform2
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Private Sub UserForm_Layout() 'fige l'userform donc déplacement à la souris impossible
Me.Top = 0 '100
Me.Left = 0 '100
End Sub
Bonne journée
Merci d'avance pour votre aide
DAVIDP
j'ai une nouvelle fois besoin de votre aide pour un fichier qui a été réalisé avec excel 2003-2007 , celui-ci ne veut plus s'ouvrir avec la version excel 2010.
je vous remercie d'avance pour votre aide pour percer le mystere ( le fichier est trop pour le mettre en piece jointe)
J'ai le message ci dessous:
Erreur de compilation dans le module caché -Userform 7 . j'ai le code ci-dessous pour l'userform 7 qui fonctionnerait trés bien avec l'ancienne version
Private Sub ComboBox1_Change()
Sheets("BASE").Range("h1").Value = ComboBox1
Unload Me
UserForm2.Show
End Sub
Private Sub CommandButton1_Click()
UserForm11.Show
End Sub
Private Sub Image4_Click()
Application.Quit
End Sub
Private Sub UserForm_Initialize()
LeTexte = "Compte d'exploitation des filières Métiers....Compte d'exploitation des filières Métiers...."
LaCouleur = "#CC0000"
ParametresHtml
Tempo
ComboBox1.Clear
lgDerLig = Worksheets("cumul").Range("z" & Cells.Rows.Count).End(xlUp).Row
If lgDerLig > 1 Then
ComboBox1.RowSource = "cumul!z1:z" & lgDerLig
End If
End Sub
Private Sub UserForm_Activate()
With UserForm7 'userform 7 plein ecran
.startUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'desactiver croix de l'userform2
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Private Sub UserForm_Layout() 'fige l'userform donc déplacement à la souris impossible
Me.Top = 0 '100
Me.Left = 0 '100
End Sub
Bonne journée
Merci d'avance pour votre aide
DAVIDP