XL 2016 Erreur d’exécution'-2147352571(80020005)':

[moulou]

Bonjour,
A chaque fois que j'utilise mon application dans d'autres PC,Microsoft Visual Basic me retourne l'erreur suivante me semble étrange .
"Impossible de définir la propriété value . Le type ne correspond pas."
Ça marche bien dans mon pc par contre impossible de l'utiliser ailleurs .
Quelqu'un pourrait-il me débloquer çà serait super.
Merci.

 

[Staple1600]

Bonsoir le fil, moulou

Il faudrait qu'on puisse la procédure (la macro) qui génère cette erreur.
Poste le code VBA dans ta discussion.

 

[moulou]

Bonjour,
Voici tout lever le fichier, maintenant il refuse de s'ouvrir sur mon poste .
Il y'a surement du code qui ne va pas.mot de passe (marsupial).
si vous pouvez tester et localiser l'erreur ça serait génial.
Merci et à tout à l'heure.

 

[moulou]

Je crois que la procédure mise en doute :
'AFFICHAGE VENDREDI
TextBox1 = [feuil3!l4]
TextBox2 = [feuil3!l5]
TextBox3 = [feuil3!l6]
TextBox4 = [feuil3!l7]
TextBox5 = [feuil3!l8]
'AFFICHAGE SAMEDI
TextBox6 = [feuil3!k4]
TextBox7 = [feuil3!k5]
TextBox8 = [feuil3!k6]
TextBox17 = [feuil3!k7]
TextBox18 = [feuil3!k8]
If [feuil3!w6] = "Janvier" Then
UserForm3.CheckBox29.Caption = "1er Janvier"
UserForm3.CheckBox30.Caption = "Yannayer"
UserForm3.CheckBox30.Visible = True
UserForm3.CheckBox29.Visible = True
Else
If [feuil3!w6] = "Mai" Then
UserForm3.CheckBox29.Caption = "1er Mai"
UserForm3.CheckBox29.Visible = True
Else
If [feuil3!w6] = "Juillet" Then
UserForm3.CheckBox29.Caption = "5 Juillet"
UserForm3.CheckBox29.Visible = True
Else
If [feuil3!w6] = "Novembre" Then
UserForm3.CheckBox29.Caption = "1er Novembre"
UserForm3.CheckBox29.Visible = True
End If
End If
End If
End If
Ou cette procédure:

Worksheets("feuil3").Unprotect Password:="marsupial"
Dim c As Range
Dim f As String
f = "=" & nbJours & " + N(""Année " & Year(Date) + 1 & """)"
With Worksheets("Feuil3")
If Month(Date) = 4 Then 'l'ajout se fait en novembre pour l'année suivante
If .Range("ag57").Formula <> f Then
.Range("ag57").Formula = f

For Each c In .Range("ag58").Cells
c.Value = Val(c.Value) + nbJours
Next c

End If
End If
End With
ThisWorkbook.Application.Visible = False
Load UserForm1
UserForm1.Show 0
Worksheets("feuil3").Select
Columns("A:Ah").Select
Selection.EntireColumn.Hidden = True
Worksheets("feuil1").Protect Password:="marsupial"
Worksheets("feuil3").Protect Password:="marsupial"

 

[moulou]

Bonjour ,
A chaque fois que j'utilise mon application dans d'autres PC,Microsoft Visual Basic me retourne l'erreur citée en titre. Ou excel bloque ( Ne répond pas).
Je joint tout le fichier ,espérant une aide de votre part .
Merci.