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
Merci encore
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
Code:
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 SubMerci encore