Creation de feuille avec date du jour

Bonjour je n'y connait pas grand chose en excel je cherche desesperement mais je trouve pas la solution donc voici mes 2 problemes:

1/je voudrait envoyer une ligne quelconque dans une autre feuille du classeur quand une case par exemple a1 est a 1.attention jutilise une conversation dde donc le fichier se gere tous seul.

2/de la je voudrais egalement que quand une autre case et a 1 j'enregistre la 2eme feuille que je vient de remplir en utilisant la date du jour soit dans le classeur soit en creant un autre classeur peu importe.

j'espere etre assez clair merci de toute l'aide precieuse que vous m'apporterais.

Salut le forum

Plage, Nom de feuille et répertoire de sauvegarde à adapter

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
  If Target.Value = 1 Then
    Range("B2:E2").Copy Sheets("Feuil2").Range("B2")
  End If
End If

If Not Application.Intersect(Target, Range("A2")) Is Nothing Then
  If Target.Value = 1 Then
    Sheets("Feuil2").Copy
    ActiveWorkbook.SaveAs Filename:= _
      "C:\Test\" & Date, FileFormat:=xlNormal, _
          Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
            CreateBackup:=False
    ActiveWorkbook.Close
  End If

End If

End Sub

Si tu peux avoir plusieurs fichiers dans la même journée modifie avec ceci

C:\Test\" & Date & "_" & Int(Timer)

Mytå

RE bonjour merci de ta reponse mais il me dit erreur 1004 quand je veut que la feuille soit sauvegarder je ne voit pas l'erreur.peut tu me reaider.

Re Totof72a

Le répertoire C:\Test existe-t-il ?

Test avec le fichier suivant

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

Mytå

oui

j'est tester ton fichier et pareil il me dit impossible d'enregistrer ficier existe deja ou repertoire n'existe pas ou et en cour d'utilisation.

J'est essayer plusieur solution et en fait c est la date qu'il ne veut pas,mon probleme reste entier mais a moitier resolu.

(Correction orthographe Amadéus)

mon problème d'enregistrement avec la date est résolu. Le problème est qu' il ne voulait pas prendre les slashs de la date. Pour lui c'était un autre repertoire. Donc pour résoudre ce problème j'ai modifié mes paramètre régionaux en séparateur de date avec des tirets, et voila, le tour est joué .Maintenant avec le fichier que myta ma aimablement confié, l'enregistrement de l'heure ne correspond a rien de connu sauf du systeme.

Pouvez vous m'aider???

help??

je remercie encore Myta pour sa reponse genereuse et pleine de bon sens.

precision sur la date lors de l'enregistrement a 22h20 il m'enregistre le fichier 22-05-07_80440 je ne comprend pas a quoi correspond 80440 ??

Salut de nouveau

Pour contourner le problème de Date et Heure (sans devoir changer les

paramètres régionaux).

Timer retour le nombre de secondes depuis minuit

Dim Nom As String

Nom = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss")

ActiveWorkbook.SaveAs FileName:= _

"C:\Test\" & Nom, FileFormat:=xlNormal, _

Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

CreateBackup:=False

Mytå

Merci a toi myta pour ta science sur excel ,.Bonne continuation a tous

Salut le forum

Juste un petit merci à Totof72a.

Car souvent on à pas aucun retour, pour savoir si la solution

convient.

Mytå