Réinitialiser un projet

[zakou76]

Bonjour à tous.
Juste pour vous démander est ce qu'il existe une commande VBA permettant de réinitialiser un projet VBA qui a la même fonction que le bouton "REINITIALISER" de la fenêtre VBE.
Merci

 

[YANN-56]

Re : Réinitialiser un projet

Bonsoir Zakou

Regarde du coté:

Outils - Macro - Nouvelle Macro

Tu fais ton VBE machin; et dans le Module1; Peut-être aura-tu la réponse.

Qui sait? Je n'ai pas testé.

Amicalement

Yann

 

[Pierrot93]

Re : Réinitialiser un projet

Bonjour Zakou, Yann

peut être l'instruction "end", réinitialise toutes les variables et arrête les procédures en cours.... A voir ce que tu cherches exactement à faire...

bonne soirée
@+

 

[zakou76]

Re : Réinitialiser un projet

Bonsoir Pierrot93
Le problème est que je suis en train de piloter word à partir d'Excel.
A certain moment j'ai le code suivant:
Set wordDoc = wordApp.Documents.Open(NomFichJour) 'ouvre le document Word
Là mon "NomfichierJour s'ouvre normalement
Puis j'ai l'intruction:
Set tblNew = ActiveDocument.Tables(6)
Là il me sort en deboggage erreur 5941 "Le membre de la collection requit n'existe pas"
A ce niveau si je réinitialise le projet avec le bouton "REINITIALISER" et je réexecute mon projet ca marche normalement.
NB: tblNew est déclaré comme suit:
Dim tblNew As Table
Merci pour votre aide

 

[Guest]

Re : Réinitialiser un projet

Bonsoir

Sans doute en rajoutant la référence au document Word, cela évitera qu'excel ne recherche un ActiveDocument inexistant (et qui ne peut pas exister d'ailleurs) dans le classeur.

Set tblNew = [B][COLOR=red]wordDoc[/COLOR][/B].Tables(6)

Il se peut aussi qu'il faille attendre le chargement complet du fichier, avant de travailler sur le document:

Après la ligne d'ouverture du document:

Application.Wait Now + TimeValue("0:00:04")

Où le 4 = 4 secondes (un peu long peut-être) à ajuster.


A+

 

[zakou76]

Re : Réinitialiser un projet

Bonsoir Hasco
J'ai essayé avec: Set tblNew = wordDoc.Tables(6) et apparemment ca marche bien. Je vais réessayé encore avec plusieurs fichiers s'il ne me sort pas d'erreur c'est bon.
Merci beaucoup.