elguau
XLDnaute Junior
Hello à tous,
Je débute dans vba et j'ai le code suivant :
Petite question :
la fueille en question va de la colonne A à BA, ligne 1 à 60 et je veux copier seulement quelques colonnes(A, C, E, F, H, G, I, Z) en écartant les lignes vides( lignes 17, 42 et 50) mais je n'arrive pas à créer ce code. KJe sais que cela ne doit pas être compliqué à faire mais je suis bloqué.
Merci beaucoup pour votre aide.
David
Je débute dans vba et j'ai le code suivant :
Code:
Public Const PathSuivi = "\\mes docs\"
Public Const FichierRef = "Référentiel.xls"
Sub Mise_a_Jour_Ref()
Dim moi As Workbook
Dim Test_Open As Boolean
Set moi = ActiveWorkbook
Test_Open = True
On Error GoTo error_open
Windows(FichierRef).Activate
On Error GoTo 0
Workbooks(FichierRef).Sheets("Strategies").Cells.Copy Destination:=moi.Sheets("Strategies").Cells(1, 1)
moi.Activate
If Test_Open = False Then Workbooks(FichierRef).Close savechanges:=False
Exit Sub
error_open:
Workbooks.Open (PathSuivi & FichierRef), UpdateLinks:=False, ReadOnly:=True
Test_Open = False
Resume
End Sub
Petite question :
la fueille en question va de la colonne A à BA, ligne 1 à 60 et je veux copier seulement quelques colonnes(A, C, E, F, H, G, I, Z) en écartant les lignes vides( lignes 17, 42 et 50) mais je n'arrive pas à créer ce code. KJe sais que cela ne doit pas être compliqué à faire mais je suis bloqué.
Merci beaucoup pour votre aide.
David