Dernière réponse
Sujet : [vba] Comment copier le contenu d'une cellule Excel
navarro	les deux marchent  mais ta version est plus propre  et je gagne une seconde  lol   Merci mille fois

Votre réponse
Nom d'utilisateur	Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Mot de passe	Vous avez perdu votre mot de passe ? Cliquez ici !
Le ton de votre message
Votre réponse Smilies     Liste des smilies perso Wiki smilies Chercher un smiley
Options	Activer votre signature Désactiver les smilies Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

navarro

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

navarro

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

Bendes

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

navarro

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

Bendes

Faut que je regarde...

navarro

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

Bendes

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...) !!!

navarro

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

Bendes

ou bien Code : 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 Woffer.Application.Selection.Text = Range("A1:HH25" ).QQCHOSE (j'sais pas quoi) ' ca c est pr copier de excel ds excel ca marche With Worksheets("offer" )    .Range("C1:C5" ).Copy    .Range("D1 5" ).PasteSpecial End With Set Woffer = Nothing End Sub

Bendes

Code : 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.Paste ' ca c est pr copier de excel ds excel ca marche With Worksheets("offer" )    .Range("C1:C5" ).Copy    .Range("D1 5" ).PasteSpecial End With Set Woffer = Nothing End Sub

navarro

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

navarro

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

Bendes

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...

navarro

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

Bendes

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]

Bendes

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

navarro

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

navarro

j'essai ca  tt de suite on verra

Bendes

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]

navarro

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

Bendes

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

navarro

hum...je ve juste qq ch qui marche

m@nou

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 çà.

Bendes

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

navarro

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