Fermeture du pdf inactive et enregistrement intuitif

Bonsoir à tous,

voici un fichier comportant un formulaire qui permet d'éditer une feuille cachée au format pdf.

Sur ce formulaire il y a sur la droite des boutons de commande dont un qui est sensé fermer le formulaire et aussi le fichier édité au format pdf afin de ne pas empêcher la validation de saisies ultérieures.

Pour fermer les pdf l'instruction suivante :

CreateObject("WScript.Shell").Run "taskkill.exe /IM AcroRd32.exe /T /F", 0.

Mais hélas si je la place dans le code du bouton pour fermer le formulaire, seul le formulaire est fermé.

Savez -vous pourquoi?

Comment puis-je ordonner la fermeture du pdf avant une autre validation

J'ai tenté de mettre l'instruction au niveau du bouton de validation, mais le fichier éditer ne se ferme pas également.

Ainsi si je reprends ma saisie, j'ai une erreur document non enregistré lorsque je valide mon formulaire.

De plus j'ai remarqué que le fichier édité se placer aléatoirement hors je voudrais qu'il s'enregistre dans un repertoire donné.

Est-ce possible ?

Merci d'avance

Siga

Bonjour,

ci-jointe une proposition via utilisation des APIs de gestion de fenêtre

Bonjour @thev ,

Bonjour à tous,

Comme j'étais grippée je viens de prendre connaisance de ta réponse .

MERCI pour cette réponse et ce travail considérable.

Je dois t'avouer que malgré tes commentaires je n'y comprends rien

Quoiqu'il en soit j'ai testé et cela ne marche pas a priori en ce qui concerne la femeture du pdf lorsque

J'ai retenu l'instruction pour le chemin.

Je vais l'essayer dans mon environnement et je reviens vers vous.

Siga

siga2fadial a écrit :

Quoiqu'il en soit j'ai testé et cela ne marche pas

Je suis surpris car dans le fichier que j'ai envoyé, ça fonctionne.

Si après exportation du PDF, on clique sur le bouton "Fermer', la fenêtre PDF est bien fermée.

Rebonjour Thev,

Pour la sauvegarde dans le même repertoire cela marche.

J'ai testé sur mon bureau et dans un autre repertoire cela marche.

Seulement ma vie n'étant pas un long fleuve tranquille , j'apprends en rentrant de maladie qu'à présent les pdfs vont devoir être sauvegarder sur repertoire situé sur un serveur accessible à distance sans VPN par les utilisateurs et par moi-même.

On m'indique le chemin qui m'est donc imposé.

En farfouillant sur le forum. J'ai trouvé l'instruction suivante:

 Dim MonCheminDistant As String...
MonCheminDistant =chemin imposé

Donc si je reprens mon code de départ cela donnerait.

 Private Sub CommandButton2_Click()

    Dim LaDate As String, Nmut As String, Nfic2 As String, MonCheminDistant As String
    LaDate = Format(Date, "yyyymmdd")
    Nmut = TextBox14.Value
    Nfic2 = "A"
    MonCheminDistant =Chemin imposé 
    nom_fichier_pdf = Nmut & Nfic2 & LaDate & ".pdf"

    If Worksheets("A").Visible = xlSheetVeryHidden Then
        Worksheets("A").Visible = xlSheetVisible
    End If

    With Worksheets("A")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, Filename:=MonCheminDistant & "\" & nom_fichier_pdf, OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With

End Sub 

j'aurai aimé ajouter un fichier mais hélas je n'ai pas encore acces au serveur

Qu'en pensez-vous ?

Siga

Bonjour thev,

Merci pour l'info, je refais un test tout de suite et je te dis ça,

Siga

Bonjour à tous ,

Bonjour @Thev

Milles excuses effctivement cela marche.

En fait , dans la barre des taches je voyais toujours l'application ouverte et du coup je m'imaginais que le fichier était ouvert et ce n'était pas le cas.

Je suis vraiment NULLE mais encore plus désolée

Siga