Discussion :

[Robert Camion]

Bonjour le forum,

Je rencontre depuis 1 semaine, 10 jours le bug suivant:

j'ai une macro qui me permet de copier et renommer un onglet dans un fichier excel.
Pour ce faire j'ai un bouton [Nouveau Jour] qui déclenche la macro.
Selon ma macro NewDay dans le Module "NouveauJour".
L'onglet est copié et renommé avec la date du jour suivant.
Le nom de l'onglet est renommé par le bout de code sur l'onglet lui-même.

Voici comment se présente l'onglet au départ:


Quand je clique sur le bouton [Nouveau Jour], j'ai bien ma copie de l'onglet avec modification de la date et du nom de l'onglet conformément à ma macro, par contre, et c'est l'objet du post, le bouton disparait...





Points clés:
l

• e bug de non recopie du bouton n'apparait pas sur Excel 2010 (validé avec plusieurs personnes)
• le but n'appraissait pas chez mois, sur mon Excel 2013 jusqu'à il y a moins de 10 jours.
• je suis sur Windows 10

questions:
d'autre personnes ont-elles rencontré ce soucis ?
y'a t il eu une MAJ Windows ou Excel recemment susceptible d'expliquer ce bug ?


Je vous remercie d'avance pour vos retours et vous joins le fichier :
Pblm boutons 260216.xlsm

RC

[Robert Camion]

Bonjour le forum,

A priori, personne n'a rencontré le même souci ?

merci d'avance

RC

[Menhir]

Fais une copie de ton code dans un message.

[Robert Camion]

Fais une copie de ton code dans un message.

Bonjour Menhir,

merci de ton retour, je te mets donc le code que j'utilise:

pour créer le nouvel onglet avec d'un nouveau jour
le code se trouve dans le module "NouveauJour"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub NewDay()
 
  Application.ScreenUpdating = False
  Application.Calculation = xlManual
 
  n = ThisWorkbook.Sheets.Count
 
  LaDate = CDate(ActiveSheet.Range("B1"))
 
  Select Case Format(LaDate, "dddd")
    Case "vendredi"
      JourSuiv = (LaDate + 3)
    Case "samedi"
      JourSuiv = (LaDate + 2)
    Case Else
      JourSuiv = (LaDate + 1)
  End Select
 
  'ajouter une nouvelle semaine en premier
  ActiveSheet.Copy After:=Sheets(n - 1)
 
  ActiveSheet.Range("B1") = JourSuiv
  'le nom de la feuille est modifié sur la feuille elle mm
  ' cf Private Sub Worksheet_Change(ByVal Target As Range)
 
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
 
End Sub

Pour modifier le nom de l'onglet, une fois l'ajout du nouvel onglet réalisé
Le code se trouve directement sur l'onglet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Public Flag
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 Application.EnableEvents = True
 
End Sub
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
  ' Flag pour parrer les boucle infinies...
  If Flag Then Exit Sub
  Flag = True
 
  ' vérif si date saisie correcte
  Set SaisieDate = ActiveSheet.Range("B1")
  If (SaisieDate) <> "" And Not IsDate(SaisieDate) Then
    MsgBox "Erreur format date", vbInformation, "Entreprise"
    SaisieDate.Select
    Flag = False
    Exit Sub
  End If
  For n = 1 To n = ThisWorkbook.Sheets.Count
    If Sheets(n).Name = Format(SaisieDate, "ddmmyy") Then
      MsgBox "La date choisie existe déjà.", vbInformation, "Entreprise"
      SaisieDate.Select
      Flag = False
      Exit Sub
    End If
  Next n
 ' modif nom feuille
  If Not Intersect(Target, SaisieDate) Is Nothing And SaisieDate <> "" Then
    ActiveSheet.Name = Format(Range("B1"), "ddmmyy")
  End If
 
  Flag = False
 
End Sub
 
 
Sub annul_Flag()
  Flag = False
End Sub

RC

[Robert Camion]

Bonjour Menhir, bonjour le forum,

Menhir, j'ai mis mon code comme demandé, mais je n'ai pas vu si tu as donné suite...
Pour les autres, je réactive ma demande qui est que lors d'une copie d'onglet dans Excel 2013, je perds les boutons d'activation des macros qui étaient sur l'onglet de départ. Or, ce problème n'apparait pas sous Excel 2010....
(cf fichier en historique avec copie d'écrans explicatives)

Voilà, merci pour vos retours, on va bien finir par trouver et bonne journée


RC

[Menhir]

Menhir, j'ai mis mon code comme demandé, mais je n'ai pas vu si tu as donné suite...

N'ayant pas la solution à ton problème, je n'avais aucune raison de mettre un nouveau message. Désolé.

[casefayere]

Bonjour,

je veux simplement dire que le fichier ne rencontre pas de problème chez moi sur 2 versions 2007 (pc bureau) et 2016 (pc port)

[Robert Camion]

Bonjour,

je veux simplement dire que le fichier ne rencontre pas de problème chez moi sur 2 versions 2007 (pc bureau) et 2016 (pc port)

Bonjour Dom
merci pour cette réponse...
ca voudrait dire qu'avec Excel 2007 OK, 2010 Ok, et 2016 OK, et que ca bugerait avec 2013 ... ou seulement chez mon excel 2013

A suivre

merci

RC

[casefayere]

ca voudrait dire qu'avec Excel 2007 OK, 2010 Ok, et 2016 OK, et que ca bugerait avec 2013 ... ou seulement chez mon excel 2013

en l'etat, je ne peux te répondre, tu imagines bien que je ne vais pas investir dans excel 2013

[Robert Camion]

en l'etat, je ne peux te répondre, tu imagines bien que je ne vais pas investir dans excel 2013

J'imagine bien ...
heureusement qu'il devrait y avoir d'autres personnes bien aimables sur le forum avec une version d'Excel 2013, et qui pourraient éventuellement, si elles voulaient bien accorder 30s et prendre le risque d'ouvrir ce petit fichier que j'ai pris soin de préparer sans données confidentielles conformément à la recommandation de Claude Fauconnier, relayée par Menhir et que l'intrépide Dom a pu ouvrir visiblement sans souci ... ouf je reprends ma respiration

à bon entendeur, merci !

RC

[casefayere]

et que l'intrépide Dom a pu ouvrir visiblement sans souci ...

Merci mais il m'est déjà arrivé d'avoir des problèmes en ouvrant certains fichiers, voir de vrais bugs dans excel

courage et patience !!!!

[Robert Camion]

courage et patience !!!!

Merci Dom!
j'espère que j'ai pas été trop taquin dans mes propos..
j'ai trouvé qqun qui a Excel 2013 et qui ne rencontre pas le souci,
cqfd, j'ai pété mon Excel, je tenterai une reinstall afin de résoudre j'espère le souci
et je fermerai le poste avec le résultat

a+
RC

[Robert Camion]

Bonjour le forum,

juste pour vous dire que j'ai trouvé la solution à mon souci de copie d'onglet qui ne gardait pas mes boutons de marco, en m'adressant directement à la source, chez Bill

et voici la solution:

Fichier, Options, Options avancées, rubrique "Couper, Copier et Coller" : coche la case "Couper, copier et trier les objets avec les cellules".

courtoisie DanielCO
http://answers.microsoft.com/fr-fr/p...le-tab-profile


Merci aussi à Menhir et Casefyere pour leur aide,

Ca pourra peut-être servir à quelqu'un un jour,

RC