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 ...

SOS Ordi est une association loi de 1901


 Partenaires

  SOS Ordi > Aide en ligne > Logiciel > Développement > Langages > Visual Basic > Macros Word...

Macros Word...

3 réponse(s)
dont 1 ont aidé StadtPark à résoudre son problème

  Problème résolu posté le 02/09/2004 à 12:46
Profil Configuration PC
StadtPark


Aucun
État : Absent
Bon je n'ai qu'une connaissance générique de Visual Basic, et bricole sur mon word afin que certaine tâches puissent fonctionner plus rapidement (mais aussi par intéret).

J'ai une question :

J'ai créé une macro simple afin qu'un formulaire, une fois rempli se sauvegarde dans un répertoire donné avec un nom donné:

If ActiveDocument.FormFields("dropdown8").Result = "Suisse" Then
ChangeFileOpenDirectory _
"S:\TC2\Lettres\Ch"
end if
If ActiveDocument.Name = "Nouvel enfant (en+).doc" Then
ActiveDocument.SaveAs ActiveDocument.FormFields("Text10").Result & ".doc"
End If

Seulement Voilà, le contenu de "Text10" est un numéro attribué à une personne, cette même personne peut avoir plusieurs lettre, cette macro ne peut pas générer de suffixes différents au nom de facon automatique (type ("texte10).Result & "_2" & ".doc, si un fichier existe déjà avec le nom ("texte10).Result & ".doc)...)donc le fichier est écrasé... (serait... je n'ai pas encore pris le risque de l'utiliser)

Ma question : Serait-il possible de m'indiquer quelle genre de commandes seraient nécessaire pour que l'ordinateur vérifie avant toute sauvegarde, si le nom fichier quil doit générer existe déjà, et si oui, qu'il décide (ad libitum)d'y ajouter un suffixe (comme "_2" ou "_3" etc. )nécessaire ?

J'éspèr m'être exprimé de facon assez claire et vous remercie à l'avance de toute vos réactions.

Christophe

   

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 12/09/2004 à 08:01
Profil du membre Configuration PC
Musicien



État : Absent
En supposant l'existence d'une fonction d'attribution de numéros séquentiels pour fichiers de même nom NouveauNumero() :

Dim strNomEtCheminDuFichier As String

strNomEtCheminDuFichier = ... blablabla ... ' sans l'extension!
If Dir(strNomEtCheminDuFichier & ".doc") = "" Then
ActiveDocument.SaveAs strNomEtCheminDuFichier & ".doc"
Else
ActiveDocument.SaveAs strNomEtCheminDuFichier & NouveauNumero() & ".doc"
End If

  Réponse postée le 13/09/2004 à 10:20
Profil du membre Configuration PC
StadtPark



État : Absent
Merci Beaucoup !

  Réponse postée le 19/09/2004 à 06:03
Profil du membre Configuration PC
Musicien



État : Absent
smileJap.gif



Haut de page 

 

Version 5.6 | Infos / Contacts | Partenariat | Publicité