Christian0258
XLDnaute Accro
Re, Bonsoir à tout le forum,
J'ai à nouveau besoin d'aide sur lune macro ci-dessous.
Cette macro archive une zone définie vers un autre classeur.
Mon problème :
-comment modifier pour n'archiver que les valeurs
- et n'archiver que les lignes renseignées et non les lignes vides :
Merci pour votre aide si précieuse.
Bien à vous,
Christian
Sub TransfertQtéFicheTechn()
Dim Wb1 As Workbook
Dim WB2 As Workbook
Dim Plg As Range, Derlgin As Long
If Range("g3") = 0 Then
MsgBox "Aucune denrée saisie....", , "Erreur"
Exit Sub
End If
Application.ScreenUpdating = False
Set Wb1 = ThisWorkbook
Set WB2 = Workbooks.Open("C:\ARCHIVES DONNEES FICHES TECHNIQUES\DonnéesFichesTechniques.xls.xlsx")
Set Plg = Wb1.Sheets("FICHE TECHNIQUE").Range("CK17:CU" & Wb1.Sheets("FICHE TECHNIQUE").Range("CK32").End(xlUp).Row)
With WB2.Sheets("Archives")
derlign = .Range("A65536").End(xlUp).Row
.Range("M" & derlign + 1) = "Sauvegarde du " & Format(Date, "dd-mm-yyyy") & " à " & Time
Plg.Copy .Range("A" & derlign + 1) 'comment modifier pour ne copier que les valeurs et sans lignes vides
.Columns("A:L").AutoFit
End With
WB2.Save
WB2.Close
Application.ScreenUpdating = True
End Sub
J'ai à nouveau besoin d'aide sur lune macro ci-dessous.
Cette macro archive une zone définie vers un autre classeur.
Mon problème :
-comment modifier pour n'archiver que les valeurs
- et n'archiver que les lignes renseignées et non les lignes vides :
Merci pour votre aide si précieuse.
Bien à vous,
Christian
Sub TransfertQtéFicheTechn()
Dim Wb1 As Workbook
Dim WB2 As Workbook
Dim Plg As Range, Derlgin As Long
If Range("g3") = 0 Then
MsgBox "Aucune denrée saisie....", , "Erreur"
Exit Sub
End If
Application.ScreenUpdating = False
Set Wb1 = ThisWorkbook
Set WB2 = Workbooks.Open("C:\ARCHIVES DONNEES FICHES TECHNIQUES\DonnéesFichesTechniques.xls.xlsx")
Set Plg = Wb1.Sheets("FICHE TECHNIQUE").Range("CK17:CU" & Wb1.Sheets("FICHE TECHNIQUE").Range("CK32").End(xlUp).Row)
With WB2.Sheets("Archives")
derlign = .Range("A65536").End(xlUp).Row
.Range("M" & derlign + 1) = "Sauvegarde du " & Format(Date, "dd-mm-yyyy") & " à " & Time
Plg.Copy .Range("A" & derlign + 1) 'comment modifier pour ne copier que les valeurs et sans lignes vides
.Columns("A:L").AutoFit
End With
WB2.Save
WB2.Close
Application.ScreenUpdating = True
End Sub