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
bourby
bonjour,
je ne comprends pas ton code: do while...loop sert à déterminer une variable logique, dont on ne sert pas ensuite! Ne faudrait-il pas tester cette variable avant l'instruction NAME , ou ramener la ligne NAME... dans la boucle?
Par ailleurs, je n'ai pas XP; mais accepte-t-il les "-" dans les noms de fichier?
Cordialement
Bourby
Eric wrote:
Bonjour à tous,
La macro ci-dessous fonctionne sans problème sous Windows 2000 + XL 2002 alors que sous XP + XL 2002, cela plante au niveau du
Name "C:pdfoutattest.pdf" As "C:pdf" & Nom & ".pdf"
Le fichier attest.pdf exite bien à l'endroit précisé.
Si quelqu'un a une poste ?
D'avance merci.
Eric
Sub AttestPdf()
Dim Varattest Dim Nom, i, a
Range("c2", [c2].End(xlDown)).Select i = Selection.Rows.Count
For a = 1 To i Do While Varattest = False 'Test d'existence du fichier If Dir("C:pdfoutattest.pdf") = "" Then Varattest = False Else
Varattest = True
End If Loop
Name "C:pdfoutattest.pdf" As "C:pdf" & Nom & ".pdf" Varattest = False
ActiveCell.Offset(1, 0).Select
Nom = "Att-" & ActiveCell.Value & "-" & ActiveCell.Offset(0, -1).Value & "-" & Month(ActiveCell.Offset(0, 2).Value) & Year(ActiveCell.Offset(0, 2).Value) Next a
End Sub
bonjour,
je ne comprends pas ton code: do while...loop sert à déterminer une
variable logique, dont on ne sert pas ensuite! Ne faudrait-il pas tester
cette variable avant l'instruction NAME , ou ramener la ligne NAME...
dans la boucle?
Par ailleurs, je n'ai pas XP; mais accepte-t-il les "-" dans les noms de
fichier?
Cordialement
Bourby
Eric wrote:
Bonjour à tous,
La macro ci-dessous fonctionne sans problème sous Windows 2000 + XL 2002
alors que sous XP + XL 2002, cela plante au niveau du
Name "C:pdfoutattest.pdf" As "C:pdf" & Nom & ".pdf"
Le fichier attest.pdf exite bien à l'endroit précisé.
Si quelqu'un a une poste ?
D'avance merci.
Eric
Sub AttestPdf()
Dim Varattest
Dim Nom, i, a
Range("c2", [c2].End(xlDown)).Select
i = Selection.Rows.Count
je ne comprends pas ton code: do while...loop sert à déterminer une variable logique, dont on ne sert pas ensuite! Ne faudrait-il pas tester cette variable avant l'instruction NAME , ou ramener la ligne NAME... dans la boucle?
Par ailleurs, je n'ai pas XP; mais accepte-t-il les "-" dans les noms de fichier?
Cordialement
Bourby
Eric wrote:
Bonjour à tous,
La macro ci-dessous fonctionne sans problème sous Windows 2000 + XL 2002 alors que sous XP + XL 2002, cela plante au niveau du
Name "C:pdfoutattest.pdf" As "C:pdf" & Nom & ".pdf"
Le fichier attest.pdf exite bien à l'endroit précisé.
Si quelqu'un a une poste ?
D'avance merci.
Eric
Sub AttestPdf()
Dim Varattest Dim Nom, i, a
Range("c2", [c2].End(xlDown)).Select i = Selection.Rows.Count
For a = 1 To i Do While Varattest = False 'Test d'existence du fichier If Dir("C:pdfoutattest.pdf") = "" Then Varattest = False Else
Varattest = True
End If Loop
Name "C:pdfoutattest.pdf" As "C:pdf" & Nom & ".pdf" Varattest = False
ActiveCell.Offset(1, 0).Select
Nom = "Att-" & ActiveCell.Value & "-" & ActiveCell.Offset(0, -1).Value & "-" & Month(ActiveCell.Offset(0, 2).Value) & Year(ActiveCell.Offset(0, 2).Value) Next a
End Sub
Eric
Salut,
La boucle do while me sert à tester la présence du fichier attest.pdf dans le répertoire c:attestpdf
Tant que le fichier n'est pas là (il est généré par une autre appli toutes les 15/20 secondes), tu restes en boucle.
Concernant les tirets, je ne pense pas que cela pose de problème
cordialement Eric
"bourby" a écrit dans le message de news:%
bonjour,
je ne comprends pas ton code: do while...loop sert à déterminer une variable logique, dont on ne sert pas ensuite! Ne faudrait-il pas tester cette variable avant l'instruction NAME , ou ramener la ligne NAME... dans la boucle?
Par ailleurs, je n'ai pas XP; mais accepte-t-il les "-" dans les noms de fichier?
Cordialement
Bourby
Eric wrote:
Bonjour à tous,
La macro ci-dessous fonctionne sans problème sous Windows 2000 + XL 2002 alors que sous XP + XL 2002, cela plante au niveau du
Name "C:pdfoutattest.pdf" As "C:pdf" & Nom & ".pdf"
Le fichier attest.pdf exite bien à l'endroit précisé.
Si quelqu'un a une poste ?
D'avance merci.
Eric
Sub AttestPdf()
Dim Varattest Dim Nom, i, a
Range("c2", [c2].End(xlDown)).Select i = Selection.Rows.Count
La boucle do while me sert à tester la présence du fichier attest.pdf dans
le répertoire c:attestpdf
Tant que le fichier n'est pas là (il est généré par une autre appli toutes
les 15/20 secondes), tu restes en boucle.
Concernant les tirets, je ne pense pas que cela pose de problème
cordialement
Eric
"bourby" <jchfer@wanadoo.fr> a écrit dans le message de
news:%23toxjN9KFHA.3788@tk2msftngp13.phx.gbl...
bonjour,
je ne comprends pas ton code: do while...loop sert à déterminer une
variable logique, dont on ne sert pas ensuite! Ne faudrait-il pas tester
cette variable avant l'instruction NAME , ou ramener la ligne NAME...
dans la boucle?
Par ailleurs, je n'ai pas XP; mais accepte-t-il les "-" dans les noms de
fichier?
Cordialement
Bourby
Eric wrote:
Bonjour à tous,
La macro ci-dessous fonctionne sans problème sous Windows 2000 + XL 2002
alors que sous XP + XL 2002, cela plante au niveau du
Name "C:pdfoutattest.pdf" As "C:pdf" & Nom & ".pdf"
Le fichier attest.pdf exite bien à l'endroit précisé.
Si quelqu'un a une poste ?
D'avance merci.
Eric
Sub AttestPdf()
Dim Varattest
Dim Nom, i, a
Range("c2", [c2].End(xlDown)).Select
i = Selection.Rows.Count
La boucle do while me sert à tester la présence du fichier attest.pdf dans le répertoire c:attestpdf
Tant que le fichier n'est pas là (il est généré par une autre appli toutes les 15/20 secondes), tu restes en boucle.
Concernant les tirets, je ne pense pas que cela pose de problème
cordialement Eric
"bourby" a écrit dans le message de news:%
bonjour,
je ne comprends pas ton code: do while...loop sert à déterminer une variable logique, dont on ne sert pas ensuite! Ne faudrait-il pas tester cette variable avant l'instruction NAME , ou ramener la ligne NAME... dans la boucle?
Par ailleurs, je n'ai pas XP; mais accepte-t-il les "-" dans les noms de fichier?
Cordialement
Bourby
Eric wrote:
Bonjour à tous,
La macro ci-dessous fonctionne sans problème sous Windows 2000 + XL 2002 alors que sous XP + XL 2002, cela plante au niveau du
Name "C:pdfoutattest.pdf" As "C:pdf" & Nom & ".pdf"
Le fichier attest.pdf exite bien à l'endroit précisé.
Si quelqu'un a une poste ?
D'avance merci.
Eric
Sub AttestPdf()
Dim Varattest Dim Nom, i, a
Range("c2", [c2].End(xlDown)).Select i = Selection.Rows.Count
