Pb:erreur d'éxecution 1004

[kettou]

Bonjour à tous,
En ce moment je suis entrain de developper un outil sous vba qui me permet d'extraire des données à partir d'une feuille excel, mais le pb c'est que ca m'affiche une erreur d'execution 1004 lors de l'execution est ce que qq peut m'aide voila le code:
Workbooks.Open FileName:= _
"Y:\01_commun\Equipe\Jean-Louis\Etude Masse Salariale\" & List_ADV.Value & ".XLS"
Sheets(1).Activate
Cells.Select
Selection.Copy
Windows("tbprodrcs.xls").Activate
Sheets("brute").Select
Cells.Select
ActiveSheet.Paste
Amicalement

 

[kettou]

Re : Pb:erreur d'éxecution 1004

Bonjour



Ca marche aussi comme cela (en évitant les Select)

(cette macro copie uniquement la plage en cours de la feuille et la colle non pas en
A1 mais dans la cellule équivalent à la 1ère cellule de la plage active de la feuille source)

(Attention; adapter le nom du chemin et des fichiers )

Sub test()
Dim pl&, pc&, wb As Workbook

Set wb = Workbooks.Open("C:\Temp\testOOO.xls")
With wb.Sheets(1).UsedRange
    pl = .Rows(1).Row
    pc = .Columns(1).Column
    .Copy Workbooks("tbprodrcs.xls").Sheets(1).Cells(pl, pc)
End With

End Sub

Parfait impec exceptionnel je ne sais pas l autre programme pourquoi ca ne marche pas mais celui il é nickel
juste un dernier truc comment je fais pour fermer le classeur une fois que g finis de l'utiliser
Merci
infiniment

 

[mromain]

Re : Pb:erreur d'éxecution 1004

il faut rajouter
wb.Close False

a+

 

[vbacrumble]

Re : Pb:erreur d'éxecution 1004

Re


J'allais le dire ou plutôt l'écrire

Merci à mromain de l'avoir fait à ma place.

PS: Dans le même veine que mromain,
j'avais testé précédemment d'ou ensuite ma rectification par rapport à A1

Sub test()
Workbooks.Open Filename:="C:\Temp\testOOO.xls"
Sheets(1).UsedRange.Copy Workbooks("tbprodrcs.xls").Sheets(1).Range("A1")
End Sub

Donc normalement la macro de mromain doit fonctionner aussi

 

[kettou]

Re : Pb:erreur d'éxecution 1004

il faut rajouter
wb.Close False

a+

Merci romain pour cette aide précieuse, est que vous pouvez m expliquer cette erreur afin de ne pas vous deranger dans ce forum avec mes problémes vba!!! parceque ca repercute sur d autre programme similaire de ma macro le meme message d'erreur 1004 pb de methode avec range

 

[kettou]

Re : Pb:erreur d'éxecution 1004

Bonjour à tous,
Voici le probléme qui persiste :
Private Sub Cmd_ADV_Click()


Dim pl&, pc&, wb As Workbook

Set wb = Workbooks.Open("Y:\01_commun\Equipe\Jean-Louis\Etude Masse Salariale\" & List_ADV.Value & ".XLS")
With wb.Sheets(1).UsedRange
pl = .Rows(1).Row
pc = .Columns(1).Column
.Copy Workbooks("tbprodrcs.xls").Sheets("brute").Cells(pl, pc)
End With
wb.Close False



Windows("tbprodrcs.xls").Activate

Sheets("brute").Select
Range("A2:E30").Select------> c'est ace niveau la qui persiste pb 1004 pb de methode select

Selection.Copy
Sheets("Fiche ADV").Select
Range("A3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("brute").Select
Range("F2:M30").Select
Selection.Copy
Sheets("Fiche ADV").Select
Range("F3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("brute").Select
Range("N2:R30").Select
Selection.Copy
Sheets("Fiche ADV").Select
Range("O3").Select
ActiveSheet.Paste
Application.CutCopyMode = False



End Sub
amicalement