Bonjour,

J'ai une erreur de syntaxe qui s'affiche sur la ligne en rouge, quelqu'un pourrait il m'aider?

Le but de ce programme est, à l'appui sur un bouton "Extraction Hebdomadaire" situé dans un classeur Excel nommé "Essai 1" d'aller me rechercher des données située dans un autre classeur nommé "MC_fonctionne". Ces nouvelles données doivent être placée dans l'onglet "Synthese" de "Essai 1".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub VachercherDatas()

Dim wb As Workbook 
Application.ScreenUpdating = False

chemin = "\\Gpao\commun\30_QUALITE\307_Gestion_de_service\" & "MC_fonctionne.xlsm"
Set wb = Workbooks.Open(\\Gpao\commun\30_QUALITE\307_Gestion_de_service)Workbooks("essai1.xls").Activate

wb.Close SaveChanges:=False
Application.ScreenUpdating = True

End Sub
Merci par avance pour tous ceux qui pourront m'aider!