Insertion d'une piéce jointe dans une cellule excel VBA

Bil_12 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour;

J'ai créer deux boutons le premier pour la sélection (parcourir) l'endroit du fichier : 

Private Sub CommandButton4_Click()
fileToOpen = Application.GetOpenFilename("All Files (*.*), *.*")
TextBox12 = fileToOpen
End Sub


et le deuxième pour l'insertion; mais le deuxième ne marche pas; voila mon code : (il passe toujours a la deuxiéme phase et il m'écrit "Pas de fichier sélectionné") 

Private Sub CommandButton2_Click()

Dim OLEobj As OLEObject
Dim Gauche As Double, HautTop As Double, Largeur As Double, Hauteur As Double

Range("G" & J).Select
Gauche = Range("G" & J).Left
HautTop = Range("G" & J).Top
Largeur = Range("G" & J).Width
Hauteur = Range("G" & J).Height

If fileToOpen <> "" Then
Set OLEobj = ActiveSheet.OLEObjects.Add(Filename:=fileToOpen, Link:=False, DisplayAsIcon:=True, IconIndex:=0, IconLabel:=fileToOpen)
'OLEobj.Name = "LeFichier"
OLEobj.Left = Gauche
OLEobj.Top = HautTop
OLEobj.Width = Largeur
OLEobj.Height = Hauteur
Else
MsgBox "pas de fichier sélectionné"
End If

fileToOpen = ""
Unload Me

End Sub

Merci
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

déclarez fileToOpen tout en haut de la "page" de code 
Dim fileToOpen

Pour que cette variable soit utilisable sur toute cette "page"


Juste pour savoir, d'où sort la variable J??
0
Bil_12 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
J : c'est le numéro de la cellule Excel; j'ai mis un compteur avec variable J

Range("G" & J).Select

Exemple :

Range(G3).Select
0
Bil_12 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Merci f894009

j'ai essayé mais le problème existe encore;
0
Réponse 2 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

essayez ceci: https://mon-partage.fr/f/Fkxnsh93/
Ca marche chez moi.........
0
Bil_12 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour;

Oui sa marche, mais il n'accepte pas l'enregistrement après l'insertion
0
Bil_12 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
j'utilise des fichiers pdf
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Ben, chez moi pas de soucis que ce soit l'extension du fichier!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
0