Excel macro

Question

Est ce que que vous pouvez m'aider à savoir ce qui fassent ces lignes(macros excel) chdir "\Frbmsbur041	db$\Jcd\Client\Daily_Report\Daily Report Journalier\Fichiers intermediaires" ActiveWorkbook.SaveAs Filename:= _ "\Frbmsbur041	db$\Jcd\Client\Daily_Report\Daily Report Journalier\Fichiers intermediaires\JCDECAUX DW RAG Open aammjj.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With Selection.Sort Key1:=Range("I2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers ActiveWindow.ScrollRow = 2 ActiveWindow.ScrollWorkbookTabs Position:=xlLast ActiveWindow.SmallScroll ToRight:=0 ActiveWindow.ScrollWorkbookTabs Position:=xlFirst Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveWindow.ScrollColumn = 1 merci d'avance a+...

Nad-Dan · Answer

Tu trouveras déjà des réponses sur un de tes fils. Le fil --&gt; https://www.excel-pratique.com/forum/viewtopic.php?t=2531&postdays=0&postorder=asc&start=0 A te lire Dan...

Gorfael · Answer

Chdir "\Frbmsbur041	db$\Jcd\Client\Daily_Report\Daily Report Journalier\Fichiers intermediaires" Défini le dossier courant comme étant \Frbmsbur041... ActiveWorkbook.SaveAs Filename:= _ "\Frbmsbur041	db$\Jcd\Client\Daily_Report\Daily Report Journalier\Fichiers intermediaires\JCDECAUX DW RAG Open aammjj.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Sauver le dossier actif sous le nom JCDECAUX DW RAG Open aammjj.xls" dans le répertoire : \Frbmsbur041	db$\Jcd\Client\Daily_Report\Daily Report Journalier\Fichiers intermediaires With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With colorier l'intétieur des cellules sélectionnées en jaune Selection.Sort Key1:=Range("I2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers trier la sélection sur la colonne I en ordre décroissant ActiveWindow.ScrollRow = 2 Mettre la ligne 2 en première ligne visible ActiveWindow.ScrollWorkbookTabs Position:=xlLast aller au dernier onglet du classeur actif ActiveWindow.SmallScroll ToRight:=0 ?? déplacer la fenêtre active de 0 cellule sur la droite ?? ActiveWindow.ScrollWorkbookTabs Position:=xlFirst aller au 1er onglet Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False coller les formats copiés sur la sélection ActiveWindow.ScrollColumn = 1 Colonne A à gauche de la fenêtre ça sent l'amélioration d'un code de macro apprentissage A+...