Autres macros Excel

Cheminotbelgiantrain · 17 Novembre 2024

Bonjour tout le monde , tout d'abord je vous remercie pour ce forum pour résoudre différents problèmes confrontés lors de création des macros en Excel . je viens de m'inscrire aujourd'hui car je voulais comprendre beaucoup mieux ce programme pour trouver des solutions avec vos soutiens bien sûr à des questions sur les macros.
ma question d'aujourd'hui est la suivante:
je cherche à créer automatiquement un onglet à partir d'une première feuille et lui donner le nom avec la date du jour sous la forme jj-mm-aaaa.
le contenu de la feuille jj-mm-aaaa doit être sauvegardé et recopié dans la feuille jj+1-mm-aaaa.
ce travail est journalier !!
d'avance merci pour votre aide !

Cheminotbelgiantrain · 12 Février 2025

ChTi160 à dit:
Re
demande d'explications Lol (je vais pouvoir te remplacer bientôt Lol)
Le 10/02/2025 tu as par exemple en « Prévu pour ce Jour« 12704 et le même Jour ce 12704 est placé en position 3 est-ce Normal ? y’a-t-il obligatoirement placement à une position le Jour même ?

comme expliqué avant la position n'a pas d'impact.
12704 est dans la position 3 le jour de son entrée ou autres positions peut importe !!! elle peut aussi sortir le même jour d'entrée en fin journée d'où elle peut être dans la colonne " prévues pour ce jour" dans une position des 16 positions possibles et dans la colonne " sortie du jour ".

ChTi160 à dit:
autre interrogation:
le 12816 on le sort le 10/02/2025 Position 2 et on ne le retrouve pas le Lendemain Normal ?

oui c'est normal car elle est sortie de l'atelier !!!

ChTi160 à dit:
jean marie

Cheminotbelgiantrain · 12 Février 2025

ChTi160 à dit:
Bonjour le Fil,
en attendant les réponse aà mon précédent Message Lol
une vidéo de ce que j'ai fait !
Bonne Journée
Jean marie

Re-bonjour Papy !!
je viens de le voir c'est tout à fait ça !! 🎓 🎓 🎓

ChTi160 · 12 Février 2025

Re
Pour le 12816 j'avais pas vu qu'il était sorti le jour même lol
je demandais aussi a quoi ça correspond cette façon de Noter les deux trains 69045 NOK= 62066 , j'ai compris que 69045 NOK n'est pas OK mais "= 62066" ça veut dire quoi ? Lol
Jean marie

ChTi160 · 12 Février 2025

Re
que de questions Lol(je suis en formation Lol)
Tu dis : "demandée la veille" tu veux dire que tu demandes a l'atelier si la voiture est prise en Charge ?
si elle ne l'est pas , tu renotes en Colonne "prévues pour ce jour" le Numéro de la Voiture comme pour la 69045 qui est NOK le 11/02/2025 et 69045 réapparait le 12/02/2025
si 69045 qui est NOK le 11/02/2025 c'est qu'il a était dans la colonne "prévues pour ce jour" un Jour avant ?
Jean marie

ChTi160 · 12 Février 2025

Re
Un petit fichier pour tester !(perfectible )
j'ai du le Zipper car 1025 Ko !
Ne pas hésiter si besoin d'explications !
Bonne fin de Journée
Jean marie

Cheminotbelgiantrain · 17 Février 2025

ChTi160 à dit:
Re
Un petit fichier pour tester !(perfectible )
j'ai du le Zipper car 1025 Ko !
Ne pas hésiter si besoin d'explications !
Bonne fin de Journée
Jean marie

Bonjour JM,
voici ce qu'il m'affiche quand j'ai essayé de le tester !
à l'ouverture il me donne cela :

et quand je clique sur ouvrir il me donne ceci :

ChTi160 · 17 Février 2025

Bonjour ,
Sûrement un problème de version d'excel !
Bonne journée
Jean marie

Cheminotbelgiantrain · 17 Février 2025

ChTi160 à dit:
Bonjour ,
Sûrement un problème de version d'excel !
Bonne journée
Jean marie

voici ma version !

ChTi160 · 17 Février 2025

Re
Toi 64 bits moi 32 bits
Y'a a modifier les Apis
Je regarderai plutard,petits enfants.
Bonne journée
Jean marie

Cheminotbelgiantrain · 17 Février 2025

TooFatBoy à dit:
As-tu essayé de faire ce que te dit le message d'alerte ?

j'ai mis 64 à la place de 32 mais sans succès

ChTi160 à dit:
Re
Toi 64 bits moi 32 bits
Y'a a modifier les Apis
Je regarderai plutard,petits enfants.
Bonne journée
Jean marie

Merci Papy !!!!!!!😇

ChTi160 · 17 Février 2025

Re

j'ai mis 64 à la place de 32 mais sans succès

c'est pas aussi simple Lol!

Ce que j'ai mis en remplacement et fonctionne encore chez Moi Lol

VB:

#If VBA7 Then
    ' Version 64 bits et 32 bits (VBA7)
    Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
        (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
        (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
    Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
    ' Version 32 bits (VBA6 et antérieur)
    Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

Bonne fin de Journée
Jean marie

Cheminotbelgiantrain · 18 Février 2025

ChTi160 à dit:

Re

c'est pas aussi simple Lol!

Ce que j'ai mis en remplacement et fonctionne encore chez Moi Lol

VB:

#If VBA7 Then
    ' Version 64 bits et 32 bits (VBA7)
    Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
        (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
        (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
    Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
    ' Version 32 bits (VBA6 et antérieur)
    Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

Bonne fin de Journée
Jean marie

RE bonjour Papy !
où faudra changer stp ?

ChTi160 · 18 Février 2025

Bonjour ,
Tu remplaces ce qui etait en rouge voir les trois lignes post :125 par ce que j'ai mis au post : 131
Jean marie

Cheminotbelgiantrain · 27 Février 2025

ChTi160 à dit:
Bonjour ,
Tu remplaces ce qui etait en rouge voir les trois lignes post :125 par ce que j'ai mis au post : 131
Jean marie

Bonjour Jean Marie, comment ça va ? je reviens vers toi car je n'arrive pas à l'ouvrir !
peux tu me partager ton fichier modifié selon les versions de Excel stp pour faire un essai ?
d'avance merciiiiiiiii

ChTi160 · 27 Février 2025

Bonjour le Fil
bon pas compris ce qui t'arrive ! (pas trop d'info sur le Quoi , Qu'est ce Lol)
mais j'ai retrouvé ça !
à voir ...... si ça peut aider !
Bonne Journée
Jean marie

Autres macros Excel

Cheminotbelgiantrain

XLDnaute Junior

Cheminotbelgiantrain

XLDnaute Junior

Cheminotbelgiantrain

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

Cheminotbelgiantrain

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

Cheminotbelgiantrain

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

Cheminotbelgiantrain

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

Cheminotbelgiantrain

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

Cheminotbelgiantrain

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Autres macros Excel

XLDnaute Junior

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency