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
Est ce que quelqu'un pourrait m'aider ?
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
Merci d'avance.Classeur1.xlsmClasseur1.xlsm
Partager