Discussion :

[maherom]

bonjour,
SVP j'aimerais avoir un macro qui enregistre le tableau de la feuille compte-rendue journalier de A1:Q34 sur un fichier word qui prend le nom Rpj23 02 09 soit la date de l'enregistrement et Rpj soit le nom du rapport journalier dont les fichiers sont ci_joint.


cordialement.

[Invité]

Bonjour et bienvenue sur le forum Office de DVP

Le forum dispose de nombreuses FAQ sur Excel et Word, entre autre on peut trouver des choses de ce style dans la FAQ Word : http://word.developpez.com/faq/index...portTableExcel

Philippe

[Didier Gonard]

Bonjour,

- pas mal de personnes n’ouvrent pas les fichiers joints, vois dans les autres messages les approches employées sans (code + balises etc...), ça ouvre plus de portes.

- Le plus efficace au début est de lire les règles :
- http://club.developpez.com/regles/
- Loin d’exister pour rebuter, elles permettent de gagner beaucoup de temps et de pertinence dans les résultats, comme toute chose quand on sait comment elle fonctionne.

bonjour,
SVP j'aimerais avoir un macro qui enregistre le tableau de la feuille compte-rendue journalier de A1:Q34 sur un fichier word qui prend le nom Rpj23 02 09 soit la date de l'enregistrement et Rpj soit le nom du rapport journalier dont les fichiers sont ci_joint.


cordialement.

justement, dans les règles :

« Nous ne sommes pas là non plus pour faire vos exercices.
Entendez par là que nous serons bien évidemment tout à fait d'accord de vous aider à résoudre votre problème, pour autant que vous fassiez vous-même des efforts.
Postez votre question, mais proposez également un début de solution, un bout de code, etc. En aucun cas, nous ne ferons le travail à votre place. »

Il y a pas mal de contributeurs dont le métier est de construire des solutions pour les entreprises (ou autres), ils participent dans une idée d’échanges positifs, mais faire des soluces clefs en main suite à une demande de mission de 3 lignes et la fourniture des fichiers ad-hoc, c’est se saborder.

Donc vois tout ça et fait tes demandes sur des points précis où tu buttes et c’est avec plaisir nous te fournirons des réponses quand on les possède, comme a commencé à le faire Philippe…

cordialement,

Didier

[maherom]

bonjour à tous,
j'espère que je vous ai pas déranger car je suis un débutant en excel et je suis nul en vba mais j'espère en lisons un peu et en décortiquons des petites applications je m'en sortira
de toute les façons j'ai écris ce code voila j'ai eu ce message "Objet requis"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ouvrir_word()
Set ww = CreateObject("word.application")
ww.Visible = True
ww.documents.Add
 
Range("A1:Q34").Select
    Selection.Copy
 
WordApp.Selection.Paste
    WordDoc.Tables(1).AutoFitBehavior wdAutoFitWindow
 
    Application.CutCopyMode = False
 
End Sub

[DeaD78]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
Set ww = CreateObject("word.application")
ww.Visible = True
ww.documents.Add
 
Range("A1:Q34").Select
    Selection.Copy
 
ww.Selection.Paste
 
Application.CutCopyMode = False

Tu crées un objet de type Word.Application s'appelant ww. Il faut donc travailler avec cet objet et non WordApp.

Bref, ce code marche, j'ai testé.

a+

[maherom]

bonjour à tous;
j'ai essayé d'introduire ce code mais toujours il m'indique Erreur de compilation instruction incorrecte à l'extérieur d'une procédure .
que dois je faire et où je vais mettre ce code dans module ou dans feuille1 ou thisworkbook pour pouvoir faire le bouton de commande voulez vous me guider SVP
cordialement.

[maherom]

bonjour à tous;
voila j'ai exécuté ce macro bon sa marche mais le problème ce il faut que la copie soit un image et que l'orientation de la feuille de word soit en mode paysage pour que le tableau se colle bien sur la feuille merci.
cordialement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub selectionfeuilleleActive()
 
Set ww = CreateObject("word.application")
ww.Visible = True
ww.documents.Add
 
Range("A1:Q34").Select
 
    Selection.Copy
 
ww.Selection.Paste
 
 Application.CutCopyMode = False
End Sub

[DeaD78]

Re,

Lance l'enregistreur de macros sous Word et mets ta feuille en paysage. Tu pourras alors adapter dans ton code Excel.

A+

[maherom]

bonjour,
voila je crois que je vous embête par mes questions qui sont pour vous banale alors pour moi sont un peut difficile car je connais pas beaucoup en code VBA.
bon j'ai fais comme vous m'avais suggéré mais au moment de exécution un message apparait: erreur exécution '424' :Objet requis.
voici le code:

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
Sub selectionfeuilleleActive()
 
  Set Ww = CreateObject("word.application")
  Ww.Visible = True
  Ww.documents.Add
 
  Range("A1:Q34").Select
  Selection.Copy
 
  Ww.Selection.Paste
 
  WordBasic.TogglePortrait Tab:=3
 
  Application.CutCopyMode = False
 
End Sub