Résultats de la recherche

  1. E

    Fonction Application.Ontime

    Re : Fonction Application.Ontime Visiblement c'est du au fait que "MaMacro" doit être dans mes modules et pas dans Workbook :/ Tes exemples sont terrible boisgontier !! Un grand merci ;)
  2. E

    Fonction Application.Ontime

    Bonjour, J'ai un fichier avec macro dans workbook, start et close... Je souhaierais ajouter 2 choses mais je n'y parviens pas... Donc dans mon start j'ai ajouter cette ligne : Application.OnTime Now + TimeValue("00:10:00"), "MaMacro" Mais il me dit impossible d'executer la macro...
  3. E

    VBA - Enregistrer un fichier avec un nombre de cellule limité

    Re : VBA - Enregistrer un fichier avec un nombre de cellule limité Pourquoi n'y avais-je pas pensé :/ Merci ! Ça fonctionne nickel ;)
  4. E

    VBA - Enregistrer un fichier avec un nombre de cellule limité

    Re : VBA - Enregistrer un fichier avec un nombre de cellule limité Je me permet un petit UP...
  5. E

    Calculer des moyennes OK, mais seulement si...

    Re : Calculer des moyennes OK, mais seulement si... Waou la formule :eek: Fonctionne nickel ;) Malin de se servir de durée, je vais l'adapter a mon tableau pour voir Merci !
  6. E

    Calculer des moyennes OK, mais seulement si...

    Bonjour a tous, Quotidiennement je dois calculer des moyennes, et j'aimerais savoir si un code en VBA saurait m'aider a automatiser la chose...? Faire des moyenne n'ai guère difficile me direz vous, mais dans mon besoin c'est un chouillat plus compliqué :) du moins pour moi Donc le...
  7. E

    VBA - Enregistrer un fichier avec un nombre de cellule limité

    Bonjour, Je souhaites qu'a la fermeture de mon fichier, une macro enregistre a la date du jour, j'ai écrit ceci : Private Sub Workbook_BeforeClose(Cancel As Boolean) ' je met a jour la base de données ENVOIversHISTO ' je copie la date pour controler le lendemain...
  8. E

    "Enregistrer sous" le xls à la date du jour

    Re : "Enregistrer sous" le xls à la date du jour Superbe JB Merci, et si je souhaite ajouter un if ? Ex : If now<14:00 then Variable == "M" else "AM" Et l'ajouter dans le titre : Chemin & "Test - " & Format(Date, "yyyy mm dd") - Variable, FileFormat:=xlExcel8, _ Aussi :/ Si...
  9. E

    "Enregistrer sous" le xls à la date du jour

    Bonjour, Je souhaiterais qu'une macro "enregistre sous" des cellules de mon tableau source dans un dossier avec pour titre de document la date du jour. Seulement quand je ferme le doc... Donc ici : Private Sub Workbook_BeforeClose(Cancel As Boolean) ' code ? End Sub Vers ...
  10. E

    Macro - Envoi liste en pdf par mail a une liste de destinataires

    Re : Macro - Envoi liste en pdf par mail a une liste de destinataires Bonjour et merci pour ce code qui est ma foi nickel !! Sub test() rangeToPdf "A10:B19", "C:\Users\L0264687\Links\TEST.pdf" End Sub Private Sub rangeToPdf(Plage$, strpath$) Dim rng As Range, nfic$ Set rng =...
  11. E

    Macro - Envoi liste en pdf par mail a une liste de destinataires

    Re : Macro - Envoi liste en pdf par mail a une liste de destinataires Personne n'a une idée please ?
  12. E

    Macro - Envoi liste en pdf par mail a une liste de destinataires

    Re : Macro - Envoi liste en pdf par mail a une liste de destinataires J'ai donc cherché et cherché et j'ai trouvé ce code... Je pense que la base est bonne car il se sert de ma messagerie par defaut... Il tien compte d'une liste de destinataire Par contre je ne trouve pas comment...
  13. E

    Macro - Envoi liste en pdf par mail a une liste de destinataires

    Bonjour, Petit projet sur script ambitieux... J'utilise une macro pour envoyer des mails a des destinataires: Sub envoie_une_page() Sheets("TEST").Copy Cells.Copy Cells.PasteSpecial (xlPasteValues) ActiveWorkbook.SendMail "tartempion@yahoo.fr", "TEST1" End Sub Je souhaiterais...
  14. E

    Extraire des données vers une base de données

    Re : Extraire des données vers une base de données Un grand merci @camarchepas qui aide sérieusement et script comme un fou pour nous permettre de faire des pepites ;-) A bientot j'espere
  15. E

    Extraire des données vers une base de données

    Re : Extraire des données vers une base de données Bonjour, J'ai un soucis avec le chemin je pense... Si je met tel que dans ton script j'ai l'erreur du 1er fichier joint (capturer) En fait lorsque je met comme chemin un dossier local par exemple : C:\Users\L0264687\Links\ et bien le...
  16. E

    Extraire des données vers une base de données

    Re : Extraire des données vers une base de données je m'auto repond pour celle la ;*-) Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  17. E

    Extraire des données vers une base de données

    Re : Extraire des données vers une base de données .Range("B" & LigneDebut).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Dans le collage spécial comment coller les valeurs, sans les formules ?
  18. E

    Extraire des données vers une base de données

    Re : Extraire des données vers une base de données Poua magnifique @camarchepas !!! Quel script ! JOLIE ! Allé grand luxe j'en tente un dernier Ajouter un autre if dans la fonction recuperation de la date peut etre... C'est a dire : dans le fichier destination, si la date est déjà...
  19. E

    Extraire des données vers une base de données

    Re : Extraire des données vers une base de données aaaaaaah Okééé !!! En fait je peux pas transformer une colonne en ligne Donc mon fichier source doit etre présenté sur une ligne pour que le script le copie et le colle sur une autre feuille ?
  20. E

    Extraire des données vers une base de données

    Re : Extraire des données vers une base de données Bonjour, Oui navré les gars je vois bien que je suis surement pas assez clair dans mes explications :( Vous essayer de m'aider et je vous en suis 1000 fois reconnaissant ! J'ai du coup suivi ta recommandation @camarchepas et j'ai...