Accueil | Aide en ligne | Annuaire | Sécurité | Articles | Astuces | Téléchargements | Association 


Mon compte SOS Ordi

Vous n'êtes pas identifié
[-> S'inscrire à SOS Ordi
[-> Mot de passe perdu ?
S'identifier


Rechercher sur SOS Ordi

Ok

Dans





 Catégories de l'aide en ligne
 Aide en ligne


 Saviez vous que ...
Pour un meilleur confort de navigation sur SOS Ordi, utilisez une resolution de 1024x768 au minimum


 Partenaires
  SOS Ordi > Aide en ligne > Logiciel > Développement > Langages > Visual Basic > Macro permettant de sauveagarder un fichier WORD dont le nom utiliserait le contenu du presse-papier

Macro permettant de sauveagarder un fichier WORD dont le nom utiliserait le contenu du presse-papier
3 réponse(s)
dont 1 ont aidé lp_g à résoudre son problème

  Problème résolu posté le 23/08/2006 à 22:25
Profil Configuration PC
lp_g


ringgame1_micka_suite
État : Absent
Bonjour,

Je souhaiterais créer une macro qui me permette de sauvegarder automatiquement le fichier sur lequel je travaille avec comme nom de fichier ce qui se trouve à ce moment dans le "presse-papier" (un mot du texte que j'aurais mis en surbrillance et placé dans le "presse-papier" en faisant CTRL-C)...


Je suis parvenu à créer une macro qui sauve avec mon nom suivi de la date et de l'heure du moment de la sauvegarde mais je butte sur une sauvegarde avec ce qui aurait été préalablement mis dans le presse-papier par CTRL-C :

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub Sauver_mot()
'
' Sauver_mot Macro
' Macro enregistrée le 22/08/2006 par lPg
'
Dim monheure
Dim maminute
Dim maseconde

monheure = Hour(Time)
maminute = Minute(Time)
maseconde = Second(Time)

ActiveDocument.SaveAs FileName:="lPg " & Format(Date, "dd") & "-" & Format(Date, "mm") & "-" & Format(Date, "yy") & "_" & monheure & "_" & maminute & "_" & maseconde & ".doc"

End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Quelqu'un aurait-il la soluce d'une macro utilisant le contenu du presse-papier comme nom de fichier (pour éviter, bien évidemment, de passer par "Sauver sous" et CTRL-V !!!) ?

lPg

   

Bas de page 


Information
Pour participer vous devez d'abord être membre ou identifié :
[-> M'identifier
[-> Je ne suis pas membre SOS Ordi, je souhaite m'inscrire
[-> J'ai perdu mon mot de passe


  Réponse postée le 24/08/2006 à 12:22
Profil du membre Configuration PC
demonkill
Modérateur


État : Absent
Tu peut peut-être passer par "paste" ou "GetFromClipboard" en te basant sur l'aide liée.
Merci de :
* Lire la charte : http://www.sosordi.net/Depannage/Charte.html . Ne pas poser 2 fois la même question
* Rester courtois, éviter les majuscules et employer un langage clair

  Réponse postée le 25/08/2006 à 21:55
Profil du membre Configuration PC
lp_g



État : Absent
Voici la solution pour ceux que ça intéresse...

Vous pouvez me laisser des points si vous voulez s.gif

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Sub Sauver_mot()
'
' Sauver_mot Macro
' Macro enregistrée le 22/08/2006 par pHg
'

Dim monheure
Dim maminute
Dim maseconde

monheure = Hour(Time)
maminute = Minute(Time)
maseconde = Second(Time)
nom = Trim(Selection.Range.Text)

ActiveDocument.SaveAs FileName:=nom & " " & Format(Date, "dd") & "-" &
Format(Date, "mm") & "-" & Format(Date, "yy") & "_" & monheure & "_" &
maminute & "_" & maseconde & ".doc"

End Sub


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Merci à ceux qui ont essayé de m'aider


lPg

  Réponse postée le 25/08/2006 à 21:56
Profil du membre Configuration PC
Robot SOSORDI



État : Absent
Réponse automatique :

Cette question est résolue



Haut de page 

 

Version 5.6 | Infos / Contacts | Partenariat | Publicité