FichierCopie Description
Copie un fichier d'un répertoire à un autre.
Exemples simples de copie de fichier
1 | FichierCopier "C:\Test.txt" "D:\" |
Cela copiera le fichier "Test.txt" sur "C:\" sur le lecteur D.
Si le fichier "Test.txt" n'existe pas sur "C:\", il se produira une erreur d'exécution '53' : Fichier introuvable.
Syntaxe de copie de fichier
Dans l'éditeur VBA, vous pouvez taper "FileCopy(" pour voir la syntaxe de l'instruction FileCopy :
L'instruction FileCopy contient 2 arguments :
La source: Nom de chaîne du fichier à copier. Peut inclure un chemin.
Destination: Expression de chaîne qui spécifie le nom du fichier cible. La destination peut inclure un répertoire ou un dossier et un lecteur.
Exemples de fonction Excel VBA FileCopy
Veuillez tester avec le code suivant.
123456789101112131415161718192021222324252627282930 | Sub FileCopy_Example()Dim dlgFilePicker en tant que FileDialogDim dlgFileSaveAs As FileDialogDim strOrgFile en tant que chaîneDim strTarFile en tant que chaîneDéfinir dlgFilePicker = Application.FileDialog(msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = FalsedlgFilePicker.ButtonName = "Copier"dlgFilePicker.Title = "Veuillez sélectionner un fichier à copier"Si dlgFilePicker.Show = True AlorsstrOrgFile = dlgFilePicker.SelectedItems(1)AutreQuitter le sousFin siDéfinir dlgFileSaveAs = Application.FileDialog(msoFileDialogSaveAs)dlgFileSaveAs.Title = "Veuillez indiquer un dossier et écrire un nom de fichier."dlgFileSaveAs.ButtonName = "Coller"Si dlgFileSaveAs.Show = True AlorsstrTarFile = dlgFileSaveAs.SelectedItems(1)AutreQuitter le sousFin siFichierCopier strOrgFile, strTarFileFin du sous-marin |
En l'exécutant, il affichera d'abord une boîte de dialogue "Veuillez sélectionner un fichier à copier".
Ensuite, vous devez sélectionner un fichier à copier.
Après avoir sélectionné un fichier, veuillez cliquer sur le bouton « Copier ».
Ensuite, il affichera une boîte de dialogue "Veuillez indiquer un dossier et écrire un nom de fichier".
Vous devez sélectionner un dossier de destination et écrire un nom de fichier.
Après cela, cliquez sur le bouton « Coller ».
Ensuite, le fichier source sera copié avec le dossier de destination et le nom de fichier.