Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Word Dur dur pour une première macro...

Dur dur pour une première macro...

14 réponses
Avatar
Michel RAMEAUX
Bonjour,
J'ai besoin, pour faire un suivi, de remplir mensuellement 22 fichiers
différents.
Plusieurs personnes ont accès aux dossiers et je voudrais qu'à chaque
ouverture d'un fichier celui-ci soit enregistré sous un nom différent mais
programmé à l'avance (an + mois prochain).
J'ai écrit une macro dans "TOTO.doc" qui fait (ou plutôt qui devrait faire)
ceci mais je tombe sur un os.
A son ouverture le fichier "TOTO.doc" s'enregistre bien sous
"TOTO-2005-11.doc" mais je conserve à l'écran "TOTO.doc". Il n'est pas
possible de l'ouvrir par VBA ("le document est en cours d'utilisation...").
Si je l'ouvre en manuel, je constate qu'il est absolument vide. Donc je ne
peux pas enregistrer les données dans le nouveau document, dans aucun
cas...!
Qui connaît le coup bas?
Voilà ce que j'ai osé écrire...

Private Sub Document_Open()

Dim a As Variant
Dim Chemin As String
Dim Erreur As Variant
Dim fs As Variant
Dim Mes1 As String
Dim Nom As String
Dim NewNom As String
Dim Test As String

' Initialisation
Chemin = ActiveDocument.Path
Nom = ActiveDocument.Name
' Analyse du type de document ouvert (Modèle (TOTO.doc) ou Fils
(TOTO-2005-10.doc))
'Nom = "Modèle Echéance-2005-01.doc" ' Pour faire une simulation
Test = Right(Left(Nom, Len(Nom) - 4), 2)
' Créer le nouveau nom
If IsNumeric(Right(Left(Nom, Len(Nom) - 4), 2)) Then
NewNom = Left(Nom, Len(Nom) - 12) & "-" & Year(Date) & "-" &
Month(Date) + 1
Else
NewNom = Left(Nom, Len(Nom) - 4) & "-" & Year(Date) & "-" &
Month(Date) + 1
End If
Refaire:
Mes1 = InputBox("Si vous souhaitez conserver la nouvelle version
document que vous venez d'ouvrir, donnez-lui son nouveau nom dès
maintenant.", _
"Archivage d'un nouveau document", NewNom)
If Mes1 = "" Then GoTo Finir
' Test d'existence...
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set a = fs.CreateTextFile(Chemin & "/" & Mes1 & ".doc", True)
Erreur = Err
Select Case Erreur
Case 0 ' Tout va bien
Case 70 ' Le fichier existe déjà
Mess = MsgBox("Le document " & Mes1 & " existe déjà.", vbOKOnly,
"Archivage d'un nouveau document")
GoTo Refaire
Case Else ' A analyser
Mess = MsgBox("Erreur inattendue ( " & Erreur & " ).", vbOKOnly,
"Archivage d'un nouveau document")
GoTo Finir
End Select
On Error GoTo 0
ActiveDocument.SaveAs FileName:=Chemin & "/" & Mes1,
FileFormat:=wdFormatDocument
' Documents("Mes1").Activate
' ActiveDocument.Save
' Documents.Open FileName:=Chemin & "/" & Mes1 & ".doc"
' Mise à jour de la date automatique
' If ActiveDocument.Fields.Count >= 1 Then
' With ActiveDocument.Fields(1)
' .Update
' .ShowCodes = False
' End With
' End If
Finir:
End Sub
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Geo

Bonjour,
J'ai besoin, pour faire un suivi, de remplir mensuellement 22 fichiers
différents.
Plusieurs personnes ont accès aux dossiers et je voudrais qu'à chaque
ouverture d'un fichier celui-ci soit enregistré sous un nom différent mais
programmé à l'avance (an + mois prochain).
J'ai écrit une macro dans "TOTO.doc" qui fait (ou plutôt qui devrait faire)
ceci mais je tombe sur un os.
A son ouverture le fichier "TOTO.doc" s'enregistre bien sous
"TOTO-2005-11.doc" mais je conserve à l'écran "TOTO.doc".


