Bienvenue! Identification Créer un nouveau profil

Recherche avancée

[AC13] Boucle

31/05/17 15:50
Bonjour et merci d'avance pour votre aide

J'essaie de parcourir un formulaire qui contient 4 champs : NumLigne (numéroAuto), NumLigneMax (numérique entier long), Lien (texte), Chemin (texte)

J'ai 2 enregistrements :
47 48 P:\XX\FichiersImportes\TestPdf1.pdf P:\XX\ImpressionPdf\Test1.pdf
48 48 P:\XX\FichiersImportes\TestPdf2.pdf P:\XX\ImpressionPdf\Test2.pdf

Je cherche à recopier le fichier dont le répertoire est indiqué dans le champ Lien dans le répertoire Chemin.

Langage: Visual Basic
Private Sub BtnImprimer_Click() Dim NumeroLigne As Integer Dim NumeroLigneMax As Integer NumeroLigne = Me.NumLigne NumeroLigneMax = Me.NumLigneMax While NumeroLigne <= NumeroLigneMax FileCopy Me.LienFiche, Me.CHeminImprim NumeroLigne = NumeroLigne + 1 Wend MsgBox "Copies terminées", , "Avertissement" End Sub

Le fichier qui est dans le 1er enregistrement se copie bien mais il ne passe pas au 2ème enregistrement et sort de la boucle.

Pouvez vous m'aider ?
Merci

Catherine
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