Discussion :

[stcentor]

Bonjour,

J'aurai une petite question, car j'ai chercher sur le forum, mais je n'ai pas trouver de réponse a mon soucis

J'ai créé ressement un code VBA qui devrais ouvrir une fichier PDF.



Donc si je note directement le nom du fichier sa ouvre sans soucis mon document pdf.
Par contre j'aimerai en faite qu'il aille chercher l'info dans la cellule 'Nodessin' vu que ces un boutons unique, et qu'il y a plusieur configuration

Auriez-vous une solutions a me proposer svp

Je vous remerci d'avance de vos futur réponse

Steve

[madefemere]

Bonjour,

Le nom du contrôle étant variable, il faut le sortir du texte :

Code :

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

Shell "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe" & ("N:\CONCEPTION\Dessins\" & Me.Nodessin & ".pdf"),vbNormalFocus

Cordialement,

[stcentor]

J'ai effectuez la modification sur la ligne, et la il me dit que le fichier existe pas voir screen ci-dessous pourtant il existe



Vous avez une idee pour l'erreur

svp

Désolé suis vraiment pas fort pour le vba sur access et sa fait un moment que je rechercher la solutions a ce soucis

merci d'avance

[madefemere]

Re-,

Je te conseillerai d'utiliser la fonction ShellExecute déclarée comme en début de module:

Code :

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

1
2
3
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"  _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Et dans ton appel faire :

Code :

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

ShellExecute 0, "open", "N:\CONCEPTION\Dessins\" & Me.Nodessin & ".pdf", vbNullString, vbNullString, 1

Cordialement,

[stcentor]

Merci de ton aide

Je mets le code final ci quelqu'un aurez besoin de l'utiliser ou rechercherai une meme solutions

code [Fonctionne] :

Code :

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

1
2
3
4
5
6
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub Étiquette9_Click()
ShellExecute 0, "open", "N:\CONCEPTION\Dessins\" & Me.Nodessin & ".pdf", vbNullString, vbNullString, 1
End Sub