Word macro qui ouvre un document [Résolu] - VB/VBA/VBS - Programmation
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"
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 ?
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
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
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" !
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