Message d'erreur impossible à désactier??? (VBA sur Word, Office 2003)Résolu

Question

En deux mots: j'ai une macro qui met en page des fichiers Word. Dans ces fichiers se trouve des tableaux Excel que je dois (entre autre) mettre en tableau Word. Problème il arrive parfois que j'ai des tableaux Excel avec liaison mais pas le fichier Excel lié! Lorsque j'applique mon code un message apparait ("C'ette objet est altérer ou n'est plus disponible") et il me faut alors cliquer sur "OK" or je développe un robot (il ne faut donc pas avoirs à faires quoi que ce soit pour que le code s'exécute). Si vous avez une solution (que se soit pour tester si c’est un objet Excel lié, empêcher ce message d’apparaître ou n’importe quoi d’autre) faite le mois savoir s’il vous plaît. J’en ai mare cas fait 3 semaine que j’ai cette erreur (a vrais dire j’ai plus ou moins léser tomber et je pris pour que qu’un réponde à ma question) Pour reproduire ce problème : -> Ouvrir Word et Excel -> Mettre des données dans le tableau Excel et le copier -> Faire un collage spécial sous Word pour coller le fichier avec liaison · Edition · Collage spécial · Coller avec liaison · Feuille de calcul Microsoft Office Excel Object -> Fermer Excel Si vous tenter d’ouvrir cette objet en code ou avec l’interface ce ù$¤£µ de message apparaît. P.S. : "On error resume next" et "Application.DisplayAlerts" ne sont pas sufisant! D'oh! Nuts! Mmmmm... DONUTS

Polack77 · Accepted Answer

YYYYYYYAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!
Ca marche!!!!!!!!!!!!!!!

D&#233;sol pour le temps de r&#233;ponce mon chef est venue me caser les ...
Bon donc j'ai un "truc" qui marche il y a plus propre mais bon.

Private Function ClaQueCasFaitMal(ByRef MaRange As Range, ByVal CptElementRecu As Integer) As Boolean
On Error GoTo ClaQueCasFaitMalErr
   'pas d'argument nomm&#233;, il n'y en a qu'un
    If Not ClaQueCasFaitMal2(MaRange, CptElementRecu) Then
        MaRange.InlineShapes(CptElementRecu).OLEFormat.ConvertTo ClassType:="Excel.Worksheet.8", DisplayAsIcon:=False
    End If
   MaRange.InlineShapes(CptElementRecu).OLEFormat.DoVerb wdOLEVerbHide
   'rapport de succ&#232;s
   ClaQueCasFaitMal = False
Exit Function
ClaQueCasFaitMalErr:
   'MsgBox Err.Number & vbCrLf & Err.Description
   Err.Clear
   'rapport d'&#233;chec
   ClaQueCasFaitMal = True
End Function

Private Function ClaQueCasFaitMal2(ByRef MaRange As Range, ByVal CptElementRecu As Integer) As Boolean
Dim Test As String
On Error GoTo ClaQueCasFaitMalErr2
    Test = MaRange.InlineShapes(CptElementRecu).OLEFormat.Label
    ClaQueCasFaitMal2 = False
    Exit Function
ClaQueCasFaitMalErr2:
    Err.Clear
    ClaQueCasFaitMal2 = True
End Function

Ques que tu en pense??

 D'oh! Nuts!
 Mmmmm...
 DONUTS

clementio · Answer

Je suis pas très doué en VBA (j'ai laissé tomber depuis longtemps) mais je pense que le plus simple serait de simuler un click pour fermer le message d'erreur.

Déjà il te faut utiliser les API. Déclare ça au début de ton code:

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)   
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long  


Ensuite à la suite de ton code qui fait apparaître le message, mets ça:

Dim lHwnd As Long

Sleep 1000
Doevents

lHwnd = FindWindow(vbNullString, "AAAA") 'AAA à remplacer par le titre de la fenêtre du message d'erreur

If lHwnd Then
   SendKeys "{ENTER}"
End If

Et c'est tout...

Dis-moi si ça marche, Clm.

NHenry · Answer

Bonjour

