Insertion de fichiers
Bonjour à tous,
J'aimerais pouvoir insérer différents fichiers dans ma feuille excel. Voici le code que j'utilise jusqu'à présent :
Dim Boite As FileDialog, NomFichier As String
Set Boite = Application.FileDialog(msoFileDialogFilePicker)
With Boite
If Boite.Show = 0 Then Exit Sub
NomFichier = Boite.SelectedItems.Item(1)
End With
ActiveSheet.OLEObjects.Add Filename:=NomFichier, DisplayAsIcon:=True, IconLabel:=NomFichier
End SubCe code fonctionne bien sauf lorsque je sélectionne un fichier excel, dans ce cas, j'obtiens un message d'erreur "Erreur d'exécution '1004' Impossible de définir la propriété Visible de la classe OLEObject"... Lorsque je clique sur "Fin", le fichier est inséré dans la feuille excel mais sans son nom...
Quelqu'un aurait-il une idée ???
Merci beaucoup,
Bonne journée,
Amicalement
Salut Walden
Ton code fonctionne bien chez moi, mais sans nom
Cela me parait logique, tu dis à Excel d'incorporer un de ces propres classeurs,
qu'elle drôle d'idée
Bonjour BrunoM45, le Forum,
Merci beaucoup de ta réponse... Désolée
En tout cas, merci de ta réponse !
Bonne journée,
Amicalement