[XL-MAC 2011] Problème de syntaxe VB [Résolu]

[Gogia]

Bonjour le forum,
Pendant l'exécution d'un macro, il ouvre deux fichiers différents d'Excel. Je voudrais éviter d’apparaissaient d’une fenêtre
« Le classeur que vous avez ouvert comporte des liaisons automatiques avec un autre classeur".
Il y a trois boutons « Modifier les liaisons », « Mettre à jour », « Ignorer les liaisons ».
Il faut toujours choisir « Ignorer les liaisons ».

Quelqu’un m’a proposé rajouter
, Updatelinks:=False
dans le code existant

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Cde_Equip(Maitre As Workbook, FeuilBase As Worksheet, ByVal rep As String, ByVal numEquip As Long)
Dim nbLign As Long, derLign&, i&, derLignA&, derLignC&
Dim trouve As Range, plageEquip As Range
FeuilBase.Copy before:=Maitre.Sheets(1)
With ActiveSheet
.Range("C3:Z45").Sort Key1:=.Range("C3"), Order1:=xlAscending, Key2:=.Range("D3") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
nbLign = Application.CountIf(.Range("C3:C45"), numEquip)
Set trouve = .Range("C2:C45").Find(numEquip, LookIn:=xlValues, LookAt:=xlWhole)
Set plageEquip = trouve.Resize(nbLign, 24)
Set ExistFichier = Nothing
On Error Resume Next
Set ExistFichier = Workbooks.Open(rep & "BD d'équipe " & numEquip & ".xls"), Updatelinks:=False

On Error GoTo 0
If ExistFichier Is Nothing Then
MsgBox "L'équipe " & numEquip & " n'a pas de fichier." & vbCrLf & _
"Veuillez en créer un.", vbExclamation
Exit Sub
End If

Le probléme est suivavnt :
Cette ligne devient rouge – une faute de syntaxe et le compilateur indique sur la virgule.
Quelle démarche dois-je faire pour rectifier cette faute ?
Merci en avance pour vos conseils !

[Sclarckone]

Ceci devrait fonctionner:

Code :

Set ExistFichier = Workbooks.Open(rep & "BD d'équipe " & numEquip & ".xls", Updatelinks:=False)

...Updatelinks:=False est un argument de la méthode Open, il doit donc figurer à l'intérieur des paranthèses.

[Gogia]

Sclarckone,

Ca FONCTIONNE!!!

Merci