pb macro excel

Question

bonsoir Dans le vif du sujet je souhaite 1 que ma macro fonctionne (logique) voici le code: Sub autoexec() 'calcul du numéro de la premiere ligne vide k = 1 Do While Worksheets(10).Cells(k, 1) <> "" k = k + 1 Loop For i = 2 To 9 j = 2 Do While Worksheets(i).Cells(j, 1) <> "" If Worksheets(i).Cells(j, 2) < FormatDateTime(Date) Then 'Worksheets(i).Range(.Cells(j, 1), .Cells(j, 6)).Copy Destination:=Worksheets(10).Range("B2") Worksheets(i).Range("A&j:F&j").Copy Destination:=Worksheets(10).Range("B&j") 'ActiveCell.Worksheets(i).Name.Copy Destination:=Worksheets(10).Range("B1") Worksheets(i).Name.Copy Destination:=Worksheets(10).Range("A&j") k = k + 1 Worksheets(i).Rows(j).Delete End If j = j + 1 Loop Next End Sub en effet elle sert à copier puis supprimer ule ligne vers une autre feuille seulement mes 2 copy coincent 2 Comme vous l'avez remarqué elle s'appelle autoexec Mais elle ne se lance pas à l'ouverture du fichier or ca m'arrangerai Merci à tous et ...bonne nuit

ShadowWisp · Answer

Arretes de poser 2x le même message en 4h, et attends qu'on finisse de te répondre...

SamaiwaX · Answer

pour kel se lance a l ouverture tu doisla nommer
workbook_open et non autoexec comme pour access

ShadowWisp · Answer

Je lui ai déja répondu ce matin, exactement la même chose, avec un exmple en plus.

A.

SamaiwaX · Answer

ha ok alors il doit etre en train de coder la
PS: g reussi pour mon workbook :p

Pb macro excel

4 réponses

Discussions similaires