copier/coller des fichiers insérés dans une feuille

[BOUCHEZ JD]

Bonsoir

Dans une feuille, j'ai plusieurs fichiers qui y ont été introduits par :
Insertion / Objet / Créer à partir du fichier / Parcourir /Choix des fichier / Insérer

Je voudrais mettre ces fichiers dans le répertoire courant :

Sub RECUP()

Dim FJ As OLEObject
If MAFEUILLE.OLEObjects.Count > 0 Then

For Each FJ In F_DOCS_JOINTS.OLEObjects

FJ.Copy
' ICI la commande de PASTE​

Next​

End If​

End Sub

FJ.copy fonctionne parfaitement : Quand je me positionne dans un
dossier de l'Explorer et que je fais CTRL + V ou 'Coller' ; le fichier est bien inséré.

Il faudrait faire quelque chose du genre:
FJ.Paste ThisWorkbook.Path & "\"
Mais cela ne fonctionnne pas.

Une idée ?

Grand merci d'avance

 

[BOUCHEZ JD]

Re : copier/coller des fichiers insérés dans une feuille

RE-Bonsoir

J'ai finalement trouvé la solution.
Je la donne car elle peut servir à quelqu'un.

Sub RECUP()
Dim FJ As OLEObject
If ActiveSheet.OLEObjects.Count > 0 Then
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each FJ In ActiveSheet.OLEObjects
FJ.Copy
CreateObject("Shell.Application").Namespace(ActiveWorkbook.Path).Self.InvokeVerb "Paste"
Next
End If

End Sub

@+

 

[job75]

Re : copier/coller des fichiers insérés dans une feuille

Bonjour Bouchez,
Excusez-moi, mon message était sans intérêt. A+