Méthode Application.CopyFile (Outlook)

Article
04/07/2023

Copie un fichier à partir d’un emplacement spécifié dans un magasin Microsoft Outlook.

Syntaxe

expression. CopyFile( _FilePath_ , _DestFolderPath_ )

expression Variable qui représente un objet « Application ».

Paramètres

Nom	Requis/Facultatif	Type de données	Description
FilePath	Requis	String	Nom du chemin d'accès de l'objet à copier.
DestFolderPath	Requis	String	Emplacement où vous souhaitez copier le fichier.

Valeur renvoyée

Valeur d’objet qui représente le fichier copié.

Exemple

L’exemple Visual Basic pour Applications (VBA) suivant montre comment créer une feuille de calcul Microsoft Excel nommée « MyExcelDoc.xlsx » puis la copie depuis le disque dur de l’utilisateur vers un dossier de sa Boîte de réception.

Sub CopyFileSample() 
 
 Dim strPath As String 
 
 Dim ExcelApp As Object 
 
 Dim ExcelSheet As Object 
 
 Dim doc As Object 
 
 
 
 
 
 Set ExcelApp = CreateObject("Excel.Application") 
 
 strPath = ExcelApp.DefaultFilePath & "\MyExcelDoc.xlsx" 
 
 Set ExcelSheet = ExcelApp.Workbooks.Add 
 
 ExcelSheet.ActiveSheet.cells(1, 1).Value = 10 
 
 ExcelSheet.SaveAs strPath 
 
 ExcelApp.Quit 
 
 Set ExcelApp = Nothing 
 
 Set doc = Application.CopyFile(strPath, "Inbox") 
 
End Sub

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Share via