Discussion :

[touriste01]

Bonjour, débutant en VBA, je souhaiterai réaliser une Msbox au terme d'une Macro d'importation de données qui informerai l'utilisateur de l'heure et la date du moment et de choisir par oui/non d'enregistrer le fichier. Le choix si oui, serait de l'inviter à selectionner un périphérique externe (clé USB) et de mettre un nom de "base" comme fichier qu'il peut modifier également. Sur non, simplement que l'application Excel se ferme... Je ne sais vraiment pas trop comment m'y prendre, si quelqu'un pouvait me donner un coup de main ce serait vraiment cool...

[Krovax]

Bonjour,
et en attendant ta macro tu veux un café?

Non plus sérieusement je ne vais pas te la faire mais voici plusieur piste pour que tu puisse la faire tout seul, comme tu débute ca te donnera l'occasion de travailler sur des codes pour les comprendre

Pour demander le répertoire ou écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ChoixRepertoire()
Dim chemin As String
Dim objShell As Object, objFolder As Object, oFolderItem As Object
 
 Set objShell = CreateObject("Shell.Application")
 Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
 On Error GoTo Gesterr
 
 Set oFolderItem = objFolder.Items.Item
 chemin = oFolderItem.Path
nom=inputbox("Nom du fichier :")
'la su peux faire un test pour savoir si l'utilisateur a mis un .xls ou non
MsgBox chemin & "\" & nom & ".xls" 'a remplacé par l'enregistrement
 
Gesterr::
End Sub

Pour ton message box avec bouton oui non
http://fring.developpez.com/vba/excel/msgbox/

Si tu ne comprend pas la macro ou le tuto n'hésite pas a poser des questions.

Ensuite commence ta macro, test là en mode pas a pas avec espion et affichage des variables local et tout, si tu ne sais pas faire on t'indiquera les tutos.
Et ensuite montre nous ta macro et les observations que tu as pus faire concernant ce qui ne fonctionne pas.

[touriste01]

Tout d'abord, je n'ai pas eu le temps d'aller
boire le café !!! --- mais j'aime bien


Bon voilà mes essais...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub msgbox_enr()
'Msgbox Oui + Non
Select Case MsgBox("Enregistrer le fichier maintenant ?", vbYesNo + vbQuestion, "Sauvegarde du fichier")
Case vbYes
'procédure si click sur Oui
 
Dim chemin As String
Dim objShell As Object, objFolder As Object, oFolderItem As Object
 
 Set objShell = CreateObject("Shell.Application")
 Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire pour l'enregistrement du fichier", &H1&)
 On Error GoTo Gesterr
 
 Set oFolderItem = objFolder.Items.Item
 chemin = oFolderItem.Path
nom = InputBox("Indiquer le nom du fichier :")
'la su peux faire un test pour savoir si l'utilisateur a mis un .xls ou non
MsgBox chemin & nom & ".xls" 'a remplacé par l'enregistrement
 
Gesterr::
 
Case vbNo
'procédure si click sur Non
CreateObject("Wscript.shell").Popup "Le fichier n'a pas été sauvegardé Excel va se fermer automatiquement dans 2 secondes... Bonne journée", 3, "Fermeture d'Excel", vbExclamation
End Select
End Sub

Il ne me reste plus qu'à comprendre quelques languages de ce code, nottament comment faire pour la gestion des erreurs et surtout comment faire pour que le fichier s'enregistre

Autrement pour ce qui est du bout de code que tu m'as donné, j'ai du supprimer un "\" dans la ligne:

MsgBox chemin & "\" & nom & ".xls" 'a remplacé par l'enregistrement

en effet, après il m'en rajoutait deux ???

Encore une petite chose...

Pour ce qui est du fichier, est-il possible de mettre un nom prédéfini
qu'éventuellement l'utilisateur peut changer ???

[Krovax]

Quand tu donne un code utilise les balise regarde le premier message du forum il y a un lien pour t'expliquer, ensuite édite ton message pour les ajouter.

Comment faire pour que le fichier s'enregistre?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activeworkbook.saveas Nom

Pour ce qui est du fichier, est-il possible de mettre un nom prédéfini
qu'éventuellement l'utilisateur peut changer ???

Oui c'est possible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
nom="Bob"
Select Case MsgBox("Le fichier va s'appeler Bob voulez vous le modifier ?", vbYesNo + vbQuestion, "Sauvegarde du fichier")
Case vbYes
nom=inputbox("Nom du fichier :")
end select

ou alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
nom=inputbox("Nom du fichier :")
if nom="" then 'nom est vide l'utilisateur a donc annulé
nom="Bob "  & Date
end if

[touriste01]

Merci pour ta patience, pour commencer... je vais essayer de rédiger un peu mieux mes messages...

Alors j'ai ajouté ces lignes... toutes mes boites fonctionne sauf qu'au final, l'enregistrement se fait en "écrasant" le dernier fichier et pas où on choisi le répertoire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim chemin As String
Dim objShell As Object, objFolder As Object, oFolderItem As Object
 
 Set objShell = CreateObject("Shell.Application")
 Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire pour l'enregistrement du fichier", &H1&)
 On Error GoTo Gesterr
 
 Set oFolderItem = objFolder.Items.Item
 chemin = oFolderItem.Path
Nom = "Bob"
Select Case MsgBox("Le fichier va s'appeler Bob voulez vous le modifier ?", vbYesNo + vbQuestion, "Sauvegarde du fichier")
Case vbYes
Nom = InputBox("Nom du fichier :")
End Select
'la su peux faire un test pour savoir si l'utilisateur a mis un .xls ou non
MsgBox chemin & Nom & ".xls" 'a remplacé par l'enregistrement
 
ActiveWorkbook.SaveAs Nom

Y'a-t-il un tuto sur ce sujet (enregistrements de fichiers) pour pas que je ne
te prenne tout ton temps ???

[Krovax]

Il faut peut être lui dire où tu veux enregistrer et pas te contenter de mettre le nom. Les codes donné sur se forum doivent être adapté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs chemin & Nom & ".xls"