Copier un Fichier PDF dans un répertoire avec VBA Excel

Version imprimable

1 pièce(s) jointe(s)

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:

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.Pièce jointe 211526Pièce jointe 211526

01/06/2016, 20h48
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.
01/06/2016, 21h20
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 :)

Salut,

Une piste, moi j'utilise ceci:

Code:

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:

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

01/06/2016, 22h03
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 :/
02/06/2016, 02h37
kiki29

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