Autres macros Excel

[Cheminotbelgiantrain]

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]

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 ".

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 !!!

jean marie

 

[Cheminotbelgiantrain]

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]

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]

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]

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]

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]

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

 

[Cheminotbelgiantrain]

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

voici ma version !

 

[ChTi160]

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

 

[Cheminotbelgiantrain]

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

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]

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

#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]

Re

c'est pas aussi simple Lol!

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

#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]

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]

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]

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