Discussion :

[Adgft]

Bonjour à tous.

Je reviens une nouvelle fois vers vous, car après mon premier post, j'ai un peu complété mon code VBA suite aux recommandations de certain d'entre vous.
Cependant, je suis totalement bloqué au point que je ne sais même plus quoi faire.
Je me retourne une nouvelle fois vers vous !

Je vous explique ce que j'essaie de réaliser.

En gros j'ai deux choses : un tableur Excel, avec tableaux et calculs ; et un document Word, que j'aimerais me servir comme modèle.

Je réalise des rapports. J'utilise le tableur pour réaliser les calculs et pour le moment, je copie/colle les tableaux sur Word directement. J'aimerais, à la fin de chaque rapport (qui sont diffèrent les uns des autres), envoyer directement certains tableaux à un endroit bien précis d'un modèle Word.

Sachant que j'ai plusieurs rapports à faire, il faudrait dans l’idée qu’à chaque fois ça "utilise" le modèle Word pour en créer un nouveau, en y intégrant les tableaux sélectionnés, afin de laisser "vierge" le modèle Word, pour que je puisse le réutiliser ensuite pour un autre rapport.

Dans l'idée, j'aimerais procéder ainsi :

- Une fois les calculs Excel réalisés, avoir en feuille 1 une Userform qui s'active via un bouton. Dans cet Userform, avoir une liste automatique reprenant les feuilles présentent dans le classeur (avec remplissage automatique si j’ajoute une feuille).
- Avoir avant chaque feuille une création automatique de case à cocher.

L'objectif des case à cocher : "sélectionner" une plage de cellule précise sur cette feuille (par exemple, si je coche la feuille une, selectionner le tableau "A1:C6")
Dans la Userform, avoir un bouton de commande qui me permet " d'exporter vers mon modèle Word" les plages sélectionnées vers leurs emplacements Word defini.




Mise en situation :

Je réalise mes calculs sur Excel. Je sélectionne les feuilles que je veux intégrer à mon documents Word (comme expliqué, je ne veux pas "sélectionner" l'ensemble de la feuille, mais uniquement une plage de cellule). Je clic sur le bouton de commande "export vers word" --> création d'une copie du modèle Word, et insertion des différents tableaux aux emplacements définis à l'avance sur le document Word.

Honnêtement, je me suis lancé dans un truc plus gros que moi, mais j'aimerais réussir, et sans vous, ce m'est impossible. Je n'ai pas les connaissances nécessaires.

Je ne sais pas si certain d’entre vous accepterons de m’aider, je comprendrais car, à titre personnel, je trouve que cela représente un travail monstre, donc je comprendrais si je n’ai pas de réponse.
En tout état de cause, afin de vous montrer que je travail dessus et que je ne vous demande pas simplement un « travail prémâché », vous avez en pièce jointe mon travail. Je précise que je pars de zéro, sans aucune base informatique.

Merci à vous tous, bonne année et bonne santé a vous et vos proches .
Export vers word.xlsmVoici le modèle Word.docxExport vers word.xlsmVoici le modèle Word.docxExport vers word.xlsmVoici le modèle Word.docx

[Philippe Tulliez]

Bonjour,
Personnellement pour le modèle "Word", j'utilise un document Word classique (docx) que j'ouvre comme "Modèle" ce qui offre les mêmes avantages que si l'on ouvrait un modèle (dotx) manuellement sans les inconvénients lors du sauvetage d'un modèle dans un répertoire dédié.

Ce document, je le stocke dans un sous-répertoire que j'ai nommé "Template" et tous mes documents ont des signets qui vont servir à recevoir les cellules et plages de cellules d'exel.
Dans Excel, les cellules sont nommées à l'aide du gestionnaire des noms.

Pour en savoir plus voir mon billet VBA Excel - Transférer des données d'excel vers Word

[Adgft]

Bonjour,

Tout d'abord, merci pour votre retour.

J'ai essayé mais je pense que je m'y perd sur la création de dossier et sous-dossier.

J'ai aussi un peu de mal avec "où placer" les différents codes; il y en à qui, si j'ai bien compris, je dois mettre dans un module, mais l'autre, celui qui ce nomme "exemple de procédure qui l'invoque" je ne savais pas ou le placer, je l'ai mis dans "thisWorkBook"

En tout cas, après quelques essais, j'ai ce message d'erreur qui apparait : Erreur d'exécution '5174': Erreur définie par l'application ou par l'objet

Je pense ( à tort peut-être) que c'est un problème lié à l'ouverture du document Word, mais je n'arrive pas à trouver l'origine du problème.

J'ai créé sur mon bureau un Ficher nommé "Application". J'ai mis mon Tableur Excel dedans. Ensuite, j'ai créé dans ce dossier un sous-dossier nommé Template avec mon document Word (en .docx). J'ai ensuite en autre sous-dossier nommé Document.

J'ai ensuite renseigner les différents chemins :

Const SubFolder As String = "\Template\" ' Sous-répertoire des modèles J'ai mis --> Const SubFolder As String = "C:\Users\XXX\OneDrive\Bureau\Application\Template\"
Const TemplateName As String = "Courrier.docx" ' Nom du modèle J'ai mis --> Const TemplateName As String = "Voici le modèle Word.docx"

Avez vous des pistes?

Je vous remercie, et bonne journée à vous

[Philippe Tulliez]

Bonjour,
Il faut mettre les procédure dans un module standard et pas dans ThisWorkbook ni dans les modules de feuilles.
On peut avoir une ou plusieurs procédures dans un module et on peut avoir autant de procédures standard que l'on veut dans un projet.
Il faut idéalement renommer les modules avec un nom suffisamment explicite. Un module ne peut pas avoir le même nom qu'une procédure (Sub ou Function). Personnellement, je préfixe tous mes modules par un "m" minuscule.

Pour travailler depuis excel avec word, il faut référencer a minima la bibliothèque Word mais cela je l'explique dans mon article avec une illustration.

[Adgft]

Merci de votre réponse.

J'ai transférer le code vers le module, et merci des explications.

En revanche, j'ai toujours le même code erreur :

"Erreur d'exécution '5174':

Désole ... Nous n'avons pas trouve votre fichier. Peut-être l'avez-vous
déplacé, renommé ou supprimé ?"

Cela semble venir de cette ligne : Set oDoc = oWrd.Documents.Add(Template:=FullName, NewTemplate:=False, DocumentType:=0)

J'ai re-verifié et la bibliothèque est bien référencée.

Bonne journée et merci

[Jean-Philippe André]

Salut,

Quelle est la valeur de FullName ? Le fichier est-il bien à cet emplacement.