Inputbox - Bug Quand "annuler" Demande

[Zouzou93]

Bonjour le Forum,

J'ai un petit soucis concernant un inputbox qui lorsque je clique sur annuler se fige et me copie systèmatiquement une copie de mon fichier.
Ci après le détail de la macro. Quelqu'un peut-il m'aider à comprendre ce qui ne vas ou m'expliquer ce que je dois rajouter pour éviter ce bug ?

Sub Imprimer()

If MsgBox("Voulez-vous imprimer cette Cotation?", vbYesNo + _
vbExclamation, "Avertissement") = vbYes Then
Application.Dialogs(xlDialogPrint).Show
End If

End Sub

Merci par avance
Zouzou

 

[PascalXLD]

Re : Inputbox - Bug Quand "annuler" Demande

Bonjour

Je n'arrive pas à refaire ton problème perso ça marche

 

[Zouzou93]

Re : Inputbox - Bug Quand "annuler" Demande

Bonjour Pascal,

Je viens de refaire le test et j'ai le même problème. Lorsque je clique sur annuler, une copie de la feuille se créée. En revanche et on est bien d'accord lorsque je saisie le numéro demandé et clique sur OK, je n'ai pas de problème. Ca fonctionne.

J'ai le même problème sur ce code :
Merci de votre aide
Zouzou

Sub RechercherClasseur()

Dim nom As String
Dim noncomplet As String
Dim chem As String
nom = InputBox("Saisissez le Nr de cotation selon format : 00 000000 00")
chem = "Z:\documents\Outils\ARCHIVES COTATIONS"
With Application.FileSearch 'recherche de fichier
.LookIn = chem
.SearchSubFolders = True
.Filename = nom & "*.xls"
If .Execute > 0 Then
nomcomplet = .FoundFiles(1)
Workbooks.Open (nomcomplet)
End If
End With
End Sub

 

[PascalXLD]

Re : Inputbox - Bug Quand "annuler" Demande

Re

Dans ton 2ème je comprends

tu devrais faire un if nom ="" then exit sub

mais dans ton premier cas tu n'as pas d'inputbox

 

[PascalXLD]

Re : Inputbox - Bug Quand "annuler" Demande

re

en fait je pense que ton code imprimer doit être imbriquer dans un autre code non ?

Il faudrait voir le tout

 

[Zouzou93]

Re : Inputbox - Bug Quand "annuler" Demande

Désolée Pascale dêtre aussi bourrue ... mais j'ai tjrs le même problème.
Est ce que j'ai bien place mon if nom = "" Then Exit Sub ?

Merci de ton aide
Zouzou

Sub RechercherClasseur()

Dim nom As String 'déclare la variable nom
Dim noncomplet As String 'déclare la variable nomcomplet
Dim chem As String 'déclare la variable chem
nom = InputBox("Saisissez le Nr de cotation selon format : 00 000000 00")
chem = "Z:\documents\Outils\ARCHIVES COTATIONS"
With Application.FileSearch 'recherche de fichier
.LookIn = chem 'dans le même répertoire que le fichier actuel
.SearchSubFolders = True 'dans les sous-répertoires
.Filename = nom & "*.xls" 'tous les fichiers Excel commençant par le nom de la boite
If .Execute > 0 Then 'si au moins un fichier est trouvé
End If
nomcomplet = .FoundFiles(1) 'définit le nom complet du fichier trouvé
Workbooks.Open (nomcomplet) 'ouvre le fichier
End With

If nom = "" Then
Exit Sub
End If
End Sub

 

[PascalXLD]

Re : Inputbox - Bug Quand "annuler" Demande

re

non je l'aurais vu ainsi

Sub RechercherClasseur()

Dim nom As String 'déclare la variable nom
Dim noncomplet As String 'déclare la variable nomcomplet
Dim chem As String 'déclare la variable chem
nom = InputBox("Saisissez le Nr de cotation selon format : 00 000000 00")
If nom = "" Then
Exit Sub
End If
chem = "Z:\documents\Outils\ARCHIVES COTATIONS"
With Application.FileSearch 'recherche de fichier
.LookIn = chem 'dans le même répertoire que le fichier actuel
.SearchSubFolders = True 'dans les sous-répertoires
.Filename = nom & "*.xls" 'tous les fichiers Excel commençant par le nom de la boite
If .Execute > 0 Then 'si au moins un fichier est trouvé
End If
nomcomplet = .FoundFiles(1) 'définit le nom complet du fichier trouvé
Workbooks.Open (nomcomplet) 'ouvre le fichier
End With


End Sub

PS : sinon de préférence sans E à Pascal

 

[Zouzou93]

Re : Inputbox - Bug Quand "annuler" Demande

Ooopss, Désolée Pascal ! Je n'avais pourtant pas à l'esprit le E.
Merci ça fonctionne à merveille ....Et c'est bien mieux ainsi.
Zouzou