bug dans ma macro

[noemie45]

Bonjour
voila j'essaye de copier coller une selction dans un autre fichier excel. mais j'ai 2 pb dans ma macro.
Le 1er est lié a excel 2010, pour le collage à la 1ere ligne vide, j'ai remplacé

Range("A" & Range("A65536").End(xlUp).Row + 1).Select
par
Range("A" & Rows.Count.End(xlUp).Row + 1).Select
Mais il y aun truc qui ne fonctionne pas!!!!

Le 2eme est que ma macro plante à la dernière ligne
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Merci de me dépatouiller!!

Voici le detail de ma macro


Sub MAJ_ANOMALIE2()
Dim DLig As Long


With Sheets("transaction")

'filtre sur des lignes qui une croix
.ListObjects("Tableau1").Range.AutoFilter Field:=18, Criteria1:= _
"<>"
'copie de la selection de la ligne 2 à la dernière ligne non vide
DLig = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:I" & DLig + 1, "M2:N" & DLig + 1).Select
Selection.Copy
End With

'deselction du filtre
Sheets("transaction").ListObjects("Tableau1").Range.AutoFilter Field:=18

'ouverture du fichier de destination
Workbooks.Open Filename:="S😛rocess contrôle\Saisie anomalie.xlsm"

'collage de la selection sur la 1er ligne vide
Sheets("bal").Range("A" & Rows.Count.End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[Robert]

Re : bug dans ma macro

Bonjour Noemie, bonjour le forum,

Problème 1, essaie comme ça :

Cells(Application.Rows.Count, 1).End(xlUp).Row.Offset(1, 0).Select

 

[ERIC S]

Re : bug dans ma macro

Bonjour Noémie

pour le premier pb, à essayer

range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Select

edit : bonjour Robert

 

[Pierrot93]

Re : bug dans ma macro

Bonjour à tous,

on devrait également pouvoir le faire ainsi :

Range("A" & Rows.Count).End(xlUp)(2).Select

bon après midi
@+

 

[noemie45]

Re : bug dans ma macro

Merci la solution d'Eric fonctionne
Par contre vous n'avez rien pour mon 2ème probleme

J'ai ce message d'erreur
"la methode pastespecial de la classe range a echoué"

 

[ERIC S]

Re : bug dans ma macro

re

est_ce que ta désélection de filtre n'annulerait pas ton copier en faisant une raz du presse papier
essaie de la mettre momentanément en commentaire

 

[noemie45]

Re : bug dans ma macro

effctivement c'est ça qui cloche,
comment je peux faire pour désactiver mon filtre!!!et que mon copier coller fonctionne?

 

[ERIC S]

Re : bug dans ma macro

re

après avoir collé, si tu ferme le fichier (je crois que c'est le cas dans ton appli suite à un fil précédent), là tu retombes sur ton fichier de départ et tu annules le filtre

 

[noemie45]

Re : bug dans ma macro

le probleme c'est que mon fichier n'a jamais le même nom!!

 

[ERIC S]

Re : bug dans ma macro

re

que fais-tu après ton collage (code vba)?

 

[noemie45]

Re : bug dans ma macro

rien!!!
la macro se finit

 

[ERIC S]

Re : bug dans ma macro

re

non testé :

With Sheets("transaction")

  'filtre sur des lignes qui une croix
...
  'copie de la selection de la ligne 2 à la dernière ligne non vide
... 
monfichier = activewindow.caption

'ouverture du fichier de destination
...
'collage
...

monfichier1=activewindow.caption

windows (monfichier).activate
'désélection filtrage
...
windows(monfichier1).activate
'retour sur fichier1

 

[francedemo]

Re : bug dans ma macro

bonjour à tous,

tu peux essayer ça ?

Sub MAJ_ANOMALIE2()

Dim DLig As Long
Dim FBase As Worksheets
Dim FActive As Worksheet

Workbooks.Open Filename:="Srocess contrôle\Saisie anomalie.xlsm"

Set FBase = Sheets("bal")

With thisworkbooks.Sheets("transaction")
    'filtre sur des lignes qui une croix
    .ListObjects("Tableau1").Range.AutoFilter Field:=18, Criteria1:="<>"
    'copie de la selection de la ligne 2 à la dernière ligne non vide
    DLig = .Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & Rows.Count.End(xlUp).Row + 1).Value = .Range("A2:I" & DLig + 1, "M2:N" & DLig + 1).Value
    .ListObjects("Tableau1").Range.AutoFilter Field:=18
End With

à+

 

[noemie45]

Re : bug dans ma macro

merci la solution d'Eric fonctionne.

j'ai encore une autre petite question et après j'arrete.
Comment je peux gèrer le fait qu'il se peut que mon fichier ou je viens coller les données (fichiers saisies des anomalies" ) est dèja ouvert?

 

[francedemo]

Re : bug dans ma macro

tu mets :

dim Fichier as string
dim Wb as Workbook

Fichier ="Srocess contrôle\Saisie anomalie.xlsm" '=> il faut le chemin complet
On Error Resume Next
   Set Wb = Workbooks("Saisie anomalie.xlsm")
If Err <> 0 Then Workbooks.Open Filename:=Fichier, UpdateLinks:=1