Je n'ai jamais fais de vb et en ce moment j'ai besoin de créer des macros vba pour
corel et j'ai quelques petits soucis:
Sub recupinfo()
Dim litem
Dim calque As Layer
Dim lapage As Page
Dim lestextes As Collection
Set lapage = ActivePage
For Each calque In lapage.Layers
For i = 1 To calque.Shapes.Count
If calque.Shapes.Item(i).Type = cdrTextShape Then
lestextes.Add (calque.Shapes.Item(i).Text.Story.Text) ICI==>PROBLEME
End If
Next i
Next calque
Sur le ligne du probleme j'ai comme message d'erreur "variable objet ou variable de bloc with non définie", je commence aujourd'hui le vb et malgré les tutos que j'ai pu regarder rien ne m'aide, faisant d sur place je viens donc voir ici si quelqu'un pouvait m'aider!
je commais bien cette ERREUR mais à vrai dire aparement tu utilises des classes paske j' travaille sur VB 6.0 mais pas orienté objet
donc à propos cette erreur peut être il y a une ptite faute syntaxique ou bien si tu a ajouté des réferences ou des composants alors tu dois peut être verifier les procédures d'ajout .
bon j'ai aimé de te donner plus d'info.
bonne chance
__________________________
il faut être patient et ambitieux
never give up , let the challenge your way to live
Bon alors je n'ai pas trouvé la solution, mais du coup j'écris directement dans un fichier xml au lieu d'ajouter dans une collection, donc je n'ai pas trouvé la solution mais je n'ai plus le problème ^^