Tout petit bug (petit mais chien quant même)

Question

Bonjours &#224; tous,

   C vendredi (trop bien  bient&#244;t le WeekEnd)

   Heeeee pardont je m'eloigne du sujet ...

   Alors voila, j'ai un code qui extrait les donn&#233;es des "objet feuille de calcul" dans un fichier excel. Ca fonctione mais le code :
ActiveDocument.InlineShapes.Count
me retourne le nombre de ces objets mais aussi les images ce qui fait que quant je cherche &#224; ouvrir ces objets et c'est une image une erreur apparait. Je me suis donc dit que j'allais gerrer cette erreur et dire a word ne ne pas m'afficher ce #!&#167;&#181;&#163;$&#164; de message d'erreur.
j'ain tenter ces deux code pour faire en sorte qu'il n'affiche pas cette #!&#167;&#181;&#163;$&#164; d'erreur (et elle saffiche quand m&#234;me )
On Error Resume Next 
Application.DisplayAlerts = wdAlertsNone

Et rien n'y fait. Bon il y a juste &#224; clicker sur OK de la fenaitre d'erreur mais ca me fait chier quand m&#234;me.

Merci d'avance

Peut &#234;tre qu'un autre code pour trouver mes objet serait bon 

Ou un code qui fait la differance entre une image et une feuillle de calcul excel.

 Faut pas s'enerver

NHenry · Answer

Bonjour

Tu utilise On Error goto ?

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

Je vient de re-faire des test et ca ne marche pas mieu. Le system m'affiche toujour :"Cet objet est alt&#233;r&#233; ou n'est plus disponible"

   Le gros probl&#233;me est qu'il ne me g&#233;n&#233;re pas d'erreur pour toute les images (je fait des tests pour trouver pourcois certaine image me renvoie un message d'erreur et pas d'autre!)

Je ne conprend pas ce que tu entand (NHenry) par : "Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)"
   

 Faut pas s'enerver

NHenry · Answer

Bonjour

En commen&#231;ant par la fin : C'est ma citation, ceci signifie que lorsqu'on connait trop bien un langage, il est difficile d'en changer.

Dans ta fonction/sub : 
On error goto Err_Ftc
'TonCode

exit sub/function

Err_Fct:
MsgBox(err.description,"Erreur #"+Err.Number)
end sub/function

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)

mortalino · Answer

Salut Pollack, essaie une boucle :

Dim Obj As OLEObject, Ligne As Integer
Ligne = 1
For Each Obj In Worksheets("nom de la feuille").OLEObjects

    If TypeOf Obj.Object Is MSForms.TextBox Then  ' remplace TextBox par le controle que tu utilises

        Obj.Object.Value = Sheets("nom de la feuille").Cells(1, Ligne).Text

    End If
Ligne = Ligne + 1
Next Obj

Et si t'as d'autres controles autre que tes TextBox, refait une seconde boucle avec le nom du controle
( If TypeOf Obj.Object Is MSForms.nom de la form )

@ la prochaine ! Et bon Week End, t'as l'air de l'attendre avec impatience !

  Mortalino

Polack77 · Answer

Ok je comprend ce que tu veut dire NHenry.

Le probl&#233;me c'est que les fichiers que je traite est fait par d'autre (des gents plus ou moin douer). Et je trouve des %&#163;&#168;&#164;&#167;! d'objet feuille de calcul lier (alor que je n'ai pas le fichier excel), des image de tableau et des "Objet" (voir plus loin pour objet). Ce n'est pas vraiment la fin du monde (dans ce cas je ne traite pas les donn&#233;e) mais lorsque j'essais d'ouvrir ce genre d'objet un message d'erreur apparait et CA ARRETE MON EXECUTION un simple click sur Ok et ca repart mais cela signifie que qu'un dois surveiller l'execution (et ca &#231;a me fait vraiment chier).

   Je ne pense pas que la solution sois dans la gestion d'erreur mais dans la d&#233;tection du type d'objet (encor que???), or je dois ouvrir les feuilles de calcul excel sans liaison! (soit type 1)
(a vrais dire j'avias lesser tomber pour detecter le type)
   Le probl&#233;me est que je trouve des "Objets" qui me renvoie la valeur 1 quand je test le type alors que ce ne sont pas des feuille de calcul Excel (des images de tableau excel) et je n'ais toujour pas compris commant ces salter on &#233;t&#233; cr&#233;es! J'appel ces salter des "objets" puisque quand je fait un click droit dessus (dans word) mon menu contextuel &#224; les options sont: "Couper ; Copier ; Coller ; Objet ; Afficher la barre d'outils Image ; Bordure et trame... ; L&#233;gende... ; Mettre en forme l'objet... ; Lien hypertexte". De plus losque je selection "Objet" Word me renvoie la m&#234;me erreur! Et m&#234;me si y faut pas ca m'enerve!

 Faut pas s'enerver

mortalino · Answer

Sinon, essaie &#231;a :

Au d&#233;but du code, 

On error GoTo SauteErreur


Application.EnableCancelKey = xlErrorHandler  
   'Ca, c'est pour que quand la fenetre "d&#233;bogage" apparait, &#231;a effectue la proc&#233;dure de gestion d'erreur donc va &#224; SauteErreur

Puis place le 
SauteErreur:

Est ce que &#231;a marche ?

  Mortalino

Polack77 · Answer

Toujour le m&#234;me probl&#233;me (je g&#233;rer l'erreur mais je veut empecher word de me dire qu'il rencontre une erreur)

 Faut pas s'enerver

Polack77 · Answer

Juste pour rapel ma macro est sous Word

 Faut pas s'enerver

Polack77 · Answer

Pardon Mortalino je n'avais pas vue ton message. Je vien de tenter "Application.EnableCancelKey = xlErrorHandler" toujours le m&#234;me probl&#233;me. (juste pour remarque le programme ne me propose pas de faire un d&#233;blocage mais m'affiche simplement un message :"Cet objet est alt&#233;r&#233; ou n'est plus disponible" avec un bouton "Ok"). Vous pouvez re-cr&#233;er cette erreur en copian un tableau excel (sous excel) et faire un colage sp&#233;cial :
-> Coller avec liaison
-> Image (m&#233;tafichier Windows)

Ensuite fermer Excel sans sauvgarder le classeur

ensuite lanser le code

Sub Exemple()
    Dim CptElement: CptElement = 1 'Element en cours de traitement (appeler element et pas TabExcel car les image sont consid&#233;rer comme "InlineShapes"
    Dim ValRetourFonction As String 'Sauvgarde la chaine de carac retourner par la fonction "CopyDonn&#233;eExcel"
    Dim EtatAlerte As Long: EtatAlerte = Application.DisplayAlerts 'Sauvgarde la configuration system sur les alerte


    Do While CptElement < ActiveDocument.InlineShapes.Count + 1
        Application.DisplayAlerts = wdAlertsNone '\Les d&#233;sactivation des message d'erreur
        On Error Resume Next                     '/
        ActiveDocument.InlineShapes(CptElement).OLEFormat.DoVerb VerbIndex:=1 'ouvre excel avec la feille afficher
        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
            ValRetourFonction = CopyDonn&#233;eExcel(CptElement) 'Lanse la fonction et sauvgarde la valeur de retour
            If Not Split(ValRetourFonction, Chr(1))(0) = "1" Then 'Si la fonction ne s'est pas passer sans erreur
                ActiveDocument.InlineShapes(CptElement).Fill.ForeColor.RGB = RGB(64, 255, 64) 'Passe l'element avec un fond vert (le nombre de colone est trop important)
                ActiveDocument.InlineShapes(CptElement).Fill.Visible = msoTrue 'Objet visible si il ne l'etait pas
                ActiveDocument.InlineShapes(CptElement).Fill.Solid 'Objet solide
                CptElement = CptElement + 1 'Passe &#224; l'&#233;l&#233;ment suivant (&#233;l&#233;ment non remplacer)
            End If
        Else 'Si une erreur s'est produite lors de la tentative d'ouverture d'excel
            Err.Clear 'Efface les erreur en cours
        End If
    Loop
    Application.DisplayAlerts = EtatAlerte 'Re-m&#233;t l'&#233;tat des alert dans le m&#234;me mode que au d&#233;but de la fonction
End Sub

 Faut pas s'enerver

Polack77 · Answer

et faire un colage sp&#233;cial (sous Word) Pardon

 Faut pas s'enerver

Polack77 · Answer

Ne lanser pas la fonction que j'ai mis plus haut boucle infini !!!!!!!!!!!!

Sub Exemple()
    Dim CptElement: CptElement = 1 'Element en cours de traitement (appeler element et pas TabExcel car les image sont consid&#233;rer comme "InlineShapes"
    Dim ValRetourFonction As String 'Sauvgarde la chaine de carac retourner par la fonction "CopyDonn&#233;eExcel"
    Dim EtatAlerte As Long: EtatAlerte = Application.DisplayAlerts 'Sauvgarde la configuration system sur les alerte 
    Do While CptElement < ActiveDocument.InlineShapes.Count + 1
        Application.DisplayAlerts = wdAlertsNone '\Les d&#233;sactivation des message d'erreur
        On Error Resume Next                     '/
        ActiveDocument.InlineShapes(CptElement).OLEFormat.DoVerb VerbIndex:=1 'ouvre excel avec la feille afficher
        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
            ValRetourFonction = CopyDonn&#233;eExcel(CptElement) 'Lanse la fonction et sauvgarde la valeur de retour
            If Not Split(ValRetourFonction, Chr(1))(0) = "1" Then 'Si la fonction ne s'est pas passer sans erreur
                ActiveDocument.InlineShapes(CptElement).Fill.ForeColor.RGB = RGB(64, 255, 64) 'Passe l'element avec un fond vert (le nombre de colone est trop important)
                ActiveDocument.InlineShapes(CptElement).Fill.Visible = msoTrue 'Objet visible si il ne l'etait pas
                ActiveDocument.InlineShapes(CptElement).Fill.Solid 'Objet solide
                CptElement = CptElement + 1 'Passe &#224; l'&#233;l&#233;ment suivant (&#233;l&#233;ment non remplacer)
            End If
        Else 'Si une erreur s'est produite lors de la tentative d'ouverture d'excel
            Err.Clear 'Efface les erreur en cours
            CptElement = CptElement + 1

        End If
    Loop
    Application.DisplayAlerts = EtatAlerte 'Re-m&#233;t l'&#233;tat des alert dans le m&#234;me mode que au d&#233;but de la fonction
End Sub

 Faut pas s'enerver

Tout petit bug (petit mais chien quant même)

11 réponses

Discussions similaires