Menu

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

Messages postés
5
Date d'inscription
lundi 4 février 2019
Dernière intervention
5 février 2019
-
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
Afficher la suite 

Votre réponse

2 réponses

Messages postés
14071
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
21 février 2019
1302
0
Merci
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??
Bil_12
Messages postés
5
Date d'inscription
lundi 4 février 2019
Dernière intervention
5 février 2019
-
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
Bil_12
Messages postés
5
Date d'inscription
lundi 4 février 2019
Dernière intervention
5 février 2019
-
Merci f894009

j'ai essayé mais le problème existe encore;
Commenter la réponse de f894009
Messages postés
14071
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
21 février 2019
1302
0
Merci
Bonjour,

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

Oui sa marche, mais il n'accepte pas l'enregistrement après l'insertion
Bil_12
Messages postés
5
Date d'inscription
lundi 4 février 2019
Dernière intervention
5 février 2019
-
j'utilise des fichiers pdf
f894009
Messages postés
14071
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
21 février 2019
1302 -
Re,

Ben, chez moi pas de soucis que ce soit l'extension du fichier!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Commenter la réponse de f894009