Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2662 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Résolu] Word macro qui ouvre un document

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Résolu] Word macro qui ouvre un document

n°1956768
coolkis
Posté le 11-01-2010 à 13:10:40  profilanswer
 

Bonjour,
 
Sous Word 2007, j'ai créé un bouton qui me permettrait d'ouvrir un modèle de document dans un dossier spécifique !
 
Le problème c'est que je ne connais absolument rien en VB et tous les codes que j'ai pu essayer ne fonctionnent pas !
 
Quelqu'un pourrait m'éclairer un peu svp ?
 
Voilà ou j'en suis :
 
Sub test(ByVal control As IRibbonControl)
 
Open "C:\toto.doc" For Output As #2
 
End Sub


Message édité par coolkis le 21-01-2010 à 11:31:54
mood
Publicité
Posté le 11-01-2010 à 13:10:40  profilanswer
 

n°1956843
coolkis
Posté le 11-01-2010 à 14:58:16  profilanswer
 

J'ai essayé un autre code :
 
Private Sub test()
Dim strFichier As String
Dim objWord As New Word.Application
 
strFichier = "C:toto.doc"
 
objWord.Documents.Open strFichier
 
objWord.Visible = True
End Sub
 
Mais quand j'exécute la macro, un message d'erreur apparait :
 
"Nombre d'arguments incorrect ou affectation de propriété incorrecte"

n°1956863
coolkis
Posté le 11-01-2010 à 15:33:04  profilanswer
 

La macro fonctionne bien, quand je l'exécute manuellement ! Cependant je ne sais pas pourquoi, lorsque je l'exécute via mon bouton, j'ai ce message d'erreur qui apparait !
 
Est ce que quelqu'un a déjà eut ce type de problème ?

n°1957480
coolkis
Posté le 13-01-2010 à 12:03:47  profilanswer
 

Pour ceux que ça intéresse je mets la solution :
 
Pour résumer, j'ai créé un onglet (Modèles) supplémentaire dans Word 2007. Sous cet onglet, j'ai également créé un "bouton" qui me permet de lancer un modèle de document (ces modifications se font en xml).
 
Et derrière ce bouton je lance une macro afin d'ouvrir le modèle de document :
 
Private Sub nom_macro(ByVal control As IRibbonControl)
 
Documents.Open FileName:="""C:\toto.doc""", _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
 
End Sub

n°1957493
Laoo
Posté le 13-01-2010 à 12:40:15  profilanswer
 

Bonjour
 
il me semble que si tu as écrit  vraiment:
 
strFichier = "C:toto.doc"  
   
objWord.Documents.Open strFichier

 
c'est normal que ça ne marche pas,
 
par contre, ceci est déjà plus conforme, et devrait fonctionner:
 
dim strFichier as Document
 
strFichier = "C:\toto.doc"  
   
Documents.Open FileName:=strFichier  
 
ou bien  simplement:
 
   Documents.Open FileName:="C:\toto.doc"

 
 
mais je te déconseille vivement de ranger des fichiers directement dans C
 
Mets-les dans Documents, et même mieux, dans un dossier de Documents: maison, boulot, momes, travaux, etc, sinon, ingérable bientôt
 
Cordialement

n°1957497
coolkis
Posté le 13-01-2010 à 12:58:51  profilanswer
 

Bonjour Laooo,
 
Mes documents sont stockés sur un serveur, dans un dossier bien spécifique... j'ai mis C:\toto.doc juste pour donner un exemple !
 
Sinon effectivement autant pour moi, c'est une erreur de frappe pour strFichier = "C:toto.doc" !


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Résolu] Word macro qui ouvre un document

 

Sujets relatifs
[VBA Word] Extraire le 1er mot de chaque sectionmot de passe enregistré[Résolu]
[Python] [Résolu] Variables globales[WORD] créer une macro excel créan un word
[Résolu] mise en page xsl[Python] [Résolu] Liste
[RESOLU] Ascenseur qui descend et qui s'arrete besoin d'aidesuperposition de swf (insoluble)
[Resolu] Tableau nb cours par categorie (Moodle) 
Plus de sujets relatifs à : [Résolu] Word macro qui ouvre un document


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR