Bonjour a tous,


je voudrais créer une macro qui permet de rechercher un fichier ".pdf" et de le copier dans un autre répertoire, selon les étapes suivantes :

1) Vérifier l'état de la cellule G9 " Vrai ou Faux"
2) si c'est faux, ne rien faire,
3) si "Vrai" aller dans la cellule E9, rechercher le pdf dans le répertoire_01 après dans le répertoire_02 ou autre.
4) copier le fichier pdf dans un nouveau répertoire

Pour avoir le répertoire ou le sauvgarder, j'ai trouvé ce code sur le net

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
16
 
Private Sub CommandButton1_Click()
 
Dim objShell     As Object
Dim objFolder    As Object
Dim oFolderItem  As Object
Dim Chemin As String
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
 
    On Error Resume Next
    Set oFolderItem = objFolder.Items.Item
    Chemin = oFolderItem.Path   
 
End Sub
Est ce que quelqu'un pourrait m'aider ?

Merci d'avance.Classeur1.xlsmClasseur1.xlsm