Discussion :

[cobra38]

Bonjour à Tous ,

J'ai besoin de vos lumières car dans mon projet
je dois :

1) verifier la presence d'un fichier PDF à partir d'un chemin donné

2) insérer ce fichier dans une cellule ( le principe de base étant que je puisse exporter mon fichier avec mes pages PDF )

Le tout naturellement à partir d'USF car la mise à jour des cellule de ma feuille s'effectue à partir d'un USF uniquement

Si pour le point (1) je pense pouvoir trouver mon bonheur dans le forum
Parc ontre pour le point(2), je ne vois pas comment traduire en VBA la fonction Excel : Insertion->Objet -> Créer à partir d'un fichier etc..
Ou peut-être connaissez-vous une autre façon pour aboutir au même
resultat ?

Mille mercis par avance

A++

[jfontaine]

Bonjour,

Pour la partie 2 tu peux utiliser l'enregistreur de macro pour trouver le code.

[cobra38]

Salut jfontaine

j'ai suivi tes conseils et je suis bloqué sur cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub Valider_Click()
Dim msg$, i As Byte, c As Range, j As Byte, ess As Long
Dim Tablo As Variant, Valeur(30), Ordre
Dim cherche1 As String
Dim Reponse As Range

Tablo = Array("Une Tranche", "Un N° de PEE", "Le Chemin du Fichier", "Le Nom du Fichier", "Le N° Sérapis", "La Date d'Enregistrement")
Ordre = Array(0, 1, 2, 3, 4, 5, 6)


    Valeur(0) = Box1.Value 'Tranche
    Valeur(1) = Box2.Value 'N° REE
    Valeur(2) = TextBox7.Text ' Chemin
    Valeur(3) = TextBox8.Text ' Fichier
    Valeur(4) = TextBox1.Text ' N° Serapis
    Valeur(5) = CalendarEnr.Value ' Enregistrement
    
    Valeur(6) = TextBox7.Text + TextBox8 + ".pdf"
    

For i = 0 To 5 ' Propriétaire
    If Valeur(i) = Empty Then
       MsgBox "Saisir " & Tablo(i), vbCritical, "Données incomplètes"
       Exit Sub
    End If
Next

'--- Mise à Jour des données -----

If Not IsNull(Box2.Value) Then
   cherche1 = Box2.Value
   Set Reponse = Sheets("TR" & Box1.Value).Cells.Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext)
   If Not Reponse Is Nothing Then
      Reponse.Offset(0, 3) = Sheets("TR" & Box1.Value).OLEObjects.Add(Filename:=Valeur(6), Link:=False, DisplayAsIcon:=True, IconFileName:="packager.exe", IconIndex:=0, IconLabel:=Valeur(6).Select)
      Reponse.Offset(0, 4) = Valeur(4)
      Reponse.Offset(0, 6) = Valeur(5)
   End If
End If



End Sub

J'ai une erreur N°424
"objet requis"
Je ne vois pas du tout ce que c'est et un petit coup de main me serait grandement utile

Mille mercis
A+

[casefayere]

Bonjour,
peut-être suis-je en eereur car je n'zi pas analyser ton code mais "reponse" est déclaré en range donc il faut mettre set devant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 set Reponse.Offset(0, 3) = Sheets("TR" & Box1.Value).OLEObjects.Add(Filename:=Valeur(6), Link:=False, DisplayAsIcon:=True, IconFileName:="packager.exe", IconIndex:=0, IconLabel:=Valeur(6).Select)
      set Reponse.Offset(0, 4) = Valeur(4)
      set Reponse.Offset(0, 6) = Valeur(5)

bonne soirée

[cobra38]

Bonjour à Tous ,

Désolé casefayere j'ai essayé ta solution et j'ai malheureusement
toujours la même erreur
j'ai remplace ma ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Reponse.Offset(0, 3) = Sheets("TR" & Box1.Value).OLEObjects.Add(Filename:=Valeur(6), Link:=False, DisplayAsIcon:=True, IconFileName:="packager.exe", IconIndex:=0, IconLabel:=Valeur(6)).Select

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Reponse.Offset(0, 3) = "=HYPERLINK(""" & TextBox7.Text & TextBox8 & ".Pdf" & """)"

Il s'agit donc du lien hypertext mais faute de mieux


merci tout de même
A+

[sabzzz]

bonjour Cobra38,

voici 3 possibilités, selon les logiciels installer sur ton pc,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub AvecPDfCreator()
fich = "C:\MonFichier.pdf"
ActiveSheet.OLEObjects.Add Filename:=fich, Link:=False, DisplayAsIcon:=False, _
IconFileName:="C:\Program Files\PDFCreator\PDFCreator.exe", IconIndex:=0, IconLabel:=FichConsult
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub AvecAcrobat()
fich = "C:\MonFichier.pdf"
ActiveSheet.OLEObjects.Add Filename:=fich, Link:=False, DisplayAsIcon:=False, _
IconFileName:="C:\Program Files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe", IconIndex:=0, IconLabel:=FichConsult
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub AvecMSPVIEW()
fich = "C:\MonFichier.pdf"
ActiveSheet.OLEObjects.Add Filename:=fich, Link:=False, DisplayAsIcon:=False, _
IconFileName:="C:\Program Files\Fichiers communs\Microsoft Shared\MODI\11.0\MSPVIEW.exe", IconIndex:=0, IconLabel:=FichConsult
End Sub

isabelle

[cobra38]

merci sabzzz

ok çà marche
j'ai juste un petit problème de "cadrage" en fait
l'icone ne s'ajuste pas à la hauteur de la cellule concernée
mais à part çà , c'est ok

Mille mercis
A+