Problème compatibilite excel 32/64 bits

**vincedu74** · 20/09/2017, 14h53

Bonjour,

Mon code qui était fonctionnel il y a quelques mois ne l'est plus aujourd'hui, en raison d'une incompatibilité de version.

Le programme plante à la ligne 17.

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
Private Sub Newprojectbutton_Click()
 
Dim z As Variant
Dim y As String
 
 LastS = Range("c" & Rows.Count).End(xlUp).Row + 1
 
 Range("C" & LastS) = Nameofproject
Active = ActiveSheet.Name
Sheets(Active).Select
With Worksheets(Active)
colour = Int(56 * Rnd)
' Création de l'onglet pour le nouveau projet
For s = 2 To Sheets.Count      ' on masque les feuilles
Sheets(s).Visible = truee
Next s
    Sheets("Draft").Copy After:=Sheets(4)
    Sheets("Draft (2)").Select
 
'Puis fermer le formulaire'
 
    Unload Me

Est ce que quelqu'un pourrait m'orienter SVP ?

**Marc-L** · 20/09/2017, 14h57

Bonjour,

le plantage en ligne 17 n'a aucun rapport avec le titre de cette discussion ‼

Et comme nous ne sommes pas devin quant à la nature du message d'erreur (cf règles du forum) …

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**vincedu74** · 20/09/2017, 15h02

BOnjour Marc-L,

Je n'ai eu le message d'erreur qu'une fois.

La il ne s'affiche plus, mon programme plante au bout d'une dizaine de minutes de bug.

je vais essayer de faire réapparaître le message d'erreur.

Invité · 20/09/2017, 15h07

Bonjour,

https://www.developpez.net/forums/d1...a/#post9598909

**Marc-L** · 20/09/2017, 15h09

Salut Robert et bien vu !

Ma migraine depuis hier doit un peu m'empêcher de tilter, m'étant focalisé sur le titre de cette discussion …

**joe.levrai** · 20/09/2017, 15h14

Bonjour,

au passage, corriger la faute de frappe sur la ligne 15, en notant bien que le commentaire de la ligne 14 est l'exact opposé de ce que tu fais (ou plutôt à tenté de faire)

il est également conseillé de ne pas travailler sur les object actifs
et quand on duplique une feuille, la feuille clonée est de facto la feuille active, il n'y a pas besoin de la sélectionner

voici à main levée une suggestion à adapter bien entendu, j'ai été obligé de laisser un ActiveSheet car je ne connais pas la feuille

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
Private Sub Newprojectbutton_Click()
 
Dim z As Variant
Dim y As String
 
 
With ActiveSheet
    .Cells(.Rows.Count, 3).End(xlUp)(2).Value = Nameofproject
End With
 
colour = Int(56 * Rnd)
 
' Création de l'onglet pour le nouveau projet
For s = 2 To Worksheets.Count      ' on masque les feuilles
    Worksheets(s).Visible = True   ' ou False si on veut réellement les masquer !
Next s
 
Worksheets("Draft").Copy After:=Worksheets(4)
 
'Puis fermer le formulaire'
Unload Me

**vincedu74** · 20/09/2017, 15h30

Merci Joe.levrai

Je teste et te tiens au courant

**vincedu74** · 20/09/2017, 15h38

J'ai tout codé selon ce que tu m'as indiqué Joe.levrai.

J'ai executé le programme ligne à ligne, à la ligne 17 la page excel bug et indique "Excel ne répond pas"....

**joe.levrai** · 20/09/2017, 15h50

la ligne 17 de ma proposition est vide

et tu n'avais montré qu'une partie de ta procédure, peux-tu nous la montrer maintenant dans son intégralité, et nous indiquer ce qu'est la variable Nameofproject et où elle est instanciée

**vincedu74** · 20/09/2017, 15h58

oui je fais ca de suite

J'ai réussi à capturer le message d'erreur avant qu'il s'efface

Erreur d'execution '-2147417848 (80010108)':
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.

A moins que ce message n'apparaisse que parce que je force la fermeture de la fenêtre de programmation...

**vincedu74** · 20/09/2017, 16h00

Envoyé par joe.levrai

la ligne 17 de ma proposition est vide

Je voulais dire 18 ! deésolé ....

**vincedu74** · 20/09/2017, 16h01

Ci après le code complet

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
47
48
49
50
51
'Procédure permettant de d'incrémenter les projet et le code du projet sur la "homepage"
Private Sub Newprojectbutton_Click()
 
Dim z As Variant
Dim y As String
 
 
With ActiveSheet
    .Cells(.Rows.Count, 3).End(xlUp)(2).Value = Nameofproject
End With
 
 
 LastS = Range("c" & Rows.Count).End(xlUp).Row + 1
 
colour = Int(56 * Rnd)
' Création de l'onglet pour le nouveau projet
For s = 2 To Sheets.Count      ' on masque les feuilles
Sheets(s).Visible = True
Next s
    'Sheets("Draft").Copy After:=Sheets(4)
    'Sheets("Draft (2)").Select
 
 
 
Worksheets("Draft").Copy After:=Worksheets(4)
 
'Puis fermer le formulaire'
Unload Me
 
Application.DisplayAlerts = False
On Error GoTo errorHandler
 
    Sheets("Draft (2)").Name = Nameofproject
    y = Nameofproject
    [D2] = Nameofproject
    [F2] = ProjectCode
    [F3] = ComboBox1.Value
    [F5] = ComboBox2.Value
    [F7] = ComboBox3.Value
    [F9] = ComboBox4.Value
    [F10] = ComboBox5.Value
 
 
   Exit Sub
errorHandler:  ActiveSheet.Delete
MsgBox ("Name of project already used OR Wrong Name Of Project")
 
On Error Resume Next
Sheets(y).Visible = True
Sheets(y).Activate
End Sub

Nameofproject est le nom d'une textbox

Invité · 20/09/2017, 16h07

tu as suivis mon conseils?

Code de plus :

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

1
2
Set NewWs = ThisWorkbook.Sheets.Add
Sheets("Draft").Copy NewWs

**vincedu74** · 20/09/2017, 16h09

Envoyé par dysorthographie

tu as suivis mon conseils?

Code de plus :

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

1
2
set NewWs= Sheets("Draft").Copy After:=Sheets(4)
NewWs.Select

On m'indique le message d'erreur suivant quand je programme
Attendu : Fin d'instruction

Invité · 20/09/2017, 16h16

mais concernant les référence?

Code :

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

1
2
3
4
Sub test()Set NewWs = ThisWorkbook.Sheets.Add
Sheets("Draft").Cells.Copy NewWs.Range("A1")
NewWs.Select
End Sub

**vincedu74** · 21/09/2017, 09h05

Merci pour ton aide mais, si je copie les cellules je ne copie ni les formules ni les differentes formules vba de la feuille.

**vincedu74** · 21/09/2017, 10h29

Le problème venait du fait qu'une partie de la feuille était masqué...

Quelqu'un pourrait il m'indiquer pourquoi cela ne fonctionne pas quand une partie de la feuille est masquée ?

Merci beaucoup à vous pour votre aide !

**Marc-L** · 21/09/2017, 10h36

Certaines fonctionnalités d'Excel tenant compte uniquement du visible …

Problème compatibilite excel 32/64 bits

Macros et VBA Excel

Discussions similaires

Partager

Partager