Discussion :

[Raikko68]

Bonjour à tous

Je vous explique mon petit problème:

Au travail j'ai créer un formulaire par le biais d'un userform et me renvoi les valeurs dans des cellules. Jusqu'à pas de problème.

Maintenant j'aimerais convertir cette feuille en PDF par le biais d'une macro sans intervention de l'utilisateur. Au travail nous avons PDF-XChange pour imprimante virtuelle.
J'arrive à lancer la fenetre et à selectionner l'imprimante à l'aide d'une macro.

J'ai rajouter une SendKeys pour simuler la touche entrée

La première fois la conversion c'est fait toute seule sans soucis mais la deuxième fois, ça n'a plus marcher.

En fait une fois l'imprimante sélectionner, une seconde fenêtre s'ouvre intulé "Save As" du logigiel X-Change qui me demande ou enregistrer mon PDF. Il faudrait juste appuyer sur Entrée.
La première fois ça me la fait mais depuis, la fenêtre "Save As"' s'ouvre mais elle n'a pas de focus, car l'onglet en bas clignote orange et elle n'est pas bleu. Et quand j'appui sur Entrée l'action se passe sur la feuille Excel.

Alors ma question serait de s'avoir comment puis-je remettre le focus sur cette fenêtre qui s'ouvre et ainsi mon SendKeys marcherait à nouveau...

Merci d'avance pour votre réponse


PS: quand je redémarre le PC ma macro fonctionne à merveille mais juste 1 fois et après plus de focus....

La version utiliser est Excel 2003 avec Windows XP

[Godzestla]

Bonjour,

il existe d'autre solutions qui permettent de gérer le save automatiquement.

Il y a par exemple PDFCreator, que je n'utilise pas personnellement, mais qui apparement fonctionne très bien.

Tu trouveras sur ce forum ou dans la faq tout ce que tu souhaites sur PDFCREATOR.

J'utilise personnelement CutepDF qui en standard ne supporte pas le SaveAs automatique mais j'ai contourné le problème avec du code et je sauve mon fichier en PDF avec le meme nom que le classeur excel, au même endroit, avec un simple clic d'icone.

Si tu n'es pas satisfait de PDFcreator et si tu souhaites ma solution perso, fais moi signe.

[Lou Pitchoun]

Salut,

Pour compléter la réponse de Godzestla sur PDFCreator, tu peux t'inspirer du code présent dans cet article sur Access : http://cafeine.developpez.com/access/tutoriel/pdf/

[Raikko68]

Merci beaucoup pour vos réponses rapide, mais le problème c'est que je ne peut pas installer PDF Creator ni aucun autre logiciel d'ailleurs au travail nous n'avons pas les droits administrateurs...

Dans les options de sauvegarder du logiciel PF-XChange on peut supprimer l'option Save As, la fenêtre n'apparait plus alors mais le problème c'est que je ne peut pas définir moi même le nom du fichier il met d'office le nom du classeur

Une solution pour se problème ?

[Godzestla]

..

Dans les options de sauvegarder du logiciel PF-XChange on peut supprimer l'option Save As, la fenêtre n'apparait plus alors mais le problème c'est que je ne peut pas définir moi même le nom du fichier il met d'office le nom du classeur

Une solution pour se problème ?

Très simple, tu le laisses faire et puis tu fais un rename du fichier ou une copie selon tes désidératas.

Voir NAME, Filecopy (et Kill si nécessaire).

[Raikko68]

OUh la désolé c'est un peu du charabia pour moi !

Tu peut me donner le code qui peut faire ça s'il te plait ?

[Lou Pitchoun]

Kill : http://office.developpez.com/faq/ind...on&r5=on&r6=on
Name : http://office.developpez.com/faq/ind...on&r5=on&r6=on
FileCopy : http://office.developpez.com/faq/ind...on&r5=on&r6=on

Tout est dans les FAQ

[Godzestla]

Donc en VBA, pour copie un fichier

Code :

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

1
2
3
4
5
6
 
    On Error Resume Next
    FileCopy source, target
    If Err.Number = 70 Then
        MsgBox target & " file locked. Cannot be replaced. Close locking application and retry", vbSystemModal
    End If

ou source et target sont des variables string à initialiser avec le nom complet (drive et chemin compris) des fichiers.

Ex : copie de C:\data\tutu.doc vers c:\backup\test\lapin.doc

Code :

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

1
2
3
source = "C:\data\tutu.doc"
target = "c:\backup\test\lapin.doc"
FileCopy source, target

Pour supprimer le fichier source :

Code :

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

1
2
 
kill source

Pour renommer un fichier

Code :

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

1
2
 
NAME old_name, new_name