Macro permettant d'ouvrir différents fichier Excel

Maintenant c'est de l'allemand, déjà qu'en anglais j'ai du mal, alors là.

Et sinon est-il possible de mettre juste Piles_dd/mm/aa, si cela est plus simple.

Car nous allons faire des fichiers distincts pas lieux de service.

Re,

je pense que j'ai trouvé je vais testé cela doit ressemblé à ceci j'avais complètement oublié cette histoire de formatage de date

Format(Date, "dd-mm-yyyy")

Re bonjour

j'ai finalement réussi après une multitude de test

Sub CopyantgSheetRename()
Dim Cpt8 As Byte

If MsgBox("Sind Sie sicher, dass Sie dieses Blatt duplizieren möchten? ", vbYesNo + vbInformation, _
"Bestätigungsanforderung Verkauf Eintrag") = vbYes Then

On Error Resume Next

For Cpt8 = 1 To 1
  With ActiveWorkbook.ActiveSheet

    .Copy After:=Worksheets(Worksheets.Count)
  End With
  Dim wks As Worksheet

  Dim Pasjourdujour As String
Pasjourdujour = format(Now, "dd-mm-yyyy")
Worksheets(1).Name = Pasjourdujour 
Set wks = ThisWorkbook.Worksheets("Verkauf Eintrag")

ActiveSheet.Name = "Verkauf_Eintrag_" & Cpt8 & "_" & Pasjourdujour 
Worksheets(1).Name = "Verkauf Eintrag"
Next Cpt8
Else
Sheets("Verkauf Eintrag").Range("A1").Select
End If
End Sub

bon je file dormir, bonne nuit @ toutes

tiens moi au courant si c'est ok

Franchement tu as assuré, n'y passes pas tes nuits, ça n'en vaut pas le coup.

Par contre j'ai mis ton code dans une page et lorsque je fais une copie, ça fonctionne nickel, le seul problème vient du fait que l'onglet "menu" change de nom et que par conséquence le bouton "menu" ne marche plus.

On Error Resume Next

For Cpt10 = 1 To 1

With ActiveWorkbook.ActiveSheet

.Copy Before:=Worksheets("Huilesveg")

End With

Dim wks As Worksheet

Dim Pasjourdujour As String

Pasjourdujour = Format(Now, "dd-mm-yyyy")

Worksheets(1).Name = Pasjourdujour

Set wks = ThisWorkbook.Worksheets("Huilesveg")

ActiveSheet.Name = "Huilesveg_" & Cpt10 & "_" & Pasjourdujour

Worksheets(1).Name = "Huilesveg"

Next Cpt10

Else

Sheets("Huilesveg").Range("A1").Select

End If

End Sub

Re, bonjour toutes et tous

Je vais t'envoyé ce que j'ai effectué aujourd'hui ce matin (la nuit porte conseil lol!)

En faite, je vais zippé le tout, (archivé en .rar)

j'ai trouvé la solution, il faudra ensuite l'adapté pour chaque onglet des feuilles par la suite

alors, dans ce répertoire ou contiendra ce fameux fichier Excel comprenant les macros

un bouton pour dire : tu me copie uniquement la feuille (là je suis en train e voir pour ne pas qu'il enregistre les boutons, shapes etc.)

ensuite, un autre bouton, pour dire : tu me dupliques la feuille avec NOM d'onglet+date çà c'est ok

et pour ce qui est de ta question (l'onglet MENU change de nom) , je l'ai réglé dans la nouvelle version ce matin.

je te mets cela dans l'heure qui suit déjà un aperçu ci-joint

EDIT: Nouvelle version v3 test006

Note à mettre dans le même répertoire!

crdlt,

André