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

[Fermé]
Signaler
Messages postés
5
Date d'inscription
lundi 4 février 2019
Statut
Membre
Dernière intervention
5 février 2019
-
Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
-
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

2 réponses

Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
1 513
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??
Messages postés
5
Date d'inscription
lundi 4 février 2019
Statut
Membre
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
Messages postés
5
Date d'inscription
lundi 4 février 2019
Statut
Membre
Dernière intervention
5 février 2019

Merci f894009

j'ai essayé mais le problème existe encore;
Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
1 513
Bonjour,

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

Bonjour;

Oui sa marche, mais il n'accepte pas l'enregistrement après l'insertion
Messages postés
5
Date d'inscription
lundi 4 février 2019
Statut
Membre
Dernière intervention
5 février 2019

j'utilise des fichiers pdf
Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
1 513
Re,

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