Salut Cactusx, le Forum
Pas très claire ton histoire !! lol !
Tu ne veux sauver que deux cellules dans un nouveau classeur à chaque fois ??? çà me parait une peu beaucoup de classeurs pour deux cellules seulement... non ? Ou bien quelque chose m'échappe dans tes explications.
Enfin le client est roi !! lol
Voici un code qui fera ceci, il te suffit de le coller dans un Module Standard (ALT + F11, pour aller dans VBE, puis Menu / Insertion / Module)
Sub CopieSauvegarFeuille()
Dim Chemin As String
Dim NomFile As String
NomFile = Sheets("Feuil2").Range("A1")
If NomFile = "" Then Exit Sub
Chemin = "c:\Mes Documents\"
NomFile = Chemin & NomFile & ".xls"
Worksheets("Feuil2").Copy
With ActiveWorkbook
.SaveAs NomFile
.Close 0
End With
MsgBox "Votre fichier a bien été sauvé sous ce Chemin : " & _
vbCrLf & NomFile, vbInformation, "Fichier Sauvegardé"
End Sub
Quand au bouton, je pense qu'il ne faut pas le créer en feuil2 car sinon il sera aussi recopié dans la feuille ainsi sauver mais il vaut mieux créer un feuille "Interface" qui pourra avoir une formule =Feuil2!A1 et ce fameux bouton...
Pour créer un Bouton, Menu / Affichage / Barre d'Outils / Boite à Outils Contrôles => Choisir le Bouton ...
Dessiner le Bouton, Double cliquer dessus, un Private Module va apparaitre avec ceci :
Private Sub CommandButton1_Click()
End Sub
Il suffit de taper cette instruction :
Private Sub CommandButton1_Click()
CopieSauvegarFeuille
End Sub
Ensuite revenir dans Excel et dans la Boite à Outils Contrôles, cliquer sur le premier bouton "desactiver le mode création" (petite équerre bleue sur une règle avec un crayon) pour tester le bouton et la macro...
Voilà Cactusx Welcome to XLD ! et dans le Monde du VBA
Bonne fin de Journée
@+Thierry