Problème de syntaxe
Bonjour à tous,
j'ai un problème de syntaxe, je ne sais pas comment nommer le fichier source 'M:\Transparence des fonds reporting\COURT TERME DYNAMIQUE M\[COURT TERME DYNAMIQUE M.xlsx] dans ma condition if.
Il y a une erreur de syntaxe
Merci pour votre aide
Dim nouveauNom
nouveauNom = Range("B3") & " " & Range("B2")
nouveauNom = Replace(nouveauNom, "/", "_")
If Application.WorksheetFunction.VLookup([B3], 'M:\Transparence des fonds reporting\COURT TERME DYNAMIQUE M\[COURT TERME DYNAMIQUE M.xlsx].Sheets(1).[A:A], 1, False) = [B3] Then
ActiveWorkbook.SaveAs Filename:= _
"\\ssi00019\MYRIA AM\Transparence des fonds reporting\CAPITAL PLANETE\" & nouveauNom & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End If
Bonjour,
Une proposition :
[quote]Sub aa()
Dim oWb As Workbook
Dim aWs As Worksheet
Dim nouveauNom
Application.ScreenUpdating = False
nouveauNom = Range("B3") & " " & Range("B2")
nouveauNom = Replace(nouveauNom, "/", "_")
Set aWs = ActiveSheet
Set oWb = Workbooks.Open("M:\Transparence des fonds reporting\COURT TERME DYNAMIQUE M\[COURT TERME DYNAMIQUE M.xlsx")
If Application.WorksheetFunction.VLookup(aWs.[B3], oWb.Sheets(1).[A:A], 1, False) = aWs.[B3] Then
ThisWorkbook.SaveAs Filename:= _
"\\ssi00019\MYRIA AM\Transparence des fonds reporting\CAPITAL PLANETE\" & nouveauNom & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End If
oWb.Close False 'Ferme sans sauvegarder
Application.ScreenUpdating = True
End Sub
[/quote]