XL 2016 Insérer objet OLE

[FS69]

Bonjour,

Etant novice en vba, j'ai récupéré le code ci dessous et je souhaiterais faire quelques adaptation : tout d'abord je souhaiterais les fichiers soit ajoutés sur la ligne C38 puis suivante (C38, D38, E38...) et par ailleurs actuellement il affiche un carré blanc et je souhaiterais que soit affiché l'icone (pdf, excel, word....) et le nom du fichier

Pouvez vous m'aider ?
Sub Telecharger()

Dim Obj As OLEObject
Dim Chemin As Variant
Dim Nomfichier As String
Dim Emplacement As Range
Dim derniereLigne As Integer
derniereLigne = Range("C" & Rows.Count).End(xlUp).Row + 1 'n° de la première ligne vide de la colonne C
Chemin = Application.GetOpenFilename(Title:="Insertion du fichier complémentaire aux explications")
If Chemin = False Then Exit Sub
Application.ScreenUpdating = False
Set Emplacement = Range("C" & derniereLigne)
With ActiveSheet
Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=False, DisplayAsIcon:=True)
End With
With Obj.ShapeRange
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
Range("C" & derniereLigne) = Obj.ShapeRange.Name
End Sub

 

[sousou]

sans fichier point de salut!

 

[FS69]

Bonjour,
Tout d'abord merci de vous être intéressé à ce sujet, voici le fichier

 

[sousou]

Bonjour
Pour les lignes colonnes Ok, pour les icones plus difficile,
en effet si je met link = false, il met bien le bon icone pour toutes les appli non microsoft, pour ces dernières il ouvre le fichier (invisible) et carré blanc!
Si je mets link:=true (comme dans le ficier joint, ca fonctionne pour tous les fichiers doubleclick et ouverture, mais pas d'icone ni de nom de fichier. l'icone est'il nécessaire?

 

[FS69]

Merci car c'est déja très bien !
l'icone n'est pas nécessaire mais au moins le nom de fichier ou autre chose que ce carré blanc ??

 

[sousou]

Pourquoi un objet ole? un lien devrait faire l'affaire

 

[FS69]

Je souhaite un objet OLE car ce fichier doit être envoyé par la suite en mail et le fichier excel et ces pièces jointes lisibles.
Sauf erreur de ma part, si je mets un lien, le document ne sera pas lisible par le destinataire ?

Par ailleurs j'ai effectué des tests avec différents formats de fichiers : PNG ok, Excel ok Word KO (taille 400ko)-->Excel se fige complètement, auriez vous une idée ?

 

[FS69]

Ne pas tenir compte du problème de format cela est lié à l'affichage du volet de visualisation dans la pop up de choix du fichier...si en revanche vous auriez une idée pour qu'automatiquement celui ci ne s'affiche, je suis preneur

 

[sousou]

Si tu veux conserver ole, tu peux mettre le no du fichier sur la ligne 39, mais carré blanc? à par le dimensionner autrement

 

[FS69]

Si tu veux conserver ole, tu peux mettre le no du fichier sur la ligne 39, mais carré blanc? à par le dimensionner autrement

C'est une très bonne idée d'ajouter le nom sur la ligne 39, pouvez vous m'accompagner encore pour ajouter ceci dans votre code ?

 

[sousou]

Bonjour
Voici ce que je te propose 'sans la ligne 39' inutile dans cette version.
Le doubleclick sur le carré provoque le chargement du fichier.
J'ai ajouté une macro 'raz() pour vider cette zone à complèter si tu veux nettoyer d'autre zone comme les commentaires.....

 

[FS69]

Bonjour
Voici ce que je te propose 'sans la ligne 39' inutile dans cette version.
Le doubleclick sur le carré provoque le chargement du fichier.
J'ai ajouté une macro 'raz() pour vider cette zone à complèter si tu veux nettoyer d'autre zone comme les commentaires.....

Bonjour, merci pour ce retour, cela fonctionne correctement mais lorsque je souhaites charger un fichier Excel cela me ferme le fichier d'origine sans message.

 

[sousou]

Bonjour
Pas compris ce qui se passe pour moi çà semble fonctionner
Je charge un fichier excel, et je l'ouvre sur un doubleclick .
Qu’appels tu fichier d'origine?

 

[FS69]

Bonjour
Pas compris ce qui se passe pour moi çà semble fonctionner
Je charge un fichier excel, et je l'ouvre sur un doubleclick .
Qu’appels tu fichier d'origine?

Bonjour,
J'ai refait des tests et le cas que j'évoque semble être uniquement lorsque j'ajoute un Objet Excel contenant des liaisons.

Dans ce cas, lorsque j'ajoute cet Objet Excel avec liens, alors le fichier Excel "Excel download Objet OLE" se ferme entièrement.

 

[sousou]

Re.
ton fichier contient des liaison, j'en ai fait une copie et je l'ai inséré, pas de problème, j'ai bien deux ouvertures excel une avec excel download..., et l'autre avec la copie que j'ai faite sur mon bureau,