je viens d'essayer avec word 2000:
ActiveDocument.SaveAs "test vba.doc"
pas de problème, le nom en haut à gauche change bien.
Juste pour le confort, ne demande pas de saisir le ".doc" dans le
inputbox, ajoute le systématiquement.


--
A+

Avatar
Anacoluthe
Bonjour !

'Michel RAMEAUX' nous a écrit ...
Plusieurs personnes ont accès aux dossiers et je voudrais qu'à chaque
ouverture d'un fichier celui-ci soit enregistré sous un nom différent mais
programmé à l'avance (an + mois prochain).
J'ai écrit une macro dans "TOTO.doc" qui fait (ou plutôt qui devrait faire)
ceci mais je tombe sur un os.
A son ouverture le fichier "TOTO.doc" s'enregistre bien sous
"TOTO-2005-11.doc" mais je conserve à l'écran "TOTO.doc". Il n'est pas
possible de l'ouvrir par VBA ("le document est en cours d'utilisation...").


Pas tout compris. On ne sait pas trop si vous voulez renommer le fichier
ce qui est impossible sur un fichier ouvert - dans ce cas il faut
enregistrer sous un nouveau nom et supprimer l'ancien - , ou si vous
souhaitez conserver l'ancienne version.
Si vous ouvrez TOTO.doc, que vous l'enregistrez sous TOTO2.doc
c'est TOTO2 qui est document actif et TOTO est refermé.

Anacoluthe
« Nommer, c'est aussi sauver. »
- Claudio MAGRIS

