Help : Problème avec macro copier coller

[Blitz]

Bonjour,

Je travail sur l'élaboration d'un fichier, et j'ai un souci avec cet macro.
Elle est censé récupéré les information d'un fichier pour les implanté dans une base de donné.
Le problème est que lorsque je l'utilise, les données récupéré vont de A1 à O2, de plus je ne souhaite pas enregistrer la première ligne.

Pouvez vous, m'aider, c'est assez urgent :s

Private Sub bring()

Application.ScreenUpdating = False
Rep = "X:\AJ\Dossier de suivi\"
FichS = ActiveWorkbook.Name
FichD = "Visio+.xls"
Workbooks.Open Rep & FichD

With Workbooks(FichS)
Fichier = .Sheets("Récapitulatif").Cells(1, 1).Value
    If Dir(Rep & Fichier & ".xls") <> "" Then 'vérifie si la sauvegarde n'a pas déjà été effectuée
    MsgBox "La sauvegarde a déjà été effectuée"
    Exit Sub
    End If
        Dim DerLign As Integer
DerLign = Range("F65536").End(xlUp).Row
.Sheets("Récapitulatif").Range("A2:O" & DerLign).Copy
        Workbooks(FichD).Sheets("BD").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
        Workbooks(FichD).Save
        Workbooks(FichD).Close
        MsgBox "Base de données alimenté"
        .Close
        
End With
Application.ScreenUpdating = True
            
End Sub

Merci encore

 

[youky(BJ)]

Re : Help : Problème avec macro copier coller

Bonjour Blitz,
Je pense que tu as oublié le point du with
à cette ligne
DerLign = .Range("F65536").End(xlUp).Row

non testé

Bruno

 

[Blitz]

Re : Help : Problème avec macro copier coller

J'ai essayer de rajouté le point, mais la macro bugg

 

[youky(BJ)]

Re : Help : Problème avec macro copier coller

RE:
Le bug est sur quelle ligne??????
à tester ceci
DerLign = .Sheets("Récapitulatif").Range("F65536").End(xlUp).Row

Bruno

 

[Chessnocoma]

Re : Help : Problème avec macro copier coller

Lors du première essai, le bug était sur la ligne
DerLign = .Range("F65536").End(xlUp).Row

Lors du deuxième essai cela me provoque une erreur de compilation