Chessnocoma
XLDnaute Junior
Bonjour,
J'ai trouver et adapté une macro sympa, j'aurais aimer savoir comment faire en sorte que le copier coller ne se fasse pas en formule mais en valeurs, merci bien a vous.
le code est le suivant
Merci encore a vous
J'ai trouver et adapté une macro sympa, j'aurais aimer savoir comment faire en sorte que le copier coller ne se fasse pas en formule mais en valeurs, merci bien a vous.
le code est le suivant
Code:
Private Sub copiecollesave_Click()
Application.ScreenUpdating = False
Rep = "G:\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
.Sheets("Récapitulatif").Range("A2:M5").Copy _
Workbooks(FichD).Sheets("BD").Range("B65536").End(xlUp).Offset(1, 0)
Workbooks(FichD).Save
Workbooks(FichD).Close
MsgBox "Base de données alimenté"
.Close
End With
Application.ScreenUpdating = True
End SubMerci encore a vous