Notes
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Insère tout ou partie du fichier spécifié.
Syntaxe
expression. InsertFile( _FileName_ , _Range_ , _ConfirmConversions_ , _Link_ , _Attachment_ )
expression Obligatoire. Variable qui représente un objet Selection.
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| FileName | Obligatoire | Chaîne | Chemin d'accès et nom du fichier à insérer. Si vous ne spécifiez pas de chemin d'accès, Word considère que le fichier se trouve dans le dossier actif. |
| Range | Facultatif | Variant | Si le fichier spécifié est un document Word, ce paramètre fait référence à un signet. S'il s'agit d'un autre type de fichier (par exemple, une feuille de calcul Microsoft Excel), ce paramètre désigne une plage nommée ou une plage de cellules (par exemple, R1C1:R3C4). |
| ConfirmConversions | Facultatif | Variant | True pour que Word invite l'utilisateur à confirmer la conversion lors de l'insertion de fichiers dans des formats autres que le format Document Word. |
| Link | Facultatif | Variant | True pour insérer le fichier en utilisant un champ INCLUDETEXT. |
| Attachment | Facultatif | Variant | True pour insérer le fichier en tant que pièce jointe à un e-mail. |
Exemple
Cet exemple montre comment utiliser un champ INSERTFILE pour insérer le fichier « Test.doc » au niveau du point d'insertion.
Selection.Collapse Direction:=wdCollapseEnd
Selection.InsertFile FileName:="C:\TEST.DOC", Link:=True
Cet exemple montre comment créer un document, puis insérer dans le nouveau document le contenu de chacun des fichiers texte situés dans le dossier « C:\Tmp ».
Documents.Add
ChDir "C:\TMP"
myName = Dir("*.TXT")
While myName <> ""
With Selection
.InsertFile FileName:=myName, ConfirmConversions:=False
.InsertParagraphAfter
.InsertBreak Type:=wdSectionBreakNextPage
.Collapse Direction:=wdCollapseEnd
End With
myName = Dir()
Wend
Voir aussi
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.