Transformer en VBA

Bonjour à tous

Sur un sujet assez simple, notre ami Qwertz a demandé de l'aide sur une macro.

L'XL4 en français de ce fichier fonctionne parfaitement.

Mais notre ami ne parviens pas à récupérer toutes les fonctionnalités aprés la traduction et l'utilisation sur une version Excel en anglais.

Ce serait sympa d'écrire cette macro en VBA

La question est dans le fichier.

https://www.excel-pratique.com/~files/doc/0kvObEx_QwertzV2.xls

Merci de votre aide

Bien cordialement

Merci Amadéus

je me suis lancé dans un début de code VBA

la copie des bonnes colonnes, la création du workbook, le collage, la mise au bon format ça va.

J'ai un problème pour le renommage du worbook, pour le moment je suis parti sur la création de cellules avec date du jour.

je voudrais qu'il ait pour nom Summary_dd_mm_yyyy

ensuite, pour le sauver ça dépendra de la façon dont on le renomme j'imagine

Sub Summary()

Range("B12:B10000,C12:C10000,BB12:BB10000,BX12:BX10000,CC12:CC10000,CN12:CN10000,CW12:CW10000,CZ12:CZ10000").Select

Selection.Copy

Workbooks.Add

ActiveSheet.Paste

Columns("A:A").EntireColumn.AutoFit

Columns("B:B").EntireColumn.AutoFit

Columns("C:C").EntireColumn.AutoFit

Columns("D:D").EntireColumn.AutoFit

Columns("E:E").EntireColumn.AutoFit

Columns("F:F").EntireColumn.AutoFit

Columns("G:G").EntireColumn.AutoFit

Columns("H:H").EntireColumn.AutoFit

Range("M13").Select

ActiveCell.FormulaR1C1 = "=TODAY()"

Range("M14").Select

ActiveCell.FormulaR1C1 = "=DAY(R[-1]C)"

Range("M15").Select

ActiveCell.FormulaR1C1 = "=MONTH(R[-2]C)"

Range("M16").Select

ActiveCell.FormulaR1C1 = "=YEAR(R[-3]C)"

Range("M17").Select

SaveAs(

End Sub

Bonjour au forum,

mes connaissances en VBA ne vont pas + loin pour le moment !

https://www.excel-pratique.com/~files/doc/QwertzV2.xls

Tu peux jeter un oeil sur le post "Application-Exel" ou j'ai démarrer un petit Lexique VBA.

Amicalement

Claude.

Bonjour,

Voici un code à placer en VBA (ALT+F11) dans un module.

Sub Sauvegarde()
'Macro par Dan pour Qwertz le 31/01/08
Dim nomfichier As String, extension As String
ThisWorkbook.ActiveSheet.Copy
ActiveSheet.UsedRange.Activate
With Selection
    .Copy
    .PasteSpecial Paste:=xlValues
End With
Range("A:B,D:D,F:G,J:J").Delete
extension = ".xls"
nomfichier = "summary" & Format(Now(), "yy" & "-mm" & "-dd") & "-" & extension
MsgBox "Votre sauvegarde porte la référence : " & nomfichier
End Sub

La macro te sauve ton fichier orginal dans un nouveau en le renommant (Summary année, mois jour). Une boite à message te donne le nom du fichier.

Il reste à savoir dans quel répertoire tu veux le sauver.

Amicalement

Dan

Merci beaucoup à vous tous

dans un monde parfait faudrait qu'il ouvre la fenêtre permettant de choisir le dossier de destination de la sauvegarde ...

sinon, dans Mes Documents

Re,

Ajoute cette instruction juste avant END SUB.

Application.Dialogs(xlDialogSaveAs).Show

Amicalement

Dan

Merci Nad Dan

j'ai réussi par hasard en utilisant MsgBox

ma macro tourne parfaitement

ALLELUIA !!!