Bonjour à tous,
Etant novice en VBA je bloque sur la macro ci-dessous.
Explication de la Macro :
- Ouvrir un explorateur Windows dans un dossier spécifique puis de lancer une recherche qui a pour valeur la cellule B6.
Après plusieurs recherche infructueuse je l'ai fait avec des "sendKeys" ce qui n'est pas très propre et qui a des risques de ne pas fonctionner.
Sub Bouton11_Cliquer()
Range("B6").Select
Selection.Copy
Dim ouvrir As String
ouvrir = "c:\windows\explorer.exe " & "N:\01-DOSSIERS_AFFAIRES\MECAPRO\00-MECAPRO-PLAN-ENSEMBLE-IMPLANTATION\01-PLANS-LIENS"
Shell ouvrir, 1
'-- PAUSE --
Dim start
start = Timer
Do While Timer < start + 2 'pause de 'x' secondes
DoEvents
Loop
'-----------
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "^(v)" 'ctrl + V
End Sub
Il n'y aurait pas un moyen plus propre de le faire ?
Cordialement Gaël