Reprise du message précédent :

 
Si tu voyais le code en entier, tu dirais ptet pas ca  

certes mais surtout les String

ya un option explicit ?

pitié, déjà que j'en morflerai de nouveau lundi, je préfère finir mes vacances sans avoir à subir un traumatisme

ça dépend... avec des memcopy ça peu aller...  

yaisse
 

t'inquiete, vais pas poster le code, ca vous avancerait pas a grand chose de toutes manieres...  

donc j'avais raison  

t'as pas d'option explicit dans ton code?
 
SHAAAAAAAAAAAME!

spa mon code    
 
je fais de la maintenance      

 
raaaaaaa, j'ai la musique dans la tete maintenant /o\

quelle musique?
 
(pas fait exprès pas tapai /o\ )

pas de prob, j'apprends des trucs comme ca  

 
j'ai presque honte de le dire..
[PARLER mode='tout bas']
Ophélie winter : shame on you
[/PARLER]
 

<hs>
chuis content de plus regarder la télé tiens, je pourrais tomber sur un de ses clips
</hs>

bwallé, je reviens à la charge. j'ai un code qui marche mais qui est affreux et hyper lent (vous comprendrez vite pourquoi).
je ne sais pas trop comment faire autrement, avec ces objets word qui trainent partout et les appels des fonctions. donc si l'inspiration vous vient n'hésitez pas!
 
voici le code en question:
 

comme vous pouvez le constater, c'est vraiment très très très mal ce que j'ai fais. Et je vous raconte pas les performance de ce truc    
Merci pour votre future aide

pas le temps aujourd'hui  

bon alors, voilà comment je l'aurai écrit (plus ou moins):
 

 
Remarque que j'ai ajouté quelques Call, ça fait jamais de mal et tu courres moins de risques de bug.
J'ai déplacé Word_Application dans la fonction principale, de manière à ne l'ouvrir qu'une seule fois, de même que chaque document n'est ouvert qu'une seule fois.
 
L'assignation des propriétés customs se fait sur base du raisonnement suivant: si ça marche pas, c'est que l'item n'existe pas, donc je le crée puis je réessaie (on a un code semblable dans l'application mais avec une collection standard).
J'ai factorisé une longue expression qui se révèle être utilisée 2x de suite (strDocPath).
 
Tu devrais essayer d'abord avec Word visible, de manière à voir tout ce qui se passe (si tout se passe bien, on voit juste des documents s'ouvrir et se fermer). Comme ça tu peux voir si éventuellement Word te sort une boîte de dialogue pour des raisons xyz. Chez notre client, ils ont un message typique "normal.dot a été modifié, voulez vous le sauvegarder?". C'est pas bloquant mais chiant quand même (je sais pas s'il apparaît si on dit que Word n'est pas visible).
 
Essaie ça et dis moi si ça marche

superbe merci!
j'essaye ca en fin d'après-midi, je dois finir de l'intranet avant et je te redis.
en tout cas déjà un énorme merci!

alors voilà j'ai pris tout ca. j'ai déjà changé ta fonction setproperties pour qu'elle appelle setproperty à l'intérieur.
 
maintenant il me fait une erreur à cette ligne:
Call Word_Application.Documents.Open(strDocPath)
 
et à savoir "Object variable or with block variable not set"
 
je suis en train de chercher un peu ce que ca pourrait être (après avoir traqué l'erreur, car je ne peux tester mon prog qu'avec l'éxécutable   )

sur la méthode Open?
 
oulah, je suggère au hasard, lecture des propriété Word_Application.Visible et Word_Application.Documents.Count, puis le contenu de strDocPath avant l'appel à Open pour voir si ça plante sur une de ces lignes.
 
Pourquoi tu peux tester qu'avec l'exécutable?

je crois que c'est betement car j'avais pas créer mes objets (juste déclarer)

 
j'ai des problèmes avec la bibiothèque word sur l'ordi de dev, qui est non officiel. et vu que j'ai pas le temps de regarder en détail pourquoi, et que ca fonctionne sur ma bécane principal (donc comme celle des autres), je fais avec  

je comprends pas trop l'utilité de "Resume" dans la gestion d'erreur.
en mettant la création du customproperties (chose à laquelle je vais m'atteler tantot), je dois préciser qu'il doit sortir après au lieu de recommencer c'est ca?
 
sinon chapeau, tout fonctionne nickel    
vraiment merci beaucoup, j'aurais été trop dans la merde si j'arrivais pas à finir ca demain

et pour que l'application word soit invisible, c'est quelle propriété? j'avais essayé avec visibility = false mais ca marchait pas il me semble

le Visible me semble être à False par défaut, donc si tu veux pas voir l'appli, tu n'as même pas besoin d'y toucher. Sinon tu mets à True et Word doit apparaître.
 
Pour le resume, cfr mon commentaire: ça reprend à la ligne qui a provoqué l'erreur. Donc j'essaie d'affecter ma valeur à la customproperty, si ça plante, gestion d'erreur -> j'ajoute la customproperty en question, et je fais un resume pour tenter à nouveau d'affecter la valeur: ça doit marcher au second coup.

oky doky
 
maintenant j'ai un autre problème, que j'avais déjà au départ. en fait pour créer la property j'ai pris ce modèle:
 
Application.ActiveWorkbook.CustomDocumentProperties.Add _
    Name:="TestCDP", _  
    LinkToContent:=False, _  
    Type:=msoPropertyTypeString, _  
    Value:="Hello World", _  
    LinkSource:=False
 
il me fait un problème pour le type. si je mets comme ca il veut pas compiler, et si je mets entre " il me met "type mismatch"

que met-il comme message d'erreur à la compil?
 
edit: oui, si tu spécifies la valeur directement, un resume next ou rien du tout sera de meilleur aloi qu'un resume

variable not defined

mmmh ça voudrait dire que msoPropertyTypeString n'est pas reconnu par le système. Ca me paraît bien bizarre ça vu que tu sais utiliser le reste
 
Dans l'exemple donné ici, je vois qu'ils ne font pas usage de LinkSource, essaie de compiler sans ça pour voir (et regarde le tooltip lorsque tu édites tes paramètres d'appel à Add pour voir si LinkSource en fait bien partie).

sinon regarde ds les groupes google

il fait violemment crashé mon ie  

c'est pourtant une page vers MSDN
 
Voilà le truc intéressant qu'il y avait à regarder sur la page
 

http://groups.google.fr/groups?hl= [...] %26meta%3D

il est toujours pas d'accord

bon voyons, tu vas sur la méthode Add de la collection customproperties là, tu fais un Ctrl-I dessus pour avoir les infos et tu t'intéresses particulièrement au type de la valeur attendue pour le paramètre Type.

huhu
marche pas ctrl+i

huhu, gros problème de compil  Il se peut que les combos apparaissant pour proposer propriétés/méthodes d'objets ne fonctionnent pas non plus.
 
met en commentaire ton Add de customproperty et fais un Ctrl-I sur autre chose. Il se peut que le problème de compil en question ne soit pas au niveau de cette ligne.

en fait sur le reste ca marche, par exemple sur le customproperties ca me mets "CustomDocumentProperties as Object" mais rien pour le reste

aaaaaaah d'accord
 
et si dans l'object explorer (F2) tu fais une recherche sur "msoPropertyTypeString", tu trouves rien? Si c'est le cas, faudra trouver l'équivalent numérique

effectivement je trouve que dalle
et je fais comment pour trouver l'équivalent numérique?

hmmmmm tu peux lancer Word, lancer ensuite l'environnement VBA (Alt-F11), taper ta constante et faire un Ctrl-I dessus qui te donnera la valeur.