superbog
XLDnaute Occasionnel
Bonjour,
Dans le cadre d'une macro de changement d'année, j'ai besoin d'intégrer la formule suivante en B2
mais la macro ne fonctionne pas,
Je joins le fichier si vous pouviez m'aider.
Merci d'avance et joyeux noël
Dans le cadre d'une macro de changement d'année, j'ai besoin d'intégrer la formule suivante en B2
Code:
=SI(C2="";"";INDEX('C:\Users\Brigitte\Dropbox\BBcab\Clients.xlsx'!dossier;EQUIV(C2;'C:\Users\Brigitte\Dropbox\BBcab\Clients.xlsx'!nom;0);1))
mais la macro ne fonctionne pas,
Code:
Sub chgt_annee_2015_2016()
Dim Wk As Workbook, Sh As Worksheet
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Brigitte\Dropbox\BB\xlbb\affaires2016.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
With ThisWorkbook
For Each Sh In .Worksheets
If IsNumeric(Sh.Name) Then
Sh.Delete
Else: Sh.Activate
If Range("B1").Value = "dossier" Then
Range(Cells(2, 1), Cells(5000, 30)).Delete
Range("B2").Formula = "=IF(C2="";"";INDEX('C:\Users\Brigitte\Dropbox\BBcab\Clients.xlsx'!dossier;EQUIV(C2;'C:\Users\Brigitte\Dropbox\BBcab\Clients.xlsx'!nom;0);1))"
Selection.AutoFill Destination:=Range("B2:B5000"), Type:=xlFillDefault
Range("B2:B5000").Select
End If
End If
Next
End With
MsgBox "changement d'année vers 2016 terminé"
End Sub
Je joins le fichier si vous pouviez m'aider.
Merci d'avance et joyeux noël