Copie d'une feuille excel dans Word

[matthieu2701]

Bonjour,

Dans la feuille "Copie", j'ai des copies d'écran. J'aimerais que ces copies d'écran se collent dans Word puis s'enregistre dans un dossier que j'ai défini.

Le word se cré bien et il va s'enregistrer dans le dossier que je souhaite.

Par contre, les copies d'écran n' apparaissent pas comme il faut. Soit elles sont trop petites soit elle apparaissent pas du tout.

La macro s'appelle "ecran".

En espérant que vous puissiez m' aider.

Merci

Matthieu

 

[sousou]

Re : Copie d'une feuille excel dans Word

Bonjour matthieu2701
Je te propose d'essayer cette solution
'Coller la feuille dans Word
For Each i In Sheets("copie").Shapes
i.Copy
WdApp.Selection.Paste
Next

 

[matthieu2701]

Re : Copie d'une feuille excel dans Word

Bonjour matthieu2701
Je te propose d'essayer cette solution
'Coller la feuille dans Word
For Each i In Sheets("copie").Shapes
i.Copy
WdApp.Selection.Paste
Next

Merci pour la réponse.

Je le met à l'endroit ou j'ai 'Coller la feuille dans Word ?

Le reste de ma macro peux rester comme ça ou je doit modifier autre chose ?

 

[sousou]

Re : Copie d'une feuille excel dans Word

RE
Oui je n'est rien touché au reste
Chaque image sera collée dans ta feuille, mais en fonctions de la taille de tes images, tu as des sauts de pages pas très extétiques

 

[matthieu2701]

Re : Copie d'une feuille excel dans Word

RE
Oui je n'est rien touché au reste
Chaque image sera collée dans ta feuille, mais en fonctions de la taille de tes images, tu as des sauts de pages pas très extétiques

Oui je sais que c'est pas très jolie. Y a possibilité que cela soit plus esthétique ?

Les copies d'écran peuvent être placés n importe ou sur la feuille "copie" ?

 

[Staple1600]

Re : Copie d'une feuille excel dans Word

Bonsoir à tous

Une petite remarque au passage:
M. ARNOLD n'apprécierait peut-être pas de savoir que son N° de dossier, son N° PCE, et autres données (qui semblent confidentielles) se promènent sur un forum publique, même si celui-ci s'appelle XLD, non 😕😕

NB: Mais elles sont fictives, alors ouf 😉

EDITION: Quoique ceci n'a rien de fictif: mathieu.v_______te@e**f-g***.fr, non ?

 

[Staple1600]

Re : Copie d'une feuille excel dans Word

Re

[h=1]matthieu2701[/h]Puisque j'ai ouvert ta PJ, autant mettre le nez dans le cambouis.
Voici ma version de RAZ. Qu'en penses-tu ?

Sub RAZ()
Sheets("Calcul Echéancier").Range("A7,C7:E7,G7:I7,B8:C8,D9:E9,I9:J9,H14:J6") = Empty
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Copie").Delete
    Application.DisplayAlerts = True
Sheets("Calcul Echéancier").Select
Range("A7").Select
End Sub

 

[matthieu2701]

Re : Copie d'une feuille excel dans Word

Re

[h=1]matthieu2701[/h]Puisque j'ai ouvert ta PJ, autant mettre le nez dans le cambouis.
Voici ma version de RAZ. Qu'en penses-tu ?

Sub RAZ()
Sheets("Calcul Echéancier").Range("A7,C7:E7,G7:I7,B8:C8,D9:E9,I9:J9,H14:J6") = Empty
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Copie").Delete
    Application.DisplayAlerts = True
Sheets("Calcul Echéancier").Select
Range("A7").Select
End Sub

Ça réinitialiser les parties de la feuilles "calcul échéancier" et la feuille "copie" ?

Je testerais demain et je te dis.

 

[Staple1600]

Re : Copie d'une feuille excel dans Word

Re

matthieu2701
tu n'as pas vu mon précédent message?
avant celui avec la macro ?

 

[matthieu2701]

Re : Copie d'une feuille excel dans Word

Re

matthieu2701
tu n'as pas vu mon précédent message?
avant celui avec la macro ?

La copie d'écran avec le numéro de dossier et le le PCE ne correspondont pas au même client que les deux autres.

 

[Staple1600]

Re : Copie d'une feuille excel dans Word

Bonjour à tous

matthieu2701
Et ce n'est pas confidentiel?
Et ton adresse mail dans le code VBA, non plus?

Si je t'alerte là-dessus, c'est simplement à cause du point 5 de la charte de forum.

5 – La possibilité de joindre des fichiers est donnée sur ce forum.
Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

 

[matthieu2701]

Re : Copie d'une feuille excel dans Word

Ah oui. J'ai oublié de l'enlever.

 

[Staple1600]

Re : Copie d'une feuille excel dans Word

Re

matthieu2701
J'ai édité (donc ajouter une précision importante) dans mon précédent message.
Je te laisse la découvrir.

Ça réinitialiser les parties de la feuilles "calcul échéancier" et la feuille "copie" ?

Je testerais demain et je te dis.

Testes et tu verras ce que cela donne, non ? 🙄

PS: Je te signale (amicalement 😉 ) que je suis parti d'une macro nommée RAZ présente dans ta pièce jointe.
Tu dois savoir à quoi elle sert, non ????

 

[matthieu2701]

Re : Copie d'une feuille excel dans Word

Re

matthieu2701
J'ai édité (donc ajouter une précision importante) dans mon précédent message.
Je te laisse la découvrir.

Merci pour l'information. J'ai supprimé le fichier.

 

[Staple1600]

Re : Copie d'une feuille excel dans Word

Re

matthieu2701
Pourquoi supprimer le fichier ??
Il suffit de le remplacer par un fichier anonymisé avec un nom comme JEAN-PIERRE TOTO et avec des copies d'écrans tout bêtes ne contenant que des données fantaisistes.
(Puisque le but ici est de copier des images à partir d'Excel dans un document Word)

Sinon sur quel fichier allons-nous faire nos tests en vue de t'aider à résoudre ta question ?