Discussion :

[youky]

bonjour

je viens d’arriver sur un pc avec word 2000! j'ai testé une macro dans excel elle fonctionne, mais quand je la copie dans mon word elle ne marche pas du tout !
et donc je ne comprend pas trop
pour info j'ai mis la sécurité des macro au plu bas
merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub AutoOpen()
If Date > CDate("31/03/14") Then
MsgBox ("La date de validité a expirée depuis le 31/03/14, veuillez me contacter pour obtenir un nouveau fichier!")
Application.Quit
ActiveWorkbook.Close
Else
MsgBox ("autorisé jusqu'au 31/03/14")
End If
End Sub

[Marc-L]

Bonjour, bonjour,

!

Indiquer aussi la ligne déclenchant l'erreur … Sinon suivre le code en mode pas à pas via la touche F8 !

Pour information, une macro Excel ne peut fonctionner dans Word, ce ne sont pas les mêmes applications !

Maintenant en étant plus explicite que le titre et en expliquant clairement ce dont il est question dans Word …

Et ne pas oublier : l'Enregistreur de macros est l'ami des débutants !

[youky]

pardon je débute sur le site

et bien c'est une macro qui me permet de faire fermer mon tableau a une date précise.
et donc je voudrais faire la même chose avec mon word.
donc la macro marche très bien mais je ne connais pas les subtilités pour le faire sur wod
elle se lance sans problème ! mais avec word je n'y arrive pas

[Heureux-oli]

Salut,

Je rencontre un problème ??

Pourquoi Word pour la demande alors qu'on retrouve cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Close

[youky]

et bien par se que je n'est pas réussi à traduire le code ( ActiveWorkbook.Close ) pour mon word
car le pet de vb que j'ai pus faire c'est sous excel
et donc j'aimerais bien savoir quoi changer dans mon code pour qu'il soit compatible avec word

[carden752]

Bonjour,

Pour fermer le document Word actif,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Activedocument.close

Pour fermer un classeur Excel, c'est bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Activeworkbook.close

[Heureux-oli]

Salut,

Les lignes de code ne sont pas dans le bon ordre.

tu fermes l'application et ensuite les objets, en général, on ferme dans l'ordre d'ouverture ou d'importance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveDocument.Close
Application.Quit

Dans l'autre sens, on génère une erreur.

[youky]

à merci bien je viens de tester elle fonctionne bien

mais pourquoi cela ne fait pas comme dans excel ou la macro ce lance au départ ?
( mon niveau de sécurité est au plu bas )

[Heureux-oli]

Salut,

à merci bien je viens de tester elle fonctionne bien

mais pourquoi cela ne fait pas comme dans excel ou la macro ce lance au départ ?
( mon niveau de sécurité est au plu bas )

Si elle ne fait pas ce que tu veux, c'est qu'elle ne fonctionne pas bien.

Tu souhaites faire quoi ?

que la macro se lance pour tous les documents ou pour un seul document.

[youky]

et bien en faite elle fonction très bien avec excel cette macro!
elle permet que le fichier se ferme à une date donné
merci au personne qui m'ont donner la solution pour word !
car quand je lance la macro moi meme elle fonctionne le message s'affiche et le word se coup.
mon problème final est que la macro ne se lance pas à l'ouverture de mon word !
alors que avec l'excel elle s'ouvre
et que ma sécurité est au mini

[Heureux-oli]

Salut,

Si c'est pour un seul document, il faut utiliser l'évènement Document_Open.