Avatar
Michel RAMEAUX
Bonjour,
Une petite explication...
J'ai créé 22 modèles de documents, ex TOTO.doc, qui contiennent des
questions, et les utilisateurs entrent les prévisions (que du texte, sinon
j'aurais résolu cela simplement avec Excel).
Je ne souhaite pas que ce dossier soit modifié "en dur" : j'invite donc
l'utilisateur à sauvegarder "TOTO.doc" sous un autre nom, dès son ouverture
: ex "TOTO-2005-11" pour stocher les orientations de Novembre 2005.
Or, contrairement à ce qu'il se passe quand on fait "Fichier/Enregistrer
sous...", (le fichier est renommé et le nouveau fichier est disponible à
l'écran pour modification), j'observe que le fichier actif est toujours
"TOTO.doc". Le fichier "TOTO-2005-11.doc" est bien créé et est dans le
répertoire prévu mais il ne m'est pas possible de l'ouvrir dans la foulée
par VBA...("Le fichier est verrouillé pour modification par un autre
utilisateur"). Si j'abandonne la procédure et que j'ouvre "TOTO-2005-11.doc"
, j'ai un document qui ne contient plus mes questions, plus un seul
caractère : totalement vide...
Je suis toujours sous W2000 ! si cela a une quelconque influence.

Merci de vous repencher sur le bébé !
"Anacoluthe" a écrit dans le message news:

Bonjour !

'Michel RAMEAUX' nous a écrit ...
Plusieurs personnes ont accès aux dossiers et je voudrais qu'à chaque
ouverture d'un fichier celui-ci soit enregistré sous un nom différent
mais


programmé à l'avance (an + mois prochain).
J'ai écrit une macro dans "TOTO.doc" qui fait (ou plutôt qui devrait
faire)


ceci mais je tombe sur un os.
A son ouverture le fichier "TOTO.doc" s'enregistre bien sous
"TOTO-2005-11.doc" mais je conserve à l'écran "TOTO.doc". Il n'est pas
possible de l'ouvrir par VBA ("le document est en cours
d'utilisation...").



Pas tout compris. On ne sait pas trop si vous voulez renommer le fichier
ce qui est impossible sur un fichier ouvert - dans ce cas il faut
enregistrer sous un nouveau nom et supprimer l'ancien - , ou si vous
souhaitez conserver l'ancienne version.
Si vous ouvrez TOTO.doc, que vous l'enregistrez sous TOTO2.doc
c'est TOTO2 qui est document actif et TOTO est refermé.

Anacoluthe
« Nommer, c'est aussi sauver. »
- Claudio MAGRIS



Avatar
Geo

Bonjour,
Une petite explication...


Elle n'est pas superfétatoire en effet.
Comme indiqué, chez moi en word 2000 le save as marche.
Donc il y a autre chose,
le "modèle" ne serait pas un formulaire?

--
A+

Avatar
JièL Goubert
Bonjoir(c) Michel RAMEAUX

Le 01/11/2005 13:24 vous avez écrit ceci :
Bonjour,
Une petite explication...
J'ai créé 22 modèles de documents, ex TOTO.doc,


Aie... ça part mal.
Un .doc N'EST PAS un MODELE. les .DOT (pour DOcument Type) SONT des
modèles, et pour créer un doc basé sur un dot, il suffit de faire fichier,
Nouveau et de choisir le dot (et surtout pas ouvrir pour enregistrer sous).

Je ne souhaite pas que ce dossier soit modifié "en dur"


C'est quoi "en dur" ?
Pourquoi parlez vous de dossier maintenant ?

j'invite donc
l'utilisateur à sauvegarder "TOTO.doc" sous un autre nom, dès son ouverture
: ex "TOTO-2005-11" pour stocher les orientations de Novembre 2005.


Question : comment "invitez vous" l'utilisateur à l'enregistrer sous un
autre nom ? ce n'est pas en faisant Fichier, Enregistrer sous ?

Or, contrairement à ce qu'il se passe quand on fait "Fichier/Enregistrer
sous...", (le fichier est renommé


Enregistrer sous ne renomme pas de fichier, il ne fait que créer une
nouvelle "version" du premier

et le nouveau fichier est disponible à
l'écran pour modification), j'observe que le fichier actif est toujours
"TOTO.doc".


Retour à la question précédente : comment "invitez vous" l'utilisateur à
l'enregistrer sous un autre nom ?

Le fichier "TOTO-2005-11.doc" est bien créé et est dans le
répertoire prévu mais il ne m'est pas possible de l'ouvrir dans la foulée
par VBA...("Le fichier est verrouillé pour modification par un autre
utilisateur").


Il est donc bel et bien ouvert, non ?

Si j'abandonne la procédure et que j'ouvre "TOTO-2005-11.doc"
, j'ai un document qui ne contient plus mes questions, plus un seul
caractère : totalement vide...


Houlala... j'ai l'impression qu'en fait vous créez un doc vide et que vous
l'enregistrez avec un nom différent... pas clair du tout tout ça.

Vous ne voullez pas nous montrer vos macros ? voire laisser un exemplaire
(anonymisé) sur le site http://cjoint.com et de poster le lien ici ? ça
nous permettrait surement d'y vois plus clair, la c'est de plus en plus
embrouillé

Je suis toujours sous W2000 ! si cela a une quelconque influence.


Strictement aucune.

Merci de vous repencher sur le bébé !


--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Avatar
Geo


Question : comment "invitez vous" l'utilisateur à l'enregistrer sous un autre nom ? ce
n'est pas en faisant Fichier, Enregistrer sous ?


C'est en vba dans le texte :oÞ



--
A+

Avatar
Michel RAMEAUX
Bonjour, (re)

La macro est dans un modèle "TOTO.dot"...
Ce modèle (enregistré dans les modèles de Word) est la copie conforme du
dossier "Toto.doc" : même contenu, même présentation...
Je viens de refaire un essai, la commande VBA ne réagit pas comme la
commande manuelle.

Je viens de créer un fichier lambda, j'y inclus ma macro : et... les
résultats sont identiques !Le fichier créé à une longueur de 0 octet, ce qui
confime presque qu'il est vide...

"Geo" a écrit dans le message news:


Bonjour,
Une petite explication...


Elle n'est pas superfétatoire en effet.
Comme indiqué, chez moi en word 2000 le save as marche.
Donc il y a autre chose,
le "modèle" ne serait pas un formulaire?

--
A+





Avatar
JièL Goubert
Bonjoir(c) Geo

Le 01/11/2005 13:54 vous avez écrit ceci :


Question : comment "invitez vous" l'utilisateur à l'enregistrer sous
un autre nom ? ce n'est pas en faisant Fichier, Enregistrer sous ?



C'est en vba dans le texte :oÞ


Ben oui, j'ai vu aprés coup... voila ce que c'est quand on suis pas
correctement le fil de la conversation :-(

Je m'y replonge donc

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/


Avatar
Geo


Ben oui, j'ai vu aprés coup... voila ce que c'est quand on suis pas correctement le fil
de la conversation :-(

Je m'y replonge donc


mais ta question est une excellente suggestion :-)


--
A+

Avatar
Michel RAMEAUX
Bonjour à tous !

Mon tout premier message contient la macro complète... enfin... celle qui
aurait dû fonctionner!
Elle est stockée dans un modèle de document .dot. Ce modèle est décliné en
22 dossiers modèles qui ont des contenus différents, mais basés sur le même
principe : on peut ouvrir n'importe quel document Toto.doc (ou
Toto-2005-10.doc si il n'y a pratiquement pas de modif (plus simple que tout
retaper)), mais dans tous les cas, pour éviter d'écraser un autre document,
le fichier est d'abord et avant tout enregistré sous un nouveau nom... et
puisque nous venons d'entrer en novembre, ce sera Toto-2005-12.doc depuis ce
matin.
Même punition avec les documents Titi.doc, Tata.doc, Tutu.doc : 19 autres
fois.

Merci Docteurs !


"JièL Goubert" a écrit dans le
message news: #
Bonjoir(c) Michel RAMEAUX

Le 01/11/2005 13:24 vous avez écrit ceci :
Bonjour,
Une petite explication...
J'ai créé 22 modèles de documents, ex TOTO.doc,


Aie... ça part mal.
Un .doc N'EST PAS un MODELE. les .DOT (pour DOcument Type) SONT des
modèles, et pour créer un doc basé sur un dot, il suffit de faire fichier,
Nouveau et de choisir le dot (et surtout pas ouvrir pour enregistrer
sous).


Je ne souhaite pas que ce dossier soit modifié "en dur"


C'est quoi "en dur" ?
Pourquoi parlez vous de dossier maintenant ?

j'invite donc
l'utilisateur à sauvegarder "TOTO.doc" sous un autre nom, dès son
ouverture


: ex "TOTO-2005-11" pour stocher les orientations de Novembre 2005.


Question : comment "invitez vous" l'utilisateur à l'enregistrer sous un
autre nom ? ce n'est pas en faisant Fichier, Enregistrer sous ?

Or, contrairement à ce qu'il se passe quand on fait "Fichier/Enregistrer
sous...", (le fichier est renommé


Enregistrer sous ne renomme pas de fichier, il ne fait que créer une
nouvelle "version" du premier

et le nouveau fichier est disponible à
l'écran pour modification), j'observe que le fichier actif est toujours
"TOTO.doc".


Retour à la question précédente : comment "invitez vous" l'utilisateur à
l'enregistrer sous un autre nom ?

Le fichier "TOTO-2005-11.doc" est bien créé et est dans le
répertoire prévu mais il ne m'est pas possible de l'ouvrir dans la
foulée


par VBA...("Le fichier est verrouillé pour modification par un autre
utilisateur").


Il est donc bel et bien ouvert, non ?

Si j'abandonne la procédure et que j'ouvre "TOTO-2005-11.doc"
, j'ai un document qui ne contient plus mes questions, plus un seul
caractère : totalement vide...


Houlala... j'ai l'impression qu'en fait vous créez un doc vide et que vous
l'enregistrez avec un nom différent... pas clair du tout tout ça.

Vous ne voullez pas nous montrer vos macros ? voire laisser un exemplaire
(anonymisé) sur le site http://cjoint.com et de poster le lien ici ? ça
nous permettrait surement d'y vois plus clair, la c'est de plus en plus
embrouillé

Je suis toujours sous W2000 ! si cela a une quelconque influence.


Strictement aucune.

Merci de vous repencher sur le bébé !


--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/



1 2