[débutant] Pb adaptation de code VBA

Version imprimable

Bonjour,

J'essaye d'adapter le code trouvé dans la FAQ concerant l'exportation de données dans un document word.

Evidemment, ça aurait été trop beau si ça marchait du 1er coup !

Le message d'erreur est :

Citation:

Erreur d'exécution 424 Objet requis

La ligne mise en évidence par le débogueur est : moncode = code.Value
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub Commande16_Click() 'Voici pour la déclaration du code: Dim appwd As Object Dim moncode moncode = code.Value 'Démarrer Word Set wdapp = CreateObject("Word.application") ' le code ci-dessous permet de faire apparaitre word ' en premier plan ou pas, false -> non et true -> oui wdapp.Visible = False 'on ouvre le document wdapp.Documents.Open "\mon chemin d'accès"
Si qqun à une piste, je prends...

Merci d'avance

Delph

23/02/2006, 18h14
random

apparemment cette procédure tourne avec un formulaire contenant un controle nommé code est ce bien ton cas ??
23/02/2006, 18h16
keita

salut
Apparemment ton pb se trouve ici:

Code:

moncode = code.Value

cette ligne n'a peut etre pas sa place ici
@+
23/02/2006, 18h38
Faw

Salut, tu déclares

Code:

Dim appwd As Object

mais d'où vient wdapp des autres lignes?
24/02/2006, 08h01
Invité
Salut,

De plus tu déclares
Code:

1 2 dim moncode
sans stipuler quel type de variable
De plus je te conseille
Code:

1 2 moncode = me.code.value
Starec
24/02/2006, 08h14
delphineleclerc1

Random, merci, ça a débogé la ligne.

C'est logique que si aucune référence n'est faite au contrôle ça ne fonctionne pas. :oops:

Faw, ta remarque est pertinente, jai modifié dans le code. Ca ne change rien pour le mement (je ne sais pas trop si c bon signe ..... on verra au prochain bug !)

Il y a encore des bugs à régler, mais ça avance ! Je m'attaque aux autres suggestions. Merci...

Delph
24/02/2006, 11h26
delphineleclerc1

Encore un p'tit bug :

Le but du code est d'ouvrir un document type (word) , d'enregistrer dessus des infos venant d'un formulaire Access et de l'enregistrer sous un nouveau nom "nouveaudocment_1" et enfin de fermer le document type.

Je ne parvients pas à fermer le document type, où est l'erreur dans le code ?

Le message d'erreur dit :

Citation:

Erreur 4218, Type d'argument incorrect

Code:

appwd.ActiveDocument.Close "Chemin d'accès \document type"

Si je fais juste :

Code:

appwd.ActiveDocument.Close

Cela me ferme bien le "nouveaudocment_1" mais pas le doc type.

Est-ce que qqun peut me dépanner ? :?:

Merci d'avance

Delph
27/02/2006, 15h18
delphineleclerc1

Personne n'a d'idée sur la question :?: :?: :?:
27/02/2006, 18h26
Arkham46

slt,

de mémoire close n'attend pas un nom de fichier

regarde l'aide de close dans word

si tu veux sauvegarder ton document il faut avant la fermeture faire un save ou saveas

mais ça :

Citation:

Cela me ferme bien le "nouveaudocment_1" mais pas le doc type.

je ne comprend pas bien

tu as deux documents ouverts?
dans ce cas (et même dans tous les cas d'ailleurs) il vaut mieux travailler sur des objets documents que sur le activedocument
28/02/2006, 12h58
loufab

Bonjour,

Tu peux toujours relancer ta commande activemachin.close, puisqu'il ferme le doc actif forcément le document suivant devrait être le modèle.

C'est pas le top comme programmation... je suis pas fortiche en vba.word juste logique.