l’objet invoqué s'est déconnecté de ses clients

[rudy dehaudt]

Bonjour, voici le message d'erreur que j'ai depuis cette après midi sur mon application :

erreur d'exécution'-2147417848 (80010108)':

l’objet invoqué s'est déconnecté de ses clients

ci dessous la ligne qui pose problème

Sheets("bon de commande 1").Copy before:=Sheets(Sheets.Count) 'copie l'onglet "Modèle" en premier

pourriez vous m’en dire plus ?

 

[rudy dehaudt]

Re : l’objet invoqué s'est déconnecté de ses clients

la limite des onglets et peut être atteinte ? entre 320 et 350 onglets dans le fichier qui déconne ( c'est un fichier de "bon de commande alimentaire" )

 

[fhoest]

Re : l’objet invoqué s'est déconnecté de ses clients

Bonjour,
j'ai déjà rencontrer ce problème.
je pense que cela n'a rien a voir avec le nombre de feuille (j'ai bien dit je pense)
Prends ton fichier copy le sous un autre disque si tu es sur un réseau ,mets le ailleurs renomme ton fichier actuel en old test ta copie sur l'autre lecteur et si ça fonctionne remplace le sur le fichier origine.

Je pense que c'est un souci de protection du fichier.
C'est le seul moyen que j'ai trouvé au boulot sur mon fichier car je n'ai pas l'accès administrateur.

Pour moi ça à fonctionner.

A bientôt.

 

[rudy dehaudt]

Re : l’objet invoqué s'est déconnecté de ses clients

bonjour, fhoest :
merci de ta réponse , je test et je te dit quoi.

A+

 

[rudy dehaudt]

Re : l’objet invoqué s'est déconnecté de ses clients

re-fhoest,
je viens de suivre ta proposition mais sans le résultat escompter, je continu de lire sur le forum, mais sans grande conviction, je pense reprendre le fichier d'origine, supprimer les onglets,reprendre les chiffres et les N° debon de commande la ou j’en été est continué comme ça mais c'est quand même "space" comme erreur ? surtout que le fichier et quand même super pratique pour retrouver des infos sur les factures que je transmet en compta... mais bon ...

encore merci.

A+

 

[néné06]

Re : l’objet invoqué s'est déconnecté de ses clients

Bonsoir Rudy,Fhoest,

Le code qui plante est certainement dans une feuille et non dans un module .

Essayes de placer ce code dans un module et dis-nous ?
Souvent l'appel d'une autre feuille par une routine placée dans une feuille n'est pas toléré.


A+

René

 

[tototiti2008]

Re : l’objet invoqué s'est déconnecté de ses clients

Bonjour rudy, Bonjour fhoest, Bonjour néné,

Peut-être une piste par là ?

La copie d'une feuille de calcul par programmation provoque l'erreur d'exécution 1004 dans Excel

 

[rudy dehaudt]

Re : l’objet invoqué s'est déconnecté de ses clients

Bonjour tototiti2008, Bonjour fhoest, Bonjour néné,

je doit coller ce code dans un module et supprimer la page ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sh As Worksheet 'déclare la variable sh (SHeet)
Dim Lg As Long, cl As Byte ' Récupèrent les numéros de ligne et de colonne du double-clic

'si l'édition a lieu dans la 1ère cellule vide
Lg = Target.Row: cl = Target.Column
If cl = 1 And Target.Row = Range("A65536").End(xlUp).Row + 1 Then ' colonne A et 1ère cellule vide en colonne A



Cells(Lg, 1) = "bon de commande " & Val(Mid(Target.Offset(-1, 0), 17, 7)) + 1


Cells(Lg, 2) = Cells(Lg - 1, 2)
Cells(Lg, 2) = Replace(Cells(Lg - 1, 2), Right(Cells(Lg - 1, 2), 6), Format(Right(Cells(Lg - 1, 2), 1) + 1, ""))
Sheets("bon de commande 1").Copy before:=Sheets(Sheets.Count) 'copie l'onglet "Modèle" en premier
With ActiveSheet
.Name = Sheets("nvl commande").Range("A" & Lg) ' renomme l'onglet copié avec la valeur éditée
.Range("E1").Value = Sheets("nvl commande").Range("B" & Lg).Value ' recopie le n° de réclamation
.Range("G1") = Date ' Copie la date systeme
End With
Else ' sinon sort de la procédure
Cancel = True
End If
End Sub

 

[néné06]

Re : l’objet invoqué s'est déconnecté de ses clients

Re,

@ Tototiti2008,
Salutations

@Rudy,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Mon_programme_dans_un_module
endsud

Module1

