Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Appeler un programme

Appeler un programme

7 réponses
Avatar
JM
Bonjour,

est-il possible, en VBA, de lancer l'édition de documents PDF ? Par exemple,
une table contiendrait le nom des fichiers (et le chemin) et il serait
possible d'imprimer automatiquement certains.

Merci.
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

utilise l'api openfileextend qui permet de lancer tous les fichiers connus
de windows:
http://officesystem.access.free.fr/apiopenfileextend.htm

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JM" a écrit dans le message de news:

Bonjour,

est-il possible, en VBA, de lancer l'édition de documents PDF ? Par
exemple,
une table contiendrait le nom des fichiers (et le chemin) et il serait
possible d'imprimer automatiquement certains.

Merci.




Avatar
JM
Merci.


"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

utilise l'api openfileextend qui permet de lancer tous les fichiers connus
de windows:
http://officesystem.access.free.fr/apiopenfileextend.htm

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JM" a écrit dans le message de news:

Bonjour,

est-il possible, en VBA, de lancer l'édition de documents PDF ? Par
exemple,
une table contiendrait le nom des fichiers (et le chemin) et il serait
possible d'imprimer automatiquement certains.

Merci.








Avatar
JM
Raymond, sorry, mais il semblerait que cette fonction n'accepte pas une
variable pour 'Nom de Fichier'.

Me gourje ?

Merci.


"JM" a écrit dans le message de
news:
Merci.


"Raymond [mvp]" a écrit dans le message
de

news:
Bonjour.

utilise l'api openfileextend qui permet de lancer tous les fichiers
connus


de windows:
http://officesystem.access.free.fr/apiopenfileextend.htm

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JM" a écrit dans le message de news:

Bonjour,

est-il possible, en VBA, de lancer l'édition de documents PDF ? Par
exemple,
une table contiendrait le nom des fichiers (et le chemin) et il serait
possible d'imprimer automatiquement certains.

Merci.












Avatar
Raymond [mvp]
si, ça accepte un nom de variable mais surtout il faut bien indiquer
l'extension du fichier dans la valeur de la variable.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JM" a écrit dans le message de news:

Raymond, sorry, mais il semblerait que cette fonction n'accepte pas une
variable pour 'Nom de Fichier'.

Me gourje ?

Merci.


Avatar
JM
Ah. Alors je sais pas pourquoi ça fonctionne pas.

Avec :
Private Sub Commande0_Click()
Dim Réponse As Variant
Réponse = OpenFileExtend("DISTRIBUECertif 0550004.tif", Maximized,
OpExecute)
Réponse = OpenFileExtend(LeFichier, Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
End Sub

pas de problème. Mais avec :

Private Sub Commande0_Click()
Dim Réponse As Variant
Dim LeFichier As Variant
LeFichier = "DISTRIBUECertif 0550004.tif"
Réponse = OpenFileExtend(LeFichier, Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
End Sub

j'ai "Erreur de compilation : type d'argument ByRef incompatible".

A +



"Raymond [mvp]" a écrit dans le message de
news:
si, ça accepte un nom de variable mais surtout il faut bien indiquer
l'extension du fichier dans la valeur de la variable.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JM" a écrit dans le message de news:

Raymond, sorry, mais il semblerait que cette fonction n'accepte pas une
variable pour 'Nom de Fichier'.

Me gourje ?

Merci.






Avatar
Raymond [mvp]
il ne faut pas déclarer variant mais String
Dim LeFichier As Variant
Dim LeFichier As String

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JM" a écrit dans le message de news:

Ah. Alors je sais pas pourquoi ça fonctionne pas.

Avec :
Private Sub Commande0_Click()
Dim Réponse As Variant
Réponse = OpenFileExtend("DISTRIBUECertif 0550004.tif", Maximized,
OpExecute)
Réponse = OpenFileExtend(LeFichier, Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
End Sub

pas de problème. Mais avec :

Private Sub Commande0_Click()
Dim Réponse As Variant
Dim LeFichier As Variant
LeFichier = "DISTRIBUECertif 0550004.tif"
Réponse = OpenFileExtend(LeFichier, Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
End Sub

j'ai "Erreur de compilation : type d'argument ByRef incompatible".

A +


Avatar
JM
Je suis un âne. Mille mercis.


"Raymond [mvp]" a écrit dans le message de
news:%
il ne faut pas déclarer variant mais String
Dim LeFichier As Variant
Dim LeFichier As String

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JM" a écrit dans le message de news:

Ah. Alors je sais pas pourquoi ça fonctionne pas.

Avec :
Private Sub Commande0_Click()
Dim Réponse As Variant
Réponse = OpenFileExtend("DISTRIBUECertif 0550004.tif", Maximized,
OpExecute)
Réponse = OpenFileExtend(LeFichier, Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
End Sub

pas de problème. Mais avec :

Private Sub Commande0_Click()
Dim Réponse As Variant
Dim LeFichier As Variant
LeFichier = "DISTRIBUECertif 0550004.tif"
Réponse = OpenFileExtend(LeFichier, Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
End Sub

j'ai "Erreur de compilation : type d'argument ByRef incompatible".

A +