Discussion :

[Sawyeer]

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

[kiki29]

Salut, commence par regarder : Manipulation des fichiers en VBA, il y a un exemple de recherche récursive via FSO, après il y a Liste des fichiers d'un dossier avec recherche récursive ou non via les APIs.

[Sawyeer]

Salut, merci pour ton aide je vais lire l'information qui est dans le lien.

PS: c'est ma première journée en vba, j'ai une formation en électricité et une petite base en programmation c++, j'espère que je vais y'arrivé a faire cette macro

[jijie]

Salut,

Une piste, moi j'utilise ceci:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 
Sub baCKup()
Dim objFSO, oFSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.File
Dim NomFich
Dim EXISTEFICHIER As Boolean
 
 
cheMin1 = ThisWorkbook.Path & "\Nom2\" & NomImage
 
cheMin2 = ThisWorkbook.Path & "\Logos Annonceurs OK2016\" & NomImage
 
EXISTEFICHIER = (Dir(cheMin2) <> "")
 
If EXISTEFICHIER = True Then
 
            Else
 
           Dim GestionFichier As New Scripting.FileSystemObject
    ' L'auto-complétion est activée dès que vous écrivez le point .
                GestionFichier.CopyFile cheMin1, cheMin2, False
                Set GestionFichier = Nothing
 
            End If
 
 
End Sub

Ou encore:

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
17
18
19
20
21
22
23
24
25
26
'********************************************************************************
 
'Comment renommer un fichier ?
'Utilisez l 'instruction Name.
'Cette instruction permet aussi de renommer les répertoires.
 
'Remarque:
'Une erreur survient si le fichier à renommer est déjà ouvert.
 
 
Sub RenommeFichier()
 
 
    'AncienNom = "C:\Documents and Settings\dossier\NomInitial.pdf"
    'NouveauNom = "C:\Documents and Settings\dossier2\Nom modifié.pdf"
 
    'Vérifie si le fichier à renommer existe.
    If Dir(AncienNom) = "" Then Exit Sub
    On Error GoTo fin1
 
    'Renomme le fichier
    Name AncienNom As NouveauNom
    Exit Sub
fin1:
    MsgBox "Ce fichier existe déja!"
End Sub

[Sawyeer]

Je suis perdu dans mes recherche, je pensais que le vba c'est pas trop compliqué mais apparemment non, pour ma première journée de travail avec le vba, c'est un échec

j'ai la logique comment le faire, mais pour le programmer c'est pas évident :/

[kiki29]

Salut, commence par exemple par Support de cours complet pour le VBA d'Excel.