Peux-tu mettre ton code (ou la partie qui pose pb si c'est trop long), et &#233;ventuellement la ligne qui te g&#233;n&#232;re cette erreur.
Car vu la description, je ne peux pas en dire plus.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Polack77 · Answer

Heeeee, j'ai fini ma journ&#233;e &#224; demain. J'ai commancer &#224; regarder ta solution [../auteurdetail.aspx?ID=9289 clementio] je fini demain (je pense que &#231;a dois &#234;tre possible de faire comme tu dit).
Je met le code qui me posse probl&#232;me :

Function CopyDonn&#233;eExcel(ByVal RangeTravail As Range) As String
Dim CptLigne As Long 'Copteur ligne
Dim CptColone As Long 'Compteur Colone
Dim PremLigne As Long 'Sauvgarde de la position de la "NomVariable"
Dim PremColone As Long 'Sauvgarde de la position de la "NomVariable"
Dim DerLigne As Long 'Sauvgarde de la position de la "NomVariable"
Dim DerColone As Long 'Sauvgarde de la position de la "NomVariable"
Dim ColoneVide As Boolean 'Flag colone vide
Dim TemponPosition As String 'Saugarde de la postion de l'objet excel (pour remplacement)
Dim CptElement As Integer
Dim MyXl As Object ' Variable devant contenir la r&#233;f&#233;rence &#224; Microsoft Excel.
    Do While CptElement < RangeTravail.InlineShapes.Count
        CptLigne = 0
        CptColone = 0
        PremLigne = 0
        PremColone = 0
        DerLigne = 0
        DerColone = 0
        TemponPosition = ""
        CptElement = CptElement + 1
        On Error Resume Next 'Si une rerrur se produit continuer le code
        RangeTravail.InlineShapes(CptElement).OLEFormat.DoVerb VerbIndex:=wdOLEVerbHide 'ouvre excel avec la feille afficher C l&#224; que cas fait mal

        DoEvents 'Ouvre excel
        DoEvents 'Ouvre la feuille
        If Err.Number = 0 Then 'Si aucune erreur ne s'est produite lors de l'ouverture de l'&#233;l&#233;ment
            On Error GoTo 0
            Set MyXl = GetObject(, "Excel.Application") 'Recu de l'adrs d'excel
            'MyXl.Application.DisplayAlerts = False 'Excel ne remonte pas d'erreur

Se repos&#233; c important

Polack77 · Answer

Alors pour la solus de [../auteurdetail.aspx?ID= 9289 clementio], ca me marche pas. J'ai fait ca:

 [../auteurdetail.aspx?ID=9289 ]         On Error Resume Next 'Si une rerrur se produit continuer le code
****RangeTravail.InlineShapes(CptElement).OLEFormat.DoVerb VerbIndex: =wdOLEVerbHide 'ouvre excel avec la feille afficher
'--------------------------------
        Sleep 1000
        DoEvents
        
        lHwnd = FindWindow(vbNullString, "Microsoft Office Word") 'AAA &#224; remplacer par le titre de la fen&#234;tre du message d'erreur
        
        If lHwnd Then
           SendKeys "{ENTER}"
        End If
'---------------------------------------
        DoEvents 'Ouvre excel
        DoEvents 'Ouvre la feuill

Mon execution se stop &#224; la ligne "****" et attend que je click sur "OK" pour continuer son exection soit passer &#224; la ligne "sleep 1000" (ou alors il faut que je mette le sleep avant ma ligne ****, &#231;a ne me parit pas &#234;tre possible vue que le sleep stop simplement mon exection durant 1s???)



A votre avis passer un PC pare la fen&#234;tre du 3&#233;me est un
motif de licenciement?




 D'oh! Nuts!
 Mmmmm...
 DONUTS

NHenry · Answer

Bonjour

L'utilisation de OLe avec VBA excel, je ne manipule pas du tout.

Oui, cela peut-&#234;tre un motif de liscenciement.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Polack77 · Answer

Heeeeeeeeeee, ca marche toujours pas et je vais me faire licencier (piouf le PC) car &#231;a commence
&#224; MENERVER voire m&#234;me &#224; me les brouter menues mais alors menues (d&#233;sol c un peut
vulgaire comme expression mais c la plus appropri&#233; il me semble)


 D'oh! Nuts!
 Mmmmm...
 DONUTS

rvblog · Answer

Salut 727152 Polack77, salut =9289 clementio, salut 68514 NHenry, bon, =727152 Polack77, je vois que tu traines toujours ce calvaire derrière toi. Il va falloir sortir l'artillerie lourde (rassures-toi, juste en VBA d'abord). Sutout, ne passe pas ton PC par la fenêtre, mais plutôt le patron qui oserait te licencier pour ça :) Je vais te faire, ici, une réponse que tu n'aurais pas appréciée si je te l'avais faite dès ton 1er post, mais qui passera mieux maintenant. Dans ton problème se cache un autre problème : ton code est brouillon. Ben oui, il faut bien te le dire. Ca se soigne, mais dans ton cas, avec l'artillerie lourde. Et il faut savoir aussi que cela ne va pas forcément résoudre ton problème initial. Ben oui, ça aussi, il faut le dire. On commence : - D'abord, (il me semble que je t'en avais déjà parlé, dans un sujet avec Mortalino) nier une erreur ne la résoud pas (On Error Resume Next = nier une erreur). Je sais bien que tu ne cherches pas à la nier, mais tu la nies quand même. - Ne mélange pas le bout de code qui te pose problème avec le code qui marche. Ca veut dire, fais une fonction séparée pour la ligne qui pose problème. Exemple (pour reprendre tes mots) : Private Function ClaQueCasFaitMal(Byref MaRange As Excel.Range, _ Byval CptElementRecu As Integer) As Boolean On Error Goto ClaQueCasFaitMalErr 'pas d'argument nommé, il n'y en a qu'un MaRange .InlineShapes(CptElementRecu).OLEFormat.DoVerb wdOLEVerbHide 'rapport de succès ClaQueCasFaitMal=False Exit Function ClaQueCasFaitMalErr: MsgBox Err.Number & vbCrLf & Err.Description 'rapport d'échec ClaQueCasFaitMal =True End Function Ensuite, appelles la fonction, exemple : ... CptElement = CptElement + 1 'si ça ne fait pas mal alors If Not ClaQueCasFaitMal() Then 'fais ce que tu veux Set MyXl = GetObject(, "Excel.Application") 'Recu de l'adrs d'excel End If ... et dis-nous que cela donne (n° erreur et message, s'il y en a, et s'il n'y en a pas, ne t'inquiètes pas, dis-le, et on continue). Je te fais faire cela, parce que dans ton cas, ça servira toujours pour plus tard, et parce que, pendant ce temps, je peux investiguer de mon côté (et puisque c'est ce que je vais commencer par faire, si tu le fais, tu trouveras peut-être avant moi [comme d'habitude]) à+ rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

rvblog · Answer

bon, déjà, apparemment, erreur 16389, et pour l'instant, impossible d'empêcher l'affichage de la boite de message tant redoutée. mais on avance. à+ rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

Polack77 · Answer

Tout pareil.
En tout cas mille fois merci de t'int&#233;resser &#224; mon probl&#232;me
(je m'appr&#234;tait &#224; balancer l'&#233;cran lol)


 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Si non si on peut tester l'objet (avec ou sans liaison) alors on n'aurait pas &#224; g&#233;rer l'erreur d'ouverture et temps pi si un tableau excel avec liaison mais sans probl&#233;mes apparait.
Moi je n'ai pas trouver commant tester l'objet non plus, si tu sait?
P.S. : T'inqui&#233;te quant tu dit "ton code est brouillon" il en faut plus (bbbbiiiiieeeennnn plus pour me vexer). Seul sujet un peut tabou est de se moquer de mon orthographe (je suis dysorthographique et dislecsique alors pas facile de
s&#146;exprimer &#224; l&#146;&#233;crit)

 D'oh! Nuts!
 Mmmmm...
 DONUTS

rvblog · Answer

Chez Microsoft, ils ont répertorié plusieurs bugs de différents contextes qui amènent à la même erreur interne. Ils ont un correctif, mais ils précisent bien qu'il ne corrige que les bugs répertoriés. Or, le tien n'y est pas (je confirme, il existe pourtant bel et bien, mais il n'a visiblement pas été rapporté), donc je ne te conseille pas ce correctif. Néanmoins (on respire plus difficilement :) ), je te propose de tester quelque chose (ce n'est pas vraimment une solution, mais un moyen de différencier les 2 cas possibles de liaison du tableau). Si tu as fait la petite fonction dont je te parlais (ben oui, tu l'as fait, quelle question!), ajoute la ligne suivante, avant la ligne de la mort : MaRange.InlineShapes(CptElementRecu).OLEFormat.ConvertTo ClassType:="Excel.Worksheet.8" DisplayAsIcon:=False avec un tableau généré tel que tu l'as décrit, elle déclenche une erreur n°5360, que l'on peut "attrapper" sans que Word n'affiche de boite de message, alors qu'avec un tableau enregistré, elle passe bien. Reste à voir si tu accèdes toujours à ce que tu souhaites, une fois la conversion réussie. à toi de jouer. à+ rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

Polack77 · Answer

Heeeee, j'ai mit "MaRange.InlineShapes(CptElementRecu).OLEFormat.ConvertTo ClassType:="Excel.Worksheet.8" DisplayAsIcon:=False" avant la ligne qui fait mal mais du coup m&#234;me les tableau Excel sans liaison plante 
Erreur  :
N&#176; 5360
"Application serveur, fichier source, ou &#233;l&#233;ment introuvable. 
Assurez-vous que l'application est correctement install&#233;e, et qu'elle n'a pas &#233;t&#233; supprim&#233;e, d&#233;plac&#233;e ou renomm&#233;e."
C normal?????
Cette ligne converti le tableau excel en quois???

 D'oh! Nuts!
 Mmmmm...
 DONUTS

rvblog · Answer

bon, d'abord : elle les convertit en "Excel.Worksheet.8", doux nom interne d'une feuille de classeur Excel :) ensuite, l'erreur 5360, c'était prévu, mais sur mon poste, elle ne se déclenche pas avec un tableau résultant d'un collage avec liaison d'une feuille de calcul Excel enregistrée (ée, parce que c'est la feuille, que j'enregistre). D'où ma question : Que veux-tu dire par "les tableau Excel sans liaison"? à+ rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

Polack77 · Answer

Comme d'ab dans excel (soit des donn&#233;es puis copier) puis dans word
edition
colage sp&#233;sial
coller (et non pas coller avec liaison)
feuille de calcul ms office excel object

La tu &#224; un tableau excel sans liaison.

Mais en tout cas enor merci je commance &#224; voir le bout! Je n'y croyait 

plus.

 D'oh! Nuts!
 Mmmmm...
 DONUTS

rvblog · Answer

bon je teste, pendant ce temps, si tu as d'autres cas prévus que tu n'aurais pas cités, cites-les, STP. à+ rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

Polack77 · Answer

J'ai peut &#234;tre une solution (mais qui ne me parait pas tr&#233;s propre).
Deux fonction celle que tu m'a donn&#233;e et une qui fait &#231;a :
"MaRange.InlineShapes(CptElementRecu).OLEFormat.Label"
si l'objet n'est pas lier alors erreur N&#176; 6006 (permet donc de tester si l'objet excel est avec liaison ou non)

 D'oh! Nuts!
 Mmmmm...
 DONUTS

rvblog · Answer

il y a mieux, leur type est différent : MaRange.InlineShapes(CptElementRecu).Type vaut wdInLineShapeEmbeddedOLEObject si "sans liaison" MaRange.InlineShapes(CptElementRecu).Type vaut wdInLineShapeLinkedOLEObject si "avec liaison" donc il faut tester le type avant d'exécuter ma ligne. Si tu me dis qu'il y a : - Collage spécial avec liaison, classeur enregistré (ok, pas d'erreur) - Collage spécial sans liaison, classeur enregistré (erreur 5360, mais pas 16389) - Collage spécial avec liaison, classeur non enregistré (erreur 5360, ma "solution") - Collage spécial sans liaison, classeur non enregistré (erreur 5360, ma "solution") on peut résumer en disant : Si Linked Alors Si erreur 5360 Alors pas enregistré '(on couvre ce cas) Sinon enregistré ' (pas de problème) Fin Si SinonSi Embedded Si erreur 5360 Alors enregistré ou pas enregistré '(on ne sait pas encore distinguer ces 2 cas) Fin Si Fin Si à+ rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

rvblog · Answer

Qu'il ne faut jamais baisser les bras! ou qu'il y a toujours plus profond qu'le fond! enfin, je m'apprêtais à te dire que je ne trouvait pas de moyen direct, propre (en énumérant toutes les propriétés et sous-propriétés des 2 cas), de distinguer les 2 cas, et qu'il fallait chercher un indirect. Je suis rassuré, tu l'as trouvé. Gardons à l'esprit que ce n'est qu'un indirect, et qu'il ne résistera peut-être pas à de nouveaux cas, voire même à une nouvelle version d'Excel. Mais au moins, tu as réussi à isoler le problème dans une fonction, et ça, c'est du bénéfice, du vrai, à long terme. à+ rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

Polack77 · Answer

Dans tout les cas merci de ton aide je n'aurais pas trouver sans ton coup de pouce.
Meric encor

 D'oh! Nuts!
 Mmmmm...
 DONUTS

rvblog · Answer

je t'en prie, pas de ça entre nous! à+ rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

Message d'erreur impossible à désactier??? (VBA sur Word, Office 2003)

21 réponses

Discussions similaires