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"

[aalex_38]

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

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

En général pour pallier à ce problème je fais ça, dans l'exemple le chemin du repertoire s'appelle Repertoire :

Code :

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

1
2
3
If Right(Repertoire, 1) <> "\" Then
    Repertoire = Repertoire & "\"
End If

Un exemple de sauvegarde :

Code :

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

1
2
3
Dim nomEnr As String
nomEnr = Repertoire & "Nomdufichier.xls"
ThisWorkbook.SaveAs Filename:=nomEnr

[touriste01]

Merci aalex38, le nom du repertoire s'affiche maintenant correctement... toutefois, seul le répertoire que je crée lors de mon choix se fait... mais le
fichier Excel ne s'enregistre toujours pas dedans

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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 = "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
 
If Right(Repertoire, 1) <> "\" Then
    Repertoire = Repertoire & "\"
End If
 
'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
 
Dim nomEnr As String
nomEnr = Repertoire & "Nomdufichier.xls"
ThisWorkbook.SaveAs Filename:=nomEnr
 
ActiveWorkbook.SaveAs chemin & Nom & ".xls"
 
 
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

Ah la la... c'est pas faute d'essayer mais...

[Krovax]

Pas faute d'essayer mais faute de penser
(désolé c'était facile, on a tous débuté)
Regarde

Code :

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

1
2
3
4
5
6
7
8
'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
 
Dim nomEnr As String
nomEnr = Repertoire & "Nomdufichier.xls"
ThisWorkbook.SaveAs Filename:=nomEnr
 
ActiveWorkbook.SaveAs chemin & Nom & ".xls"

tu utilise deux fois saveas
et répertoire n'a aucune valeur dans le premier.

il y a une différence entre activeworkbook (classeur actif) et this workbook classeur contenant la macro.

Pour corriger tout ca garde juste un des enregistrement
affiche les variables local menu Affichage/Variable local
Lance ton code ne mode pas a pas (touche F8) et regarde la valeur de tes différente variable pour essayer de comprendre ce qui se passe.

Edit : aalex_38 est quelqu'un de très bien et très compétent (sans doute plus que moi) mais il ne l'es pas suffisamment pour écrire exactement le code qu'il te suffit de copier coller. Comme tout code tu doit le lire le tester, le comprendre et l'adapter

[touriste01]

Merci vraiment pour cette aide... j'ai fait comme tu me l'a dit, soit affichage et déroulement du code avec la touche F8... supprimé la seconde ligne,
dufait que je pense que d'enregistrer le code avec le fichier était mieux...

Toutefois, toujours autant de déception pour moi, le répertoire se crée
toujours, par contre, le fichier excel ne se copie pas ???

A n'y rien comprendre tout cela ???

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
27
28
29
30
31
32
33
34
35
36
37
38
39
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 = "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
 
If Right(Repertoire, 1) <> "\" Then
    Repertoire = Repertoire & "\"
End If
 
'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
 
Dim nomEnr As String
nomEnr = Repertoire & "Nomdufichier.xls"
ThisWorkbook.SaveAs Filename:=nomEnr
 
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

Pourtant, tout devrait bien se passer ???

D'autre part, je souhaite une fois de plus à vous remercier pour votre aide
qui m'est fort utile... je ne demande bien sûr pas un code "tout prêt", mais
j'essaie de comprendre et je l'avoue... ce n'est pas facile...

[Krovax]

Affiche les variable local et regarde la valeur de chemin et de répertoire.
Tu donne une valeur a chemin avec mon code et tu utilise repertoire dans le code d'aalex.....

[touriste01]

Là, je pense avoir compris (une infime partie)... mais pour ce
code en tout cas... Enfin, c'est surtout grâce à vous... merci encore
pour vos coups de mains...

Une bonne journée