Discussion :

[Rob's]

Bonjour à tous,

Je souhaite savoir comment créer un programme VBA qui est capable d'aller rechercher des informations dans des documents Excel placés dans un dossier et ensuite me reporter ces informations dans un autre document Excel.

C'est à dire, j'ouvre mon document nommé "Extraction_MC". Je clique sur le bouton "Extraction hebdomadaire" et à ce moment là, mon programme "mouline" et recherche toutes les infos rentrées dans un autre doc Excel nommé "MC_atelierA".
Une fois qu'il a trouvé toutes les infos, il me les écrit dans le document "Extraction_MC".

Merci à toutes personnes pouvant m'aider!

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub VachercherDatas()
Dim wb as workbook
Application.screenupdating=False
 
chemin="Lechemin" & "MC_atelierA.xlsx"
Set wb = workbooks.open(chemin)
Workbooks("Extraction_MC.xlsm").activate
 
'Tu effaces les données ou tu cherches l'indice a partir d'ou importer
'Tu importes
 
 
wb.close SaveChanges:=False
Application.screenupdating=True
End sub

[Rob's]

Bonjour EngueEngue,

Merci pour ton aide!
Ton "Sub VachercherDatas()" correspond à une macro que tu as créée sur le bouton "Extraction hebdomadaire"?

Merci

[Rob's]

Bonjour,

En utilisant ton programme, j'ai une "erreur de syntaxe qui s'affiche" sur la ligne en rouge:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub VachercherDatas()

Dim wb As Workbook 
Application.ScreenUpdating = False
 
chemin = "\\Gpao\commun\30_QUALITE\307_Gestion_de_service\Lyse" & "MC_fonctionne.xlsm"
Set wb = Workbooks.Open(\\Gpao\commun\30_QUALITE\307_Gestion_de_service\Lyse)
Workbooks("essai1.xls").Activate

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

End Sub

Quelqu'un pourrait il m'aider?

Merci