Contenu récent par Kaizers

  1. K

    Fusionner tous les PDF d'un dossier

    Hello Effectivement cela aurait pu être ma solution, mais je n'ai que deux onglets, je change les filtre et exporte 26x les deux onglets, et range tous les pdf dans un dossier Sinon j'ai trouvé avec PDFCreator, j'importe en 4 fois et je fusionne
  2. K

    Fusionner tous les PDF d'un dossier

    Bonjour à tous, Alors voilà, je suis en charge d'un reporting, que j'ai déjà automatisé à 99% via Excel/VBA mais je bloque sur la tâche finale Je mets dans un dossier tous les PDF qui vont constituer le fichier final, soit 54 PDF, qui doivent en faire qu'un seul Les 54 fichiers se situent...
  3. K

    XL 2016 Insérer Graph Excel dans Powerpoint VBA

    Hello tout le monde Je bloque sur un truc, simplement à copier coller un graphique excel, et à le repositionner dans la slide mais ça ne fonctionne pas Ca me colle bien le graphique mais le cadrage que je veux ne fonctionne pas Sub Macro1() Dim ppt As PowerPoint.Application Dim pptdoc As...
  4. K

    XL 2016 Modification code VBA

    Effectivement tout simple, merci bcp
  5. K

    XL 2016 Modification code VBA

    Bonjour J'ai ce code, qui fonctionne très bien, mais je souhaite qu'il déplace les fichiers, actuellement il me les copies, mais je veux qu'ils n'y soient plus Sub Deplacement() Dim FichierOriginal As String Dim FichierCopie As String Dim A As Long A = Range("F14").Value B =...
  6. K

    XL 2013 Amélioration code VBA

    ca a fonctionné et maintenant plus je sais pas ce que j'ai fait ^^
  7. K

    XL 2013 Amélioration code VBA

    C'est exactement ca merci bcp :)
  8. K

    XL 2013 Amélioration code VBA

    Sur une seule colonne, en fait je mets un X, comme ca j'ai une recherchev aui cherche ce X Donc si je clique ailleurs il me faut que 1 seul X de A1:A20 et uniquement sur cette plage un seul X
  9. K

    XL 2013 Amélioration code VBA

    Bonjour à tous, J'ai ce code, qui fonctionne mais qui est imparfait pour mon utilisation Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Application.Intersect(Target, Range("F8:F19")) Is Nothing Then 'modifie ton tableau If Target.Value = "" Then...
  10. K

    XL 2013 Zone de liste (Contrôle de formulaire) - VBA

    Bonjour à tous, Dans une zone de liste, Excel vous surligne en bleu foncé, la dernière sélection. Est-il possible via VBA de retirer cette sélection ? pour laisser libre choix à l'utilisateur sans présélection ? Merci pour votre aide =)
  11. K

    XL 2013 Blocage macro simple

    Bonjour à tous, Dans un de mes fichiers, j'ai besoin de sélectionner la ligne entière (Comme MAJ + ESPACE), pour l'effet "surlignage" En gros je veux sélectionner la dernière ligne entière que je viens de créer La fonction me compte la dernière ligne vide, puis créer la ligne, et donc je veux...
  12. K

    XL 2013 Aide macro, envoi mail

    Bonjour à tous :) Comme à chaque fois je fais appel à la communauté, car, comme à chaque fois vous me trouvez une solution :) J'ai un fichier que je veux envoyer par mail depuis un bouton Le fichier : SP01_BRUT.xls Le chemin : Q:\CDG_DIR_OP\ J'aimerai qu'en cliquant sur le bouton, que VBA me...
  13. K

    Config PC

    Je déterre ce sujet mais ça pourrait aider d'autres personnes. Avec les PC Portable que l'on a au travail, la tâche s'effectuait en 40heures environ. Nous avons acheté un PC survitaminé, avec un processeurs 24coeurs. Il fait le job en 2heures aujourd'hui. Donc pour ceux travaillant avec de...
  14. K

    XL 2013 Petite macro TCD

    parfait cela fonctionne, merci :)
  15. K

    XL 2013 Petite macro TCD

    J'ai simplifié mon cas réel dans mon exemple. En réel, j'ai 6500 produits filtrable, et je peux en saisir 30 à la fois. Impossible donc sans VBA.