guenfood
XLDnaute Occasionnel
Pb d'erreur 1004
Bonjour,
J'ai un fichier 'Pointage' dans lequel j'importe des données de 2 autres fichiers excel via une macro.
Ces données doivent être ajoutées les unes après les autres.
Donc pour la macro concernant le premier fichier, pas de problème, cela incrémente bien mon fiche=ier 'pointage'.
Si je lance la macro pour le deuxième fichier, pas de soucis, cela rempli bien mon fichier 'pointage', MAIS en effacant les premières données.
Donc, après une recherche sur le forum, j'ai vu que pour ajouter les données à la suite, il fallait utiliser la fonction
Ce que j'ai fait, mais là,une fois que je lance ma macro, l'import du premier fichier se fait impeccable, mais pour le deuxième, celui pour lequel j'ai rajouté le code, j'ai droit au message d'erreur '1004 Impossible de coller les informations....'.
Comment résoudre ce problème ?
Merci par avance
Pour info, voici le code de ma macro :
Message édité par: guenfood, à: 22/08/2005 12:13
Bonjour,
J'ai un fichier 'Pointage' dans lequel j'importe des données de 2 autres fichiers excel via une macro.
Ces données doivent être ajoutées les unes après les autres.
Donc pour la macro concernant le premier fichier, pas de problème, cela incrémente bien mon fiche=ier 'pointage'.
Si je lance la macro pour le deuxième fichier, pas de soucis, cela rempli bien mon fichier 'pointage', MAIS en effacant les premières données.
Donc, après une recherche sur le forum, j'ai vu que pour ajouter les données à la suite, il fallait utiliser la fonction
Code:
Range('A65536').End(xlUp).Offset(1, 0).Select
Ce que j'ai fait, mais là,une fois que je lance ma macro, l'import du premier fichier se fait impeccable, mais pour le deuxième, celui pour lequel j'ai rajouté le code, j'ai droit au message d'erreur '1004 Impossible de coller les informations....'.
Comment résoudre ce problème ?
Merci par avance
Pour info, voici le code de ma macro :
Code:
Sub test()
'
' test Macro
' Macro enregistrée le 22/08/2005 par m435780
'
'
ChDir 'U:\\Manuels\\Comptes\\Vrai-Couv'
Workbooks.Open FileName:= _
'\\\\XD007561\\FBNPXLE\\Manuels\\Comptes\\Vrai-Couv\\couv.xls'
Rows('1:10').Select
Selection.Delete Shift:=xlUp
Rows('1:1').Select
Selection.Delete Shift:=xlUp
Columns('A:A').Select
Selection.Copy
Windows('pointage.xls').Activate
Columns('A:A').Select
ActiveSheet.Paste
Range('B1').Select
Windows('couv.xls').Activate
Columns('B:B').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
Columns('B:B').Select
ActiveSheet.Paste
Range('C1').Select
Windows('couv.xls').Activate
Columns('C:C').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Paste
Windows('couv.xls').Activate
Columns('D:D').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
Range('D1').Select
ActiveSheet.Paste
Range('E1').Select
Windows('couv.xls').Activate
Columns('E:E').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Paste
Range('G1').Select
Windows('couv.xls').Activate
Columns('F:F').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Paste
Windows('couv.xls').Activate
Columns('G:G').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
Range('H1').Select
ActiveSheet.Paste
Windows('couv.xls').Activate
Columns('H:H').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
Range('I1').Select
ActiveSheet.Paste
Windows('couv.xls').Activate
Columns('I:I').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
Range('J1').Select
ActiveSheet.Paste
Windows('couv.xls').Activate
Columns('J:J').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
Range('K1').Select
ActiveSheet.Paste
Windows('couv.xls').Activate
ActiveWorkbook.Close SaveChanges:=False
'
' vrais Macro
' Macro enregistrée le 22/08/2005 par m435780
'
'
ChDir 'U:\\Manuels\\Comptes\\Vrai-Couv'
Workbooks.Open FileName:= _
'\\\\XD007561\\FBNPXLE\\Manuels\\Comptes\\Vrai-Couv\\vrai.xls'
Rows('1:10').Select
Selection.Delete Shift:=xlUp
Rows('1:1').Select
Selection.Delete Shift:=xlUp
Columns('A:A').Select
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Range('A65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows('vrai.xls').Activate
Columns('B:B').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Range('B65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows('vrai.xls').Activate
Columns('C:C').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Range('C65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows('vrai.xls').Activate
Columns('D:D').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Range('D65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows('vrai.xls').Activate
Columns('E:E').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Range('E65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows('vrai.xls').Activate
Columns('F:F').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Range('F65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows('vrai.xls').Activate
Columns('G:G').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Range('H65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows('vrai.xls').Activate
Columns('H:H').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Range('I65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows('vrai.xls').Activate
Columns('I:I').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Range('J65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows('vrai.xls').Activate
Columns('J:J').Select
Application.CutCopyMode = False
Selection.Copy
Windows('pointage.xls').Activate
ActiveSheet.Range('K65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Columns('A:A').EntireColumn.AutoFit
Columns('B:B').EntireColumn.AutoFit
Columns('C:C').EntireColumn.AutoFit
Columns('D:D').EntireColumn.AutoFit
Columns('E:E').EntireColumn.AutoFit
Columns('G:G').EntireColumn.AutoFit
Columns('H:H').EntireColumn.AutoFit
Columns('I:I').EntireColumn.AutoFit
Columns('J:J').EntireColumn.AutoFit
Columns('J:J').ColumnWidth = 6.57
Columns('J:J').EntireColumn.AutoFit
Columns('J:J').EntireColumn.AutoFit
Columns('K:K').EntireColumn.AutoFit
Windows('vrai.xls').Activate
ActiveWorkbook.Close SaveChanges:=False
End Sub
Message édité par: guenfood, à: 22/08/2005 12:13