Pb:erreur d'éxecution 1004

Re : Pb:erreur d'éxecution 1004

vbacrumble à dit:

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 )

Code:

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

Cliquez pour agrandir...

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

Re : Pb:erreur d'éxecution 1004

il faut rajouter
wb.Close False

a+

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

Donc normalement la macro de mromain doit fonctionner aussi

Re : Pb:erreur d'éxecution 1004

mromain à dit:

il faut rajouter
wb.Close False

a+

Cliquez pour agrandir...

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

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