Programmation excel - Page 2

  1.  Mike-31
    Re,

    je ne comprends pas très bien ton problème, tu veux copier ces données sur excel,

    tu mets en surbrillance la partie à copier et clic droits sur la première cellule d'excel/collage spécial/coche texte
    1. mirage23
      d'acord je comprends
      c'est pas vraiment ce qui m'est demandé,
      merci en tout cas pour toute ton aide
      cordialement
  2. mirage23
    svp pour ce programme la :

    Declare Function Beep Lib "kernel32" (ByVal Frequence As Long, ByVal Duree As Long) As Long

    Sub LancementAutomatique()
    Go = TimeSerial(Hour(Time), Minute(Time), Second(Time) + "3")
    Application.OnTime Go, "LancementAutomatique"
    Call Beep(500, 100)
    Range(Range("A65536").End(xlUp), Range("A2").Offset(0, 48)).Cut
    Range("A3").Select
    ActiveSheet.Paste
    Range(Range("A65536").End(xlUp), Range("A65536").End(xlUp).Offset(0, 48)).Cut
    Range("A2").Select
    ActiveSheet.Paste
    End Sub

    j'essay de l'executer sur office2010, il me fait "erreur de compilation, le code contenu dans ce projet doit etre mis a jour pour pouvoir etre utilisé sur les systeme 64bits verifier et mettez a jour les instructions declaré, puis marquez les avec l'attribut Ptrsafe".

    je doit modifier quoi sur ce programme svp,??
    1. eriiic Contributeur
      Bonjour,

      As-tu installé la version 64 bits d'excel ?
      Si oui désinstalle-la et installe la 32 bits.
      Elle présente des incompatibilités et n'a aucun intérêt (sauf si tu dois gérer des tableaux énormes et que tu as beaucoup de mémoire sur ton système, et là ce sont des cas particuliers chez les pros)

      eric
  3. mirage23
    ya pas moyen , il est installé dans mon entreprise et je dois faire avec .....A+
    1. eriiic Contributeur
      Ca doit être ton appel à la fonction API Beep.
      Enlève cette partie (déclaration) et utilise la fonction Beep native d'excel ((sans paramètre) .

      eric
      2. Mike-31
        Bonsoir le fil,

        Oui ce doit être l'appel à la fonction Beep qui permet de moduler le Beep

        à essayer simplement comme cela

        Sub LancementAutomatique()
        Go = TimeSerial(Hour(Time), Minute(Time), Second(Time) + "3")
        Application.OnTime Go, "LancementAutomatique"
        Beep
        Range(Range("A65536").End(xlUp), Range("A2").Offset(0, 48)).Cut
        Range("A3").Select
        ActiveSheet.Paste
        Range(Range("A65536").End(xlUp), Range("A65536").End(xlUp).Offset(0, 48)).Cut
        Range("A2").Select
        ActiveSheet.Paste
        End Sub
        Précédent
        • 1
        • 2