Discussion :

[Philippe Tulliez]

Bonjour,

Merci pour les indications mais que dois je changer pour que cela fonctionne

Rien
Voir ma demande de renseignements dans le fil #17

[bruthe]

J'ai essayé autre chose dont voici le code
J'arrive bien à ouvrir mon fichier word mais pas à y coller mon tableau au signet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub exportDonneesDansSignetsWord()
 
    Dim AppWord As Word.Application
    Dim WordDoc As Word.Document
    Dim i As Byte
 
    Set AppWord = CreateObject("word.application")                              'ouvre session word
    Set WordDoc = AppWord.Documents.Open("C:\Users\b_leb\OneDrive\Documents\PROJET DTO\FSMT-2.docm")       'ouvre document Word Attention au chemin!!
    AppWord.Visible = True 'word affiché pendant l'operation
    For i = 1 To 2
        Range("B3:D9").Copy
        'les signets du document Word sont nommés Tableau1, Tableau2
        WordDoc.Bookmarks("Tableau1" & i).Range.Select
        AppWord.Selection.Paste
    Next i
 
    AppWord.Visible = True 'affiche le document Word
    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'AppWord.Quit 'ferme la session Word
End Sub

[Philippe Tulliez]

Bonjour,
Je ne vois pas ce que ma réponse à Menhir vient faire dans ce fil.

J'ai essayé autre chose dont voici le code
J'arrive bien à ouvrir mon fichier word mais pas à y coller mon tableau au signet

Si tu as essayé autre chose et que cela fonctionne, c'est parfait, tu peux donc clore la discussion mais cela ne semble pas le cas.
Le code que j'ai proposé, je l'ai testé comme tous ce que je publie et donc je eux t'affirmer qu'il fonctionne parfaitement si tu suis les contraintes que j'ai données
Si tu veux essayer autre chose, libre à toi je n'en prends pas ombrage mais alors j'arrête de t'aider dans cette discussion car je ne vais pas me taper chaque fois des tests mais rassure toi, d'autres prendront peut-être le relais, je ne suis pas le seul contributeur.

Autres choses
Lis-tu ce que j'écris ?
Dans le #fil 17, j'ai posé plusieurs questions auxquelles tu n'as pas répondus et qui permettrait de cerner le problème que tu rencontres avec mon code

Il y a des règles sur ce forum dont certaines facilitent les échanges entre les participants dont la mise du code entre les balises et je te l'ai écris également dans le même fil et tu n'en tiens pas compte en continuant à publier le texte d'une façon brute ce qui est extrêmement désagréable à lire

[bruthe]

Je suis désolé de te faire perdre du temps mais comme je l'ai dit précédemment je débute
le classeur Excel qui contient à la fois le code VBA et les cellules ou plage de cellules nommées : C:\Users\b_leb\OneDrive\Documents\PROJET DTO\test1.xlsm
répertoire se trouve le document suffixé docx qui contient les signets : C:\Users\b_leb\OneDrive\Documents\PROJET DTO\FSMT.docm
Merci de publier le chemin complet et le nom des fichiers Word et Excel avec leur suffixe

[Philippe Tulliez]

Bonjour,
Et bien voilà
Le fichier Excel nommé test1.xlsm est dans le répertoire C:\Users\b_leb\OneDrive\Documents\PROJET DTO
Le fichier Word nommé FSMT.docm est dans le répertoire C:\Users\b_leb\OneDrive\Documents\PROJET DTO
donc c'est tout à fait normal qu'il se mette en erreur

Si tu relis ce que j'ai écris dans le #fil 10 tu comprendras tout de suite la raison de l'erreur et j'ai ajouté que c'était documenté dans la procédure
Le sentiment que j'ai, c'est que tu ne lis pas ce que l'on t'écrit et que tu te contentes de faire du copier/coller

Pour résumer, tu dois placer le document Word dans un sous-répertoire nommé Template de ton répertoire nommé PROJET DTO et pour qu'il ouvre le document Word nommé FSMT.docm, tu dois modifier la valeur de la constante TemplateName qui pour l'instant à pour valeur Courrier.Docx sinon tu auras à nouveau une erreur

[bruthe]

C'est vrai que l'on a ses habitudes
Je n'utilise jamais Call mais directement le nom de la procédure alors d'autres l'utilise


C'est effectivement une autre approche que je n'ai jamais utilisée.

Bonjour,

Je te remercie pour ton aide.
Cette nuit j'ai repris ton code ligne par ligne pour comprendre et maintenant ca fonctionne et je vais continuer à travailler dessus pour ajouter des fonctionnalités

Encore merci et à bientôt

[Philippe Tulliez]

Bonjour,
Magnifique
Merci pour ton retour et n'oublie pas de mettre le statut de cette discussion comme résolue