iStarOSX
XLDnaute Junior
Bonjour a tous.
j'ai une macro qui me permet de choisir et ouvrir un classeur et d’exécuter des instructions sur ce classeur.
Mais si on annule l'ouverture, la macro continu de s’exécuter normalement alors que je voudrais aller aux instructions en fin de ma macro.
Voici le code :
Pour gérer "Annuler", je l'avais modifié comme cela :
Mais cela ne fonctionne pas.
Comment je peu gérer le cas d'annulation d'ouverture du fichier ?
merci pour votre aide.
j'ai une macro qui me permet de choisir et ouvrir un classeur et d’exécuter des instructions sur ce classeur.
Mais si on annule l'ouverture, la macro continu de s’exécuter normalement alors que je voudrais aller aux instructions en fin de ma macro.
Voici le code :
Code:
Sub Dpp()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlManual
Sheets("Dpp").Cells.Clear
Unload userformA
NomFic = Application.GetOpenFilename("Text files (*.csv), *.csv") '(, , "programmes Presses")
If NomFic <> False Then
Workbooks.OpenText Filename:=NomFic, DataType:=1, Semicolon:=True, local:=True
End If
With Activebook
ActiveSheet.Range("A1:IV65536").Copy
ActiveWindow.Close
End With
With ThisWorkbook
.Sheets("Deperditions").Select
With Sheets("Deperditions")
.Range("A1").Select
.Paste
End With
End With
ViderPresse_Papier
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Sheets("Dpp").Select
Entetet_Deper.Show False
Sheets("Cat").Select
End Sub
Pour gérer "Annuler", je l'avais modifié comme cela :
Code:
Sub Dpp()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlManual
Sheets("Dpp").Cells.Clear
Unload userformA
NomFic = Application.GetOpenFilename("Text files (*.csv), *.csv") '(, , "programmes Presses")
If NomFic <> False Then
Workbooks.OpenText Filename:=NomFic, DataType:=1, Semicolon:=True, local:=True
On cancel Goto Fin
End If
With Activebook
ActiveSheet.Range("A1:IV65536").Copy
ActiveWindow.Close
End With
With ThisWorkbook
.Sheets("Deperditions").Select
With Sheets("Deperditions")
.Range("A1").Select
.Paste
End With
End With
ViderPresse_Papier
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Sheets("Dpp").Select
Entetet_Deper.Show False
Fin :
Sheets("Cat").Select
End Sub
Mais cela ne fonctionne pas.
Comment je peu gérer le cas d'annulation d'ouverture du fichier ?
merci pour votre aide.