Amilioration de code

**saber 3615** · 30/09/2020, 13h08

Bonjour;

j'ai conçu un code qui me permet en l'exécutant d' :

- ouvrir une boite de dialogue
- Je choisit n'importe quel autre fichier excel, et je double clic dessus
- Les données du fichier externe se copie dans une feuille spéciphique de mon fichier de base.

LE VOICI

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
Sub Importpg()
 
Application.ScreenUpdating = False
 
Dim Fichier1 As String, Fichier2 As String
Fichier1 = ActiveWorkbook.Name
 
'ouvre la fenêtre de sélection du fichier à copier, on peut remplacer c:\ par le chemin approprié
Application.Dialogs(xlDialogOpen).Show ActiveWorkbook.Path
On Error Resume Next
Fichier2 = ActiveWorkbook.Name
'Copier les colonnes A à D de la Feuil1
On Error Resume Next
Sheets("sage").Range("A:D").Select
Selection.Copy
 
'Coller les données sur le classeur contenant la macro en Feuil1 position A1
Workbooks(Fichier1).Activate
Sheets("plan comptable").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
'Femeture du fichier copié
Workbooks(Fichier2).Close
 
Application.ScreenUpdating = True
Sheets("Saisie").Select
   Range("A2").Select
 
End Sub

Jusqu'ici le code fonctionne super bien, le probléme est que si par malheur, aprés avoir ouvert la boite de dialogue je change d'avis, et je ne veux plus rien importer, alors en fermant la boite de dialogue, un message "voulez vous enregistrer les modification à..." si je clic sur oui ou non le fichier se ferme.

Moi je souhaite conserver mon code mais je veux tout simplement que si je fait demi tour, le fichier ne se bloque pas
MERCI