Bienvenue! Identification Créer un nouveau profil

Recherche avancée

[AC13] Re: Boucle

01/06/17 10:20
Super merci, j'avais bien essayé aussi avec la gestion des recordset mais je suis encore plus tâche !!
Maintenant cela fonctionne parfaitement :

Langage: Visual Basic
Private Sub BtnImprimer_Click()   Dim objFSO As FileSystemObject Set objFSO = New FileSystemObject Dim objRep As Folder Dim CHeminAVider As Variant CHeminAVider = Me.CHeminImprim Set objRep = objFSO.GetFolder(CHeminAVider) Dim objFichier As File For Each objFichier In objRep.Files objFichier.Delete Next objFichier   Dim rs As DAO.Recordset Set rs = Me.RecordsetClone ' Copie du jeu d'enregistrement du formulaire. rs.MoveFirst Do While Not rs.EOF FileCopy rs!LienFiche, rs!FichierCopie rs.MoveNext Loop rs.Close MsgBox "Fichiers enregistrés dans le répertoire de destination " & Me.CHeminImprim & ". Pour les imprimer ou les imprimer en pdf, allez dans l'explorateur et cliquez avec le bouton droit de la souris après avoir sélectionner tous les fichiers.", , "Avertissement"   End Sub
SujetAuteurEnvoyé le

[AC13] Boucle

catherine@cairis.fr31/05/17 15:50

[AC13] Re: Boucle

DenisS31/05/17 18:40

[AC13] Re: Boucle

catherine@cairis.fr01/06/17 08:05

[AC13] Re: Boucle

DenisS01/06/17 10:03

[AC13] Re: Boucle

catherine@cairis.fr01/06/17 10:20

[AC13] Re: Boucle

DenisS01/06/17 10:33

[AC13] Re: Boucle

catherine@cairis.fr01/06/17 10:55

[AC13] Re: Boucle

DenisS01/06/17 10:57

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter