Puis il convient d'écrire les données: * pour écrire à partir du signet "SIGNET_A CREER_DANS_DOCUMENT_WORD" (ici le contenu de la cellule A2: With WordApp. Visible = False. What:=wdGoToBookmark, Name:="SIGNET_A CREER_DANS_DOCUMENT_WORD". Selection.
vbjpc Messages postés 7 Date d'inscription mercredi 1 novembre 2000 Statut Membre Dernière intervention 3 avril 2012 - 22 mai 2009 à 10:42 24 mai 2009 à 09:48 Bonjour, Je n'ai pas de problème pour ouvrir un fichier Word depuis une macro Excel. Piloter word depuis Excel : MoveLeft | Excel-Downloads. Par contre, j'ai un problème pour accéder à un fichier Word déjà ouvert. Pouvez-vous me donner un exemple de code qui me permet de tester si un document Word est déjà ouvert et si oui comment y accéder. Le tout depuis VBA Excel Merci exode42 4 dimanche 8 juillet 2007 25 juillet 2009 23 mai 2009 à 11:47 Bonjour vbjpc, J'ai peut-être trouvé un bout de code qui pourrait t'aider: Visiblement pour piloter un document office déjà ouvert il faut utiliser la fonction getObject: Dim WordDoc As cument Set WordDoc = GetObject("") Bon courage 23 mai 2009 à 13:39 Bonjour exode42 et merci Ca ne marche pas mais j'ai pas approfondi. Voici mon code qui marche très bien Sub Q04() Repertoire = & "" Dim appWD As lication Dim docWD As cument Set appWD = CreateObject("lication") sible = True (Repertoire & "Décompte ") Set appWD = Nothing End Sub Mais comment faire si le document est déjà ouvert?
Ensuite, nous écrivons "Test de fonctionnement". Ca peut s'écrier plutôt comme ceci, c'est plus facile: Selection. TypeText "Test de fonctionnement" Ensuite, nous avons une ligne de commande proprement monstrueuse: C'est la ligne de commande de sauvegarde. Piloter word depuis excel 2013. Il n'y a pas besoin d'autant de trucs: FileName:="Simple ", FileFormat:= _ Car l'enregistreur de macros n'a pas fait dans le détail, il a précisé plein de choses non nécessaires, comme le fait qu'il n'y a pas de mot de passe en lecture, ni en écriture, qu'il faut l'ajouter à la liste des derniers fichiers utilisés, etc. etc. On va donner des grands coups de sccien là-bas dedans: "Simple " Est bien suffisant. Par contre, on va ajouter "Mes documents", histoire d'avoir un code clair, qui précise bien l'endroit ou il fau sauvegarder ce document: "C:\Mes Documents\Simple " Ensuite, on ferme le document, là, il n'y a rien a changer Finalement, nous avons un code vraiment plus simple. Voici la nouvelle version qui marche tout autant: "Simple " Ajout de commentaires Documentons-le, histoire que de clair, il passe à limpide: ' Création d'un nouveau document: ' Ecriture d'un petit texte dans ce nouveau document: ' Sauvegarde de ce document ainsi créé: ' Fermeture de ce document: Corrigez votre code VBA à la main.
Il nous faut une nouvelle variable-objet. C'est à dire un emplacement mémoire ou va se placer une sorte de Word, qui sera appelée "Instance de Word". Si des termes vous échappent, ce n'est pas grave, suivez simplement les étapes, et petit à petit vous allez mieux comprendre. je sais que ce n'est as évident, mais on ne s'improvise pas programmeur-objet en 3 minutes... Dim MonBeauWord As Object Dès maintenant, nous disposons d'un espace-mémoire destiné à contenir une sorte de Word, appelé donc Instance de Word. Nous allons ensuite libérer cette mémoire, en lui disant que finalement, cette variable n'est égale à rien du tout: Set MonBeauWord = Nothing Exécutez cette Macro: Elle ne fait strictement rien de visible (d'ailleurs, elle ne fait vraiment pas réellement grand chose d'ailleurs), mais elle ne doit pas générer d'erreur. Pilotez Word depuis Excel. Maintenant, nous allons préciser que cette variable MonBeauWord est en fait justement cette fameuse instance de Word: Set MonBeauWord = New lication ' Si vous obtenez une erreur, écrivez plutôt: ' Set MonBeauWord = CreateObject("lication") Set MonBeauWord = Nothing Définition de la référence VBA Word 9.
J'ai essayé la propriété "OnAction", mais Word ne trouve pas les macros Cdt
MonBeauWord. Selection. TypeText "Test de fonctionnement" "C:\Mes documents\Simple " Et voilà. Pour voir si ça marche, essayez de changer juste le nom du fichier: " C'est super, ça marche!!! " Et le nom du fichier: Documents\ Simple " C'est terminé! Exécutez la Macro: Elle va vite, et on ne voit pas grand chose... Mais allez dans l'explorateur, allez voir ce qui se passe dans C:\Mes Documents... Piloter word depuis excel vba. Il y a bien un fichier nommé Simple? Oui? Ouvrez-le! Suspense... Il contient bien "Test de fonctionnement" BINGO!!! Il est possible d'afficher Word: Sub AfficheWord() Dim MonBeauWord As New lication MonBeauWord. WindowState = wdWindowStateMaximize MonBeauWord. Visible = True Il est aussi possible d'y faire tourner une macro (Qui se trouve alors dans, forcément, sinon, il faudrait auparavant ouvrir le document qui contient la macro concernée) Sub ExecuteMacroWordWord() "EcrireUneLettre" End Sub