Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1729 connectés 

  FORUM HardWare.fr
  Programmation

  [vba] Comment copier le contenu d'une cellule Excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[vba] Comment copier le contenu d'une cellule Excel

n°52223
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 10:12:35  profilanswer
 

J'aimerais savoir par exemple comment copier le contenu le la case A1  dans un document Word  
 
Merci


---------------
Une ptite aide en VB et jVBien
mood
Publicité
Posté le 10-08-2001 à 10:12:35  profilanswer
 

n°52224
Bendes
Posté le 10-08-2001 à 10:18:56  profilanswer
 

Tu veux passer par le presse papier pour que dans Word tu puisse le récupérer ou ien le faire en live & direct ???

n°52225
m@nou
vu z'avais pas vu
Posté le 10-08-2001 à 10:19:09  profilanswer
 

Par DDE çà marche sûr mais c un peu veillot :D et même pas sur que tu puisses écrire exactement où tu veux.
Je chercherais du côté OLE :??:
 
Mais j'ai jamais fait çà.


---------------
Mes photos,Feed-Back HA/V
n°52226
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 10:20:33  profilanswer
 

hum...je ve juste qq ch qui marche


---------------
Une ptite aide en VB et jVBien
n°52227
Bendes
Posté le 10-08-2001 à 10:26:12  profilanswer
 

Donne-moi juste des infos en plus car j'pense avoir une soluce...
 
- Tu code dans Excel ?
- Tu sais obtenir une variable Word.Application ???

n°52229
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 10:31:08  profilanswer
 

en fait comme avec le publipostage ca marche pas  
je le contourne
je ve copier tte mes donnees ds une feuille excel
puis je copie tt le contenu de cette feuille ds un document Word  
 
J ai essaier la Macro automatique  maís comme je suis dans Excel (oui je code ds Execl) il me prends pas en compte le "coller " ds Word ggrrr
 
non je sais pas obtenir une variable Word application
 
Merci pour ton aide


---------------
Une ptite aide en VB et jVBien
n°52230
Bendes
Posté le 10-08-2001 à 10:35:52  profilanswer
 

J'ai pas tester, c'est juste une idée ou une piste :
 
Set Woffer = GetObject(, "Word.Application" )
 
Woffer.Application.Selection.Text = TaCellule
 
ou
 
Woffer.Selection.Text = TaCellule
 
Y a surement des trucs à rajouter ou à modifier...

 

[edtdd]--Message édité par Bendes--[/edtdd]

n°52231
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 10:37:56  profilanswer
 

j'essai ca  tt de suite on verra


---------------
Une ptite aide en VB et jVBien
n°52240
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 11:17:33  profilanswer
 

ca marche pas ca  
 
Woffer.Application.Selection.Text = TaCellule
 
ou
 
Woffer.Selection.Text = TaCellule
 
t'as pas une autre idee?
Merci


---------------
Une ptite aide en VB et jVBien
n°52241
Bendes
Posté le 10-08-2001 à 11:32:08  profilanswer
 

Comme j'ai dit, j'ai pas testé, ça devrais te servir de piste...
 
Et j'ai pas autre idée...

mood
Publicité
Posté le 10-08-2001 à 11:32:08  profilanswer
 

n°52242
Bendes
Posté le 10-08-2001 à 11:34:52  profilanswer
 

Explique-moi tj le comportement ou l'erreur...On ne sait jamais que peut me donner une idée...

 

[edtdd]--Message édité par Bendes--[/edtdd]

n°52243
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 11:37:36  profilanswer
 

ben ca selectionne tout conne ca devrait  
je lance la macro pas a pas et tt vas mais le prob c que ca copie rien ds le .doc
 
je pense qu il fo essayer PasteSpecial  mais je connais pas la syntaxe


---------------
Une ptite aide en VB et jVBien
n°52244
Bendes
Posté le 10-08-2001 à 11:41:05  profilanswer
 

Si c'est pas "top secret", tu sais pas me lacher l'essentiel de ton code ??? En y jettantu coup d'oeil, se sera plus facile pour t'ider...

n°52245
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 11:43:37  profilanswer
 

ok
 
Sub Copie()
 
Dim Wordoffer As String
Dim Woffer As Object
 
Wordoffer = ThisWorkbook.Sheets("Offer" ).[fileCopie]
 
  On Error Resume Next
Set Woffer = GetObject(, "Word.Application" )
Set Woffer = GetObject(ThisWorkbook.Path + "\" + Wordoffer)
 
Woffer.Application.Visible = True   ' Open  Word
Woffer.Application.Activate
 
   Range("A1:H25" ).Select
   Selection.Copy
 
 
 
Woffer.Application.Selection.PasteSpecial = Range("A1:H25" )
 
' ca c est pr copier de excel ds excel ca marche
With Worksheets("offer" )
    .Range("C1:C5" ).Copy
    .Range("D1:D5" ).PasteSpecial
 
End With
 
 
 Set Woffer = Nothing
 
End Sub


---------------
Une ptite aide en VB et jVBien
n°52246
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 11:44:34  profilanswer
 

zut ca a fait un smiley  c pas volontaire[quote]


---------------
Une ptite aide en VB et jVBien
n°52248
Bendes
Posté le 10-08-2001 à 11:51:40  profilanswer
 

Code :
  1. Sub Copie()
  2. Dim Wordoffer As String
  3. Dim Woffer As Object
  4. Wordoffer = ThisWorkbook.Sheets("Offer" ).[fileCopie]
  5. On Error Resume Next
  6. Set Woffer = GetObject(, "Word.Application" )
  7. Set Woffer = GetObject(ThisWorkbook.Path + "\" + Wordoffer)
  8. Woffer.Application.Visible = True   ' Open  Word
  9. Woffer.Application.Activate
  10.   Range("A1:H25" ).Select
  11.   Selection.Copy
  12. Woffer.Application.Selection.Paste
  13. ' ca c est pr copier de excel ds excel ca marche
  14. With Worksheets("offer" )
  15.    .Range("C1:C5" ).Copy
  16.    .Range("D1 5" ).PasteSpecial
  17. End With
  18. Set Woffer = Nothing
  19. End Sub

n°52249
Bendes
Posté le 10-08-2001 à 11:53:29  profilanswer
 

ou bien

Code :
  1. Sub Copie()
  2. Dim Wordoffer As String
  3. Dim Woffer As Object
  4. Wordoffer = ThisWorkbook.Sheets("Offer" ).[fileCopie]
  5. On Error Resume Next
  6. Set Woffer = GetObject(, "Word.Application" )
  7. Set Woffer = GetObject(ThisWorkbook.Path + "\" + Wordoffer)
  8. Woffer.Application.Visible = True   ' Open  Word
  9. Woffer.Application.Activate
  10. Woffer.Application.Selection.Text = Range("A1:HH25" ).QQCHOSE (j'sais pas quoi)
  11. ' ca c est pr copier de excel ds excel ca marche
  12. With Worksheets("offer" )
  13.    .Range("C1:C5" ).Copy
  14.    .Range("D1 5" ).PasteSpecial
  15. End With
  16. Set Woffer = Nothing
  17. End Sub

n°52250
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 11:55:43  profilanswer
 

bingo  merci  la premiere soluc est la bonne  ca marche  merci bcp Bendes  :jap:


---------------
Une ptite aide en VB et jVBien
n°52251
Bendes
Posté le 10-08-2001 à 11:58:12  profilanswer
 

De rien, ça met un peu de temps mais j'suis pas expert en VBA, j'connais un peu plus en VBA Word (car j'suis sur un projet là-dedans) mais en VBA Excel, j'y connais rien ('fin c'est + ou - la même chose que VBA Word à part quelque objets...) !!!

n°52252
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 12:00:02  profilanswer
 

en tout cas Merci
 
euh...et pour efaccer tt un document Word
 
Woffer.Application.Selection.Delete  marche pas  
 
t'as une idee?


---------------
Une ptite aide en VB et jVBien
n°52253
Bendes
Posté le 10-08-2001 à 12:01:05  profilanswer
 

Faut que je regarde...

n°52254
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 12:02:16  profilanswer
 

Ds Word ca donne ca  
 
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
 
mais ds Excel ???


---------------
Une ptite aide en VB et jVBien
n°52256
Bendes
Posté le 10-08-2001 à 12:06:56  profilanswer
 

Moi j'ai un truc du style :
 
Woffer.Application.ActiveDocument.Select
Woffer.Application.Selection.Delete

n°52257
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 12:07:38  profilanswer
 

je viens de trouver  
 
Woffer.Application.Selection.WholeStory
Woffer.Application.Selection.Delete Unit:=wdCharacter, Count:=1
 
 
mais je test le tiens


---------------
Une ptite aide en VB et jVBien
n°52258
navarro
Tjs apprendre, jamais dépendre
Posté le 10-08-2001 à 12:12:11  profilanswer
 

les deux marchent  mais ta version est plus propre  et je gagne une seconde  lol
 
Merci mille fois


---------------
Une ptite aide en VB et jVBien
mood
Publicité
Posté le   profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  [vba] Comment copier le contenu d'une cellule Excel

 

Sujets relatifs
Action OLE dans Word et Excel c'est quoi?[Excel] Generalite formatage d'une cellule en String
[VB] Connaître le ligne de la cellule activePropriété VBA Excel
VB sous EXCEL comment faire pour afficher la feille tjs au m endroit?[VB] Transformer un fichier excel en un éxécutable
probleme F sur excelen javascript ou html>> un e cellule a couleur degradé c'est possible?
Plus de sujets relatifs à : [vba] Comment copier le contenu d'une cellule Excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR