Visual Basic pour Applications, ou VBA est un langage de script intégré dans la plupart des applications Microsoft Office. Avec lui, vous pouvez créer des macros et des fonctions pour automatiser différentes tâches. VBA est livré avec un large éventail d'objets et de fonctions qui peuvent vous aider à travailler avec vos documents plus rapidement et plus efficacement. Avec sa classe FileSystemObject , vous pouvez également manipuler les fichiers et dossiers n'importe où sur votre ordinateur à partir de n'importe quelle application Office. En créant une seule macro VBA et en assignant un raccourci clavier à elle, vous pouvez plus facilement copier, d'organiser et de créer des sauvegardes de vos dossiers . Instructions
1

démarrer n'importe quelle application Microsoft Office , tels que Word ou Excel. Appuyez sur "Ctrl" et "N" pour créer un nouveau document. Pour utiliser un document existant à la place , appuyez sur " Ctrl" et " O ", sélectionnez votre fichier, puis cliquez sur «Ouvrir».
2

presse "," Alt "et" F11 "pour ouvrir la Visual Basic Editor , ou VBE . Dans le panneau " Explorateur de projet " , sélectionnez le projet VBA qui contient le nom de fichier de votre document.
3

Cliquez sur "Insérer ", puis sélectionnez "Module ". Cela ajoute " Module1 " à la liste des modules dans le panneau " Explorateur de projet " . Double- cliquez sur " Module1 ", puis entrez le code suivant dans l'éditeur .

CopyFolders sub () Photos

foldernames = array (" C: \\ Folder1 ", " C: \\ Dossier2 " )

dest = "C: \\ destination "

For Each s En foldernames

Appel CopyF (s, dest & "\\" )

suivante s

End Sub
4

Remplacer " C: \\ Folder1 » et "C: \\ Dossier2 ." . avec les dossiers que vous souhaitez copier pour ajouter un dossier à la liste , tapez une virgule , puis insérer le chemin complet vers le dossier avant la parenthèse fermante de la fonction " Array " Assurez-vous d'inclure des lettres de lecteur et les chemins d'enfermer entre guillemets
5

Remplacer. ». C: \\ destination" avec le chemin complet vers le répertoire où vous souhaitez envoyer une copie de vos dossiers Soyez sûr d'inclure la lettre de lecteur et de l'entourer de guillemets.
6

Cliquez sur "Insérer ", puis sélectionner "Module ". Cela ajoute " Module2 " à la liste des modules dans le « Project Explorer " panneau. Double- cliquez sur" Module2 ", puis entrez le code suivant dans l'éditeur.

public Sub CopyF ( ByVal sfol As String , ByVal DFOL As String )

c = Len ( sfol ) - Len ( Replace ( sfol , "\\" , "", 1) )

fName = Mid ( sfol , InStr (1, Application.Substitute ( sfol , "\\" , "*" , c ) "*") + 1)

dest = DFOL & fName

Set fso = CreateObject (" Scripting.FileSystemObject " )

If Not fso.FolderExists ( dest) Puis

fso.CopyFolder sfol , DFOL

Else

Ures = MsgBox ( dest & " existe déjà. Overwrite ? " , vbYesNo + vbQuestion )
< p> Si Ures = vbYes Puis

fso.CopyFolder sfol , DFOL

Else

GoTo EndScript

End If End If

Photos

EndScript :

Set fso = Nothing End Sub

7

Appuyez sur " F12 ". Entrez le nom de votre fichier préféré dans le "File son nom " , puis cliquez sur le menu déroulant à côté de " Save as type . "Select" classeur Excel Macro - Enabled " ( si vous utilisez Excel ) ou" Word Document Macro - Enabled " (si vous utilisez Word ) . Cliquez sur "Enregistrer".
8

Appuyez sur " Alt" et " Q " pour fermer le VBE .
9

Appuyez sur " Alt" et "F8" à ouvrir la fenêtre "Macros " . Sélectionnez " CopyFolders " dans la liste , puis cliquez sur "Exécuter".