Excel VBA macros pour exporter données saisies

Bonjour forum j'aimerais savoir si à l'aide de macro vba on peut

utiliser une feuille excel comme formulaire la renseigner et cliquer sur

un bouton pour exporter toutes les données saisies de la feuille

formulaire sur une autre feuille vierge et la renommer? Merci

Bonjour,

Oui c'est possible. Si vous voulez un code VBA, envoyez un fichier template avec la feuille de saisie et la feuille d'export.

En voici le fichier si je clique sur valider que les données soit enregistrer sur la feuille suivante et vider le formulaire ainsi de suite avec possibilité de renommer la feuille choise à l'aide de macros excel

11damis-essai.xlsx (31.65 Ko)

En voici le fichier si je clique sur valider que les données soit

enregistrer sur la feuille suivante et vider le formulaire ainsi de

suite avec possibilité de renommer la feuille choise à l'aide de macros

excel

9damis-essai.xlsx (31.65 Ko)

Ci-joint une proposition, et ci-après la macro utilisée.

10damis-essai.xlsm (36.46 Ko)
Public Sub Export()
  Dim sheetName As String
  sheetName = InputBox("Entrez le nom de la feuille d'export :", "Export", "EXPORT_")

  ' click cancel = entr�e vide
  If sheetName = vbNullString Then Exit Sub
  If sheetName = "EXPORT_" Then sheetName = sheetName & Format(Now, "yyyy.mm.dd-hh.mm")

  Dim newSheet As Worksheet
  Set newSheet = ThisWorkbook.Worksheets.Add(after:=Sheet1)
  newSheet.Name = sheetName

  Sheet1.UsedRange.Copy
  With newSheet
    .Range("A1").PasteSpecial xlPasteAll
    .Range("A1").PasteSpecial xlPasteColumnWidths
    With .UsedRange
      .Value2 = .Value2
    End With
  End With

End Sub

EDIT : petite erreur j'avais oublié de nettoyer la feuille initiale. Ci-joint fichier corrigé.

9damis-essai.xlsm (101.09 Ko)

Vous êtes super merci infiniment

Rechercher des sujets similaires à "vba macros exporter donnees saisies"