Bonjour,
Voilà mon souci!
Mon code:
Ce code me permet de copier une feuille bien précise dans un classeur, de créer un nouveau classeur (avec le nom par défaut classeur ... ) , de coller la feuille dans ce nouveau classeur et d'ouvrir la boite de dialogue enregistrer sous jusqu'ici tout va bien! Lorsque je choisis le chemin et clique sur enregistrer tout fonctionne!
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 CopieFeuille(stFeuille As String) Dim wb As Workbook Dim x As String, fichier As String, stdir As String Application.DisplayAlerts = False If stFeuille = "MAT1017" Then x = ThisWorkbook.Sheets("Index").Range("C4").Text Else If stFeuille = "MENSUELLE" Then x = ThisWorkbook.Sheets("Index").Range("C2").Text Else x = ThisWorkbook.Sheets("Index").Range("C6").Text End If End If ThisWorkbook.Sheets(stFeuille).Copy Set wb = ActiveWorkbook wb.Sheets(stFeuille).Cells.Copy wb.Sheets(stFeuille).Cells.PasteSpecial xlPasteValues ' If stFeuille = "DTO" Then fichier = stdir & stFeuille & " du " & x & ".xls" Else fichier = stdir & stFeuille & " de " & x & ".xls" End If NomFichier = Application.GetSaveAsFilename(fichier, "Microsoft Excel (*.xls), *.xls") If NomFichier = False Then MsgBox "Enregistrement annulé." wb.Close True Else MsgBox NomFichier wb.Sheets(stFeuille).Cells(1, 1).Select wb.SaveAs NomFichier wb.Close End If Application.DisplayAlerts = True End Sub
Mon problème vient de quand on clique sur annuler! La boite de dialogue enregistrer sous avec le nom par défault que je lui attribut grâce aux variables se ferme mais une deuxième boite de dialogue enregistrer sous s'ouvre avec comme nom par défault classeur.... ce qui est normal vu que cette feuille n'a jamais été enregistrée! J'aimerai cependant que cette demande ne se fasse pas et que ma feuille temporaire avec le nom classeur... se ferme automatiquement sans le demander lorsqu'on clique sur annuler!
J'espère avoir été clair. Bonne soirée!
Partager