Public sub Mon_programme_dans_un_module ()


Dim sh As Worksheet 'déclare la variable sh (SHeet)
Dim Lg As Long, cl As Byte ' Récupèrent les numéros de ligne et de colonne du double-clic

'si l'édition a lieu dans la 1ère cellule vide
Lg = Target.Row: cl = Target.Column
If cl = 1 And Target.Row = Range("A65536").End(xlUp).Row + 1 Then ' colonne A et 1ère cellule vide en colonne A
Cells(Lg, 1) = "bon de commande " & Val(Mid(Target.Offset(-1, 0), 17, 7)) + 1
Cells(Lg, 2) = Cells(Lg - 1, 2)
Cells(Lg, 2) = Replace(Cells(Lg - 1, 2), Right(Cells(Lg - 1, 2), 6), Format(Right(Cells(Lg - 1, 2), 1) + 1, ""))
Sheets("bon de commande 1").Copy before:=Sheets(Sheets.Count) 'copie l'onglet "Modèle" en premier
With ActiveSheet
.Name = Sheets("nvl commande").Range("A" & Lg) ' renomme l'onglet copié avec la valeur éditée
.Range("E1").Value = Sheets("nvl commande").Range("B" & Lg).Value ' recopie le n° de réclamation
.Range("G1") = Date ' Copie la date systeme
End With
Else ' sinon sort de la procédure
Cancel = True
End If
End Sub

Essayes sous cette forme et dis-nous

A+

René

 

[rudy dehaudt]

Re : l’objet invoqué s'est déconnecté de ses clients

voici le responsable, qui m'a très bien servie jusqu’à lors ( partie financière erroné )
http://cjoint.com/?3BitcMMcxc7

encore merci.

A+

 

[tototiti2008]

Re : l’objet invoqué s'est déconnecté de ses clients

Re,

Non, plutôt l'idée de néné à fouiller
peux-tu nous expliquer en quelques mots ce que ça fait ?
tu fais un double clic dans une cellule, et ça copie une autre feuille, c'est ça ?

 

[rudy dehaudt]

Re : l’objet invoqué s'est déconnecté de ses clients

oui en effet, ça copie la feuille "bon de commande 1" avec un double clic sur la feuille "nvl commande" ça renomme l'onglet en "bon de commande xxx"

A+

 

[rudy dehaudt]

Re : l’objet invoqué s'est déconnecté de ses clients

bonjour à vous,
j'ai bien essayer de placer le code de néné dans un module 7 mais ça n'a rien donné, puis j'ai placer le code ci-dessous sur un commandbutton10 dans mon USF , l'erreur Lg = Target.Row apparait ?
aurez vous une autre proposition à me faire ?

merci
A+

Private Sub CommandButton10_Click()
Dim sh As Worksheet 'déclare la variable sh (SHeet)
Dim Lg As Long, cl As Byte ' Récupèrent les numéros de ligne et de colonne du double-clic

'si l'édition a lieu dans la 1ère cellule vide
Lg = Target.Row: cl = Target.Column
If cl = 1 And Target.Row = Range("A65536").End(xlUp).Row + 1 Then ' colonne A et 1ère cellule vide en colonne A
Cells(Lg, 1) = "bon de commande " & Val(Mid(Target.Offset(-1, 0), 17, 7)) + 1
Cells(Lg, 2) = Cells(Lg - 1, 2)
Cells(Lg, 2) = Replace(Cells(Lg - 1, 2), Right(Cells(Lg - 1, 2), 6), Format(Right(Cells(Lg - 1, 2), 1) + 1, ""))
Sheets("bon de commande 1").Copy before:=Sheets(Sheets.Count) 'copie l'onglet "Modèle" en premier
With ActiveSheet
.Name = Sheets("nvl commande").Range("A" & Lg) ' renomme l'onglet copié avec la valeur éditée
.Range("E1").Value = Sheets("nvl commande").Range("B" & Lg).Value ' recopie le n° de réclamation
.Range("G1") = Date ' Copie la date systeme
End With
Else ' sinon sort de la procédure
Cancel = True
End If
End Sub

 

[néné06]

Re : l’objet invoqué s'est déconnecté de ses clients

Ré,
Effectues un pas a pas et contrôles la valeur de tes variables ( cl....etc).
Je suis sur mon téléphone et ne peux vérifier.

À+

Rene

 

[rudy dehaudt]

Re : l’objet invoqué s'est déconnecté de ses clients

re-à tous : je revient toujours avec le même message de l'éditeur VBA soit

Lg = Target.Row

?

finira bien par trouvé le pourquoi ?

bon je prend la route et je me re-connécte.

A+