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

 

[mromain]

Re : Pb:erreur d'éxecution 1004

bonjour kettou,

à tester:

With Workbooks.Open("Y:\01_commun\Equipe\Jean-Louis\Etude Masse Salariale\" & List_ADV.Value & ".XLS")
    .Sheets(1).Cells.Copy Workbooks("tbprodrcs").Sheets("brute").Range("A1")
    '.Close False
End With

a+

 

[RENAUDER]

Re : Pb:erreur d'éxecution 1004

Bonjour,
Est-ce que ton fichier tbprodrcs.xls est ouvert ?
Il faut qu'il soit absolument ouvert car tu fais un Windows("tbprodrcs.xls").Activate

 

[kettou]

Re : Pb:erreur d'éxecution 1004

Merci pour votre attention,
mais le pb persiste encore erreur d'execution 9 l'indice n appartient pas a la selection

 

[mromain]

Re : Pb:erreur d'éxecution 1004

re,

malgré la remarque de RENAUDER ? (que je salue au passage)

a+

 

[kettou]

Re : Pb:erreur d'éxecution 1004

Bonjour,
Est-ce que ton fichier tbprodrcs.xls est ouvert ?
Il faut qu'il soit absolument ouvert car tu fais un Windows("tbprodrcs.xls").Activate

le fichier tbprodrcs.xls c'est le fichier ou j'effectue la macro donc il est tjs ouvert
Merci

 

[mromain]

Re : Pb:erreur d'éxecution 1004

re,

essaye

MsgBox "Y:\01_commun\Equipe\Jean-Louis\Etude Masse Salariale\" & List_ADV.Value & ".XLS"

et vérifie que le chemin et nom de fichier sont correct.

a+

 

[RENAUDER]

Re : Pb:erreur d'éxecution 1004

Bonjour,
Je n'ai rien changé dans ton code sauf le nom de fichier et ça fonctionne.
Mon code

Sub test()
    Workbooks.Open Filename:= _
                   "C:\Excel\Formules pour filles\Formules Catherine.xls"
    Sheets(1).Activate
    Cells.Select
    Selection.Copy
    Windows("tbprodrcs.xls").Activate
    Sheets(1).Select
    Cells.Select
    ActiveSheet.Paste
End Sub

 

[kettou]

Re : Pb:erreur d'éxecution 1004

re,

essaye

MsgBox "Y:\01_commun\Equipe\Jean-Louis\Etude Masse Salariale\" & List_ADV.Value & ".XLS"

et vérifie que le chemin et nom de fichier sont correct.

a+

le chemin du fichier est correct g fais un debug.print avant

 

[kettou]

Re : Pb:erreur d'éxecution 1004

Bonjour,
Je n'ai rien changé dans ton code sauf le nom de fichier et ça fonctionne.
Mon code

Sub test()
    Workbooks.Open Filename:= _
                   "C:\Excel\Formules pour filles\Formules Catherine.xls"
    Sheets(1).Activate
    Cells.Select
    Selection.Copy
    Windows("tbprodrcs.xls").Activate
    Sheets(1).Select
    Cells.Select
    ActiveSheet.Paste
End Sub

alors pour koi ca ne marche pas l'erreur s affiche au niveau Cells.Select

 

[mromain]

Re : Pb:erreur d'éxecution 1004

et avec ce code ?

With Workbooks.Open("Y:\01_commun\Equipe\Jean-Louis\Etude Masse Salariale\" & List_ADV.Value & ".XLS")
    .Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).Range("A1")
    '.Close False
End With

a+

 

[kettou]

Re : Pb:erreur d'éxecution 1004

et avec ce code ?

With Workbooks.Open("Y:\01_commun\Equipe\Jean-Louis\Etude Masse Salariale\" & List_ADV.Value & ".XLS")
    .Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).Range("A1")
    '.Close False
End With

a+

pareil je l ai essayé tt a l heure

 

[kettou]

Re : Pb:erreur d'éxecution 1004

pareil je l ai essayé tt a l heure

voila une info qui peut etre peut vous aidez le code appartient a une procédure bouton de commande que j'ai créer dans la feuil d'excel tbprodrcs
amicalement

 

[vbacrumble]

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

 

[mromain]

Re : Pb:erreur d'éxecution 1004

re,

teste ce code :

With Workbooks.Open("Y:\01_commun\Equipe\Jean-Louis\Etude Masse Salariale\" & List_ADV.Value & ".XLS")
    .Sheets(1).Cells.Copy ThisWorkbook.Sheets("tbprodrcs").Range("A1")
    '.Close False
End With

a+