[Résolu] Word macro qui ouvre un document

Word macro qui ouvre un document [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 11-01-2010 à 13:10:40    

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
Reply

Marsh Posté le 11-01-2010 à 13:10:40   

Reply

Marsh Posté le 11-01-2010 à 14:58:16    

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"

Reply

Marsh Posté le 11-01-2010 à 15:33:04    

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 ?

Reply

Marsh Posté le 13-01-2010 à 12:03:47    

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

Reply

Marsh Posté le 13-01-2010 à 12:40:15    

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

Reply

Marsh Posté le 13-01-2010 à 12:58:51    

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" !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed