Outils activités VBA BUG

Bonjour,

alors que ce fichier ne posait aucun problème, depuis la semaine dernière il bug sur l'userform1 à cet endroit :

Option Explicit

Private Sub CommandButton1_Click()
' Créer/Modifier

  If Me.ComboBox1.ListIndex = -1 Then
    MsgBox "Veuillez choisir un nom dans la liste"
    Exit Sub
  End If

  If FeuilleExiste(Me.ComboBox1) = False Then
  Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Me.ComboBox1
  End If

  Set F1 = Sheets(Me.ComboBox1.Value)
  F1.Select

  UserForm2.TextBox1.Value = Me.ComboBox1
  Unload Me
  UserForm2.Show 0
End Sub

Private Sub CommandButton2_Click()
' Consulter

  If Me.ComboBox1.ListIndex = -1 Then
    MsgBox "Veuillez choisir un nom dans la liste"
    Exit Sub
  End If

  If FeuilleExiste(Me.ComboBox1) = False Then
    MsgBox "Vous n'avez pas encore créé de planning pour cette personne", vbInformation, "Attention !"
  Else
    Sheets(Me.ComboBox1.Value).Select
    Unload Me
  End If
End Sub

Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

je ne comprends pas !

merci d'avance

Francky

Bonjour,

Tu dois malheureusement faire partie de la très longue liste des utilisateurs de Microsoft ... qui, avec ses dernières mises à jour, a provoqué ... un sacré b..... dans le monde entier ...

Le sujet sur lequel tu peux à la fois comprendre te résoudre ...

https://forum.excel-pratique.com/post327267.html?hilit=microsoft#p327267

bonjour,

fait-il que je désinstalle KB3004394, tel qu'il est décrit dans le lien que tu m'as mis ?

et le souci, c'est que ce fichier est sur le serveur, cela voudrait dire que je désinstalle cette mise à jour à tout le monde ?

ont-ils envisager une correction ?

merci d'avance pour les réponses...

Francky

Bonjour,

Microsoft bosse sur la solution .... sans indication de délai ... mais entretemps ... de ton côté, tu peux supprimer sur ton disque C: tous les fichiers qui ont une extension *.exd

Ces fichiers seront recréés à la prochaine utilisation des tes macros ...

bonjour James,

Windows n'a pas trouvé de fichier avec l'extension ".exd"

du coup je me pose la question qu'il y a peut être bien un souci sur le code, mais pourquoi maintenant ?

sinon, je vais attendre les prochaines mises à jour de Microsoft.

cordialement,

Francky

Bonjour,

ta feuille Modèle est bizarre, on ne peut même pas l'activer.

Supprime-la et recrée-la.

eric

bonjour Eric,

en effet, y'a bien un souci, mais j'ai essayé tous mes fichiers de création et alors qu'ils marchaient bien ce n'est plus le cas.

je crois que cela vient du fait que dans la feuille "Modèle" qui va devenir le planning d'une personne, il y a dans la Cellule D2 la formule suivante :

=STXT(CELLULE("nomfichier";$A$1);TROUVE("]";CELLULE("nomfichier";$A$1))+1;50)

qui permet d'avoir le nom de l'onglet et que cela ne fonctionne plus, peut être dû à la nouvelle version ou mise à jour...

y'a t-il une solution ?

cordialement,

Francky

Ce n'est pas une formule qui empêche la sélection d'une feuille.

Maintenant si tu ne veux pas essayer en la supprimant et en la recréant je n'ai pas d'autre idée.

eric

non, cela ne me dérange pas, mais j'avais déjà fait l'essai en l'appelant autrement et en nomant une feuille vierge avec le nom "Modèle" et ça bug quand même, c'est plus que bizarre...

Francky

Bonjour,

Pour pouvoir supprimer sur ton disque C: tous les fichiers qui ont une extension *.exd tu dois t'assurer que tous les fichiers soient accessibles ainsi que tous les répertoires et sous-répertoires ...

bonjour,

James : j'ai beau faire des recherche, mais pas de fichier avec l'extension .exd donc si je reprends ton propos, il me faut être patient et attendre la prochaine MAJ de Microsoft ?

Eric : j'ai enlevé tous les planning créé, j'ai supprimé la faueille "Modèle" et je l'ai recréé et j'ai toujours le bug !

bug activite

et quand je clique sur débug :

Option Explicit

Private Sub CommandButton1_Click()
' Créer/Modifier

  If Me.ComboBox1.ListIndex = -1 Then
    MsgBox "Veuillez choisir un nom dans la liste"
    Exit Sub
  End If

  If FeuilleExiste(Me.ComboBox1) = False Then
    Sheets("Modèle").Copy After:=Sheets(Sheets.Count)    
    ActiveSheet.Name = Me.ComboBox1
  End If

  Set F1 = Sheets(Me.ComboBox1.Value)
  F1.Select

  UserForm2.TextBox1.Value = Me.ComboBox1
  Unload Me
  UserForm2.Show 0
End Sub

bonnes fêtes de fin d'année,

Francky

Bonjour,

En fait, quand tu utilises Windows Explorer pour faire ta recherche de fichiers, il existe des filtres ... qu'il faut d'abord tous supprimer ... pour que tes fichiers *.exd deviennent visibles ...

Bonjour,

pour supprimer les exd, dans une fenêtre cmd :

Del c:\*.EXD /s

Relancer excel

eric

Merci Eric,

James avait bien raison, mon fichier fonctionne. Par contre, ta méthode est la bonne pour la recherche, j'avais beau enlever les filtres et sélectionner les fichiers cachés, il ne trouvait rien.

Donc encore merci à tous les deux.

Faut-il que je le fasse aussi sur les autres ordi au boulot, qui ouvre ce fichier ? j'imagine que oui.

bonne soirée,

Francky

Content que tu aies trouvé la solution à ton problème ...

en effet, content, car ce fichier est important. Bon, il me reste juste à faire la manip sur au moins une dizaine d'ordinateur...

sinon, savez-vous si Microsoft envisage de régler le problème ?

bon réveillon

Francky

Bonjour,

Effectivement, Microsoft a annoncé travailler sur la solution ...mais sans indiquer de délai ...

Très Bonnes Fêtes à toi aussi ...

Rechercher des sujets similaires à "outils activites vba bug"