Discussion :

[lebeniste]

je m'explique :
mon classeur est muni d'un bouton macro qui enregistre sous..... une cellule donné, j'aimerais qu'a la fin de l'enregistrement qu'il ferme le classeur enregistrer et qu'il ouvre mon classeur master.

est ce possible ? voici le code existant pour la sauvegarde

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub NomClasseur()
Réponse = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo)
If Réponse = vbYes Then
Dim Chr As String 'déclare la variable
Chr = Range("CLIENT!B11") 'Feuille Essai et cellule C1
ChDrive "C" 'si C n'est pas le disque par défaut
ChDir "C:\Users\André\Documents\truc excel\BIZARD\"
ActiveWorkbook.SaveAs Filename:=(Chr)
End If
End Sub

encore un case tete pour moi .....
merci

j'ai ajouter ca apres end if

Code :

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

1
2
Workbooks.Open Filename:="C:\Users\André\Documents\truc excel\MASTER .xls"
    Windows("tien tien .xls").Activate

le classeur s'ouvre mais l'autre reste ouvert ....
mais le nom exemple ien tien est variable .....

[fring]

Hello,

Tu peux t'inspirer de ce bout de code ci-dessous, tu dois juste adapter les noms et les chemins

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim Chr As String, chemin As String
Chr = Sheets(2).Range("A1") & Format(Date, "yyyymmdd")
chemin = "D:\Macros\test\"
ActiveWorkbook.SaveAs Filename:=chemin & Chr & ".xls"
Workbooks.Open Filename:=chemin & "Classeur2.xls"
Workbooks(Chr & ".xls").Close
End Sub

[lebeniste]

merci fring il me manquais un bout ,,, mais je m'ameliore par exemple

sauf que la, comment j'ecrit si le fichier existe me donner l'option de le renommer ?

[fring]

Essaye ceci :

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
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Sub test_saveas()
Dim Nom As String, chemin As String
Nom = Sheets(2).Range("A1") & Format(Date, "yyyymmdd") & ".xls"
chemin = "D:\Macros\test\"
 
If PathFileExists(chemin & Nom) Then
    Application.Dialogs(xlDialogSaveAs).Show
    Nom = ActiveWorkbook.Name
    Workbooks.Open Filename:=chemin & "Classeur2.xls"
    Workbooks(Nom).Close
Else
    ActiveWorkbook.SaveAs Filename:=chemin & Nom
    Workbooks.Open Filename:=chemin & "Classeur2.xls"
    Workbooks(Nom).Close
End If
End Sub

En adaptant toujours les noms et chemins.
La première ligne de code doit se situer en entête, avant le premier Sub... de ton module si d'autres codes s'y trouvent déjà.


Edit : oui je vois que tu t'améliores c'est en tapant sur le clou qu'il finit par s'enfoncer et...il ne faut pas avoir peur de se taper sur les doigts de temps en temps

[lebeniste]

ca ma donne une erreur dans la phrase titre

Code :

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

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

et une question , puisje te demander une info pour une formule qui change en mp ??

[fring]

Bon...essayons une autre méthode

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 test_saveas()
Dim Nom As String, chemin As String
Nom = Sheets(2).Range("A1") & Format(Date, "yyyymmdd") & ".xls"
chemin = "D:\Macros\test\"
 
If Dir(chemin & Nom) <> "" Then
    Application.Dialogs(xlDialogSaveAs).Show
    Nom = ActiveWorkbook.Name
    Workbooks.Open Filename:=chemin & "Classeur2.xls"
    Workbooks(Nom).Close
Else
    ActiveWorkbook.SaveAs Filename:=chemin & Nom
    Workbooks.Open Filename:=chemin & "Classeur2.xls"
    Workbooks(Nom).Close
End If
End Sub

Pourquoi en mp la question ? Il est préférable de la poser ici, cela permettra à un quidam de me corriger si je te répond une bêtise