[OK]Automatiser les sauvegardes

[alain51]

Dans ce que je t'ai envoyé, regarde dans Outils, Macro, Macros si tu as les
2 macros, enregistrer et enregistrement.

Et si tu les as, fais comme indiqué plus haut.
<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD><font size=-1><b>Citation :</b></font></TD></TR></TABLE><TABLE BORDER=1 CELLPADDING=10 BORDERCOLOR=#FF0000 ALIGN=CENTER WIDTH=85%><TR BGCOLOR=#F3F2F4><TD><FONT SIZE=-1>Dans word, clic droit sur la barre d’outils, Personnaliser onglet Commandes
Dans Catégories (à  gauche) sélectionne Macros
et dans Commandes (à  droite) clic gauche sur NewMacros.enregistrement
et glisses la commande o๠tu souhaites dans les barres d’outils.

Pour faire démarrer cette macro, tu cliques une fois sur la commande newMacro.enregistrement
de la barre d’outils, et elle s’exécutera jusquâ€™à  la fermeture du document. </FONT></TD></TR></TABLE>

[alain51]

Je viens de voir autre chose.

Dans Outils, Macro, Sécurité si le niveau de sécurité est Haut,
word n'exécutera pas mes macros.
Il faut le mettre en moyen ou bas.

[Maximat]

Bon alors rien de chez rien.
Alors voilà  on reprend depuis le début car je ne peux pas exclure une sotte manoeuvre de ma part, surtout que mon SP2 vient de me là¢cher sur plus de 24 heures ( le type du support cable m'a expliqué très obligeamment que SP3 reglerait le probleme et les brèles dans mon genre sont bien obligées d'y ajouter foi !!). Je veux bien, je n'ai plus rien, que tu me renvoies ton fichier joint par mail et que je baisse la sécurité de Word avant de l'installer, je sens qu'on approche de la soluce qui tue !!! GRRR
Je le sens, je le sens, je disjoncte tellement je le sens...
<IMG SRC="/images/smiles/Smiley1.gif"> <IMG SRC="/images/smiles/icon_rolleyes.gif">
Max

[alain51]

Je te l'ai renvoyé.

Comme je te dis, regarde si Application.OnTime a la même syntaxe
dans word 2002 que dans word 2000.

[nouv]

slt maximat (et les autres)
donc pour la sauvegarde toutes les x minutes il suffit de reprendre les macros mais pour enregistrer ton doc avec un nom différent à  chaque fois je te propose à§a :

** A mettre dans la partie module de ton document ****
** permet de rajouter 1 à  chaque document, ton document s'appellera nomquelconque¤1 ¤est le séparateur que j'impose qui me permet de savoir ou se trouve les chiffres
************voici les deux modules*********************

Sub compteur_enregistrement()
Application.OnTime When:=Now + TimeValue("00:00:15"), Name:="definition_du_nom"
End Sub

Sub definition_du_nom()
' définition des variables
Dim nomdoc As String
Dim positionextension, positionseparateur
Dim nomsansextension As String
Dim nomsansseparateur As String
Dim dimensionnom
Dim chiffreencours As String
Dim chiffreennombre
Dim nomcomplet As String
'attribution des constantes
mondoc = ActiveDocument.Name
positionextension = InStr(mondoc, ".doc") 'indique la position du point de .doc
positionseparateur = InStr(mondoc, "¤") 'indique la position du séparateur choisi ¤
If positionextension = 0 Then
nomsansextension = mondoc
Else
nomsansextension = Left(mondoc, positionextension - 1)
dimensionnom = Len(nomsansextension)
End If
If positionseparateur = 0 Then
nomcomplet = nomsansextension & "¤1"
Else
chiffreencours = Right(nomsansextension, (dimensionnom - positionseparateur))
chiffreennombre = CLng(chiffreencours)
chiffreennombre = chiffreennombre + 1
nomsansseparateur = Left(nomsansextension, positionseparateur - 1)
nomcomplet = nomsansseparateur & "¤" & chiffreennombre
End If
ActiveDocument.SaveAs FileName:=nomcomplet
Call compteur_enregistrement
End Sub


****et pour automatiser le tout : dans la partie projet ( a gauche de la fenêtre vbasic, tu double clic sur ThisDocument et tu ajoutes les modules suivants :


Private Sub Document_Close()
'enregistrement du document à  la fermeture
ActiveDocument.Save
Call definition_du_nom
End Sub
Private Sub Document_Open()
'enregistrement du document et démarre le compteur dès l'ouverture
ActiveDocument.Save
Call compteur_enregistrement
End Sub

***** cela permet de lancer les modules pour l'ouverture et la fermeture du document.
Normalement il faut aussi

Private Sub Document_New()
'enregistrement du document et démarre le compteur dès la création
ActiveDocument.Save
Call compteur_enregistrement
End Sub

qui permet de lancer les modules lors de la création d'un nouveau document (à  partir d'un autre donc) mais pour une raison que j'ignore à§a ne fonctionne pas chez moi
si qlq'un pouvait trouver pourquoi ? j'aimerais savoir

y'a plus qu'à  copier-coller

[LANNIE]

Salut à  tous,
Je vais essayer
Merci nouv pour ton intervention
Y a plus dans XXX têtes que dans une ! Pas vrai ?
Bonne journée
Je vous dirai les résultats

[alain51]

Houlala! Un pro de la macro.

Dis, Nouv, pour les macros que l'ai fais, elles fonctionnent chez toi avec word 2000?

[LANNIE]

Salut,
Nouv est une pro de plein de choses <IMG SRC="/images/smiles/thumbs_up46.gif"> <IMG SRC="/images/smiles/thumbs_up46.gif">
Je le savais déjà  ! <IMG SRC="/images/smiles/wink_smile46.gif">
Mais toi aussi Alain <IMG SRC="/images/smiles/thumbs_up46.gif"> <IMG SRC="/images/smiles/thumbs_up46.gif">
A+

[nouv]

slt,
oui alain ta macro fonctionne aussi sur 2000 sans problème, merci lannie mais en ce moment j'ai beaucoup de temps libre (recherche de boulot) alors mon cerveau est libre de pouvoir penser à§a aide de ne pas avoir des journées remplies.

[Maximat]

Bon alors, je suis de retour après quelques jours de formation (non, non, pas à  l'informatique ! mais vous etes tous si obligeants que je me ferai une joie d'abuser de vos capacités <IMG SRC="/images/smiles/regular_smile46.gif">) ).
Tout d'abord merci. Etant l'initiateur du probleme, je me sens moins seul en vous lisant tous.
Ensuite, et trève de sentiment, petit bilan :
-"Alain51" je suis désolé mais à§a ne marche toujours pas. Comme tout le monde semble trouver que à§a fonctionne, j'en conclus que je dois faire une fausse manoeuvre quelque part ou que quelque chose pèche dans ma configuration ou mon installation. Dommage pour moi, ta solution avait l'élégance de la simplicité. Meme moi j'arrive à  la lire ce qui est un exploit en soi.
-Quant à  la solution proposée par "nouv", de mon temps on disait "wawavoum". Comme dit ce n'est pas dans la boite encore car je suis rentré tard et ce matin il y a du soleil, du ciel bleu et un Salon Mer Vigne et Gastronomie cet après midi, je vais donc aller gouter de bonne choses et faire quelques emplettes. Mais promis juré ce soir en rentrant je pose cette macro dans sa boite. Avec un verre de vin blanc <IMG SRC="/images/smiles/icon_rolleyes.gif">

Bises à  tous

[Maximat]

Tadaaa ! La victoire en chantant...Oups.
Excusez moi à§a doit etre les relents de dimanche après midi. Mais vous l'aurez compris : à§a marche !! Es geht !! It works !!! Fini les gros chemars, les cauchemars comme celui arrivé au collègue qui vient de perdre 40 pages de textes. Merci pour tout. J'en pleure presque sur mon clavier...Snif
Après un ou deux essais infructueux dus à  mes maladresses et à  mon incompétence, j'ai eu le plaisir de voir s'afficher des enregistrements réguliers qui se nommaient gentiment d'un suffixe incrémenté. Quel ne fut pas mon plaisir de dénombrer ces joyeuses ribambelles de textes.
Je vous suis vraiment reconnaissant de vos efforts et de votre patience, et un mot en plus pour "nouv"...

Max

Ps : "Je peux dire une connerie ?" Comment on fait pour que le bouton de la macro soit plus esthétique ?

[nouv]

slt,
suis contente que à§a marche comme tu veux, pour le bouton

copier une image qlconque
sur l'outil à  modifier - clic droit personnaliser
et à  nouveau clic droit - coller l'image

><>

[Maximat]

Euh !!?
C'était juste pour que le bouton bouffe moins de place, ou pour le baptiser d'un autre nom. Parce que "Normal.NewsMacro.compteur-enregistrement" à§a fait quand meme un peu long sur la barre... <IMG SRC="/images/smiles/Smiley1.gif">
Bises
Max
PS : comment je fais pour dire à  tout le monde que ce probleme est résolu par les génies du forum !!

[alain51]

Clic droit sur une barre d'outils, personnaliser.

Clic droit sur ton bouton de macro, tu peux changer le nom.

Quand tu es l'auteur d'une discussion, et que tu réponds, en dessous
de ta zone de message, tu as une ligne Problème résolu?,avec en fond rouge,
Le problème a été résolu ou la réponse est satisfaisante : (Cochez cette case si c'est le cas !)
tu coches la case, et ton sujet sera clos.

[Maximat]

Merci à  tous
Je travaille l'à¢me plus légère grà¢ce à  vous. Je pense qu'on peut clore le sujet.
Max