copier -coller

[hurricane]

Bonjour forum

comment faire un copier coller de données range ("a1:ab103") d'un fichier X vers un fichier Y sans avoir le message du presse papier si on veut garder en memoire les données qui y sont

j'ai fait une recherche dans le forum j'ai pas trouvé alors je pose la question

merci d'avance

 

[dj.run]

Bonjour, hurricane,

je ne suis pa stres fort en VBA, mais j'ai deja rencontré ce probleme et si ma memoire ne me joue pas des tours, avec :

Application.CutCopyMode = False

a la fin de ton code, ça devrai marcher .


bonne programation

@+ dj.run

 

[jon]

displayalerts=false

 

[Aurél]

Salut,

Juste une petite question, ton fichier de copie, tu le ferme avant de coller ?
Si c'est le cas alors c'est normal !!!

 

[hurricane]

Oui je le ferme avant de coller et hier soir j'ai trouvé

displayalerts = false

merci

autre chose question

j'ai mis un bouton dans chaque onglet pour mettre à jour sa marche tres bien puis dans le but de gagner du temps je suis dit "un bouton pour mettre a jour tout les onglets c'est mieux" et la probleme j'ai fait des copier coller des macros dans le meme onglet j'ai fait un empilage de macros et sa bug lamentablement alors qu'au meme endroit la macro seule marche

sa bug a la fleche
si quelqu'un a une idée
merci d'avance

PS je ne peux pas compresser le fichier pour le mettre en piece jointe

@+

Private Sub CommandButton1_Click()

ChDir "C:\**********"
Workbooks.Open Filename:="C:\*********\*************.xls"
Worksheets("copy").Range("Q12:AB103").Select
Selection.Copy
Windows("*************.xls").Activate
Sheets("Days supply of BOP").Select
Range("Q12").Select <------------------------------------------------
ActiveSheet.Paste
Application.DisplayAlerts = False
Workbooks("**************.xls").Close SaveChanges:=False


Workbooks.Open Filename:="C:\***********\****************"
Worksheets("copy").Range("Q12:AB103").Select
Selection.Copy
Windows("***************").Activate
Sheets("*****************").Select
Range("Q12").Select
ActiveSheet.Paste
Workbooks("******************").Close SaveChanges:=False


Workbooks.Open Filename:="C:\**********\*************.xls"
Worksheets("copy").Range("Q12:AB104").Select
Selection.Copy
Windows("**************").Activate
Sheets("***************").Select
Range("Q12").Select
ActiveSheet.Paste
Workbooks("***************").Close SaveChanges:=False



End Sub

 

[Vériland]

Bonsoir hurricane et toi le Forum,

Au niveau du beug, essaye avec ça...

Sheets("copy").Range("Q12:AB103").Copy
Workbooks("ici le nom du fichier").Sheets("Days supply of BOP").Activate
ActiveSheet.Paste Range("Q12")

Son principe : copier la plage Q12:AB103 et la coller dans le classeur Days supply of BOP cellule A1

PS : Procédure à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

 

[Vériland]

oups!

....dans le classeur Days supply of BOP cellule Q12

bonne programmation

 

[hurricane]

salut veriland

je fait un essai dans la journée et je vous tiens au courant

@+

 

[hurricane]

Re: copier -coller merci

Bonsoir

merci veriland pour ton bout de macro sa marche

c'est top

@+ hurricane

 

[Vériland]

Re: copier -coller merci