Je suis à la recherche d'aide : dans une macro je demande à
l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je voudrais
que si l'utilisateur ne choisit pas le bon fichier que la macro indique à
l'utilisateur qu'il ne s'agisse pas du bon fichier.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Sub ouvreLeFichier() FichierAOuvrir = Application.GetOpenFilename("Feuilles de calcul (*.xls), *.xls") If NomDuFic(FichierAOuvrir) <> "Classeur1.xls" Then MsgBox "Pas le bon fichier", vbInformation ouvreLeFichier Else: Workbooks.Open (FichierAOuvrir): End If End Sub Function NomDuFic(NomComplet) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") NomDuFic = fso.GetFileName(NomComplet) End Function
Cordialement Pascal
"Martin" a écrit dans le message de news: 422dd8f9$0$1236$
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je voudrais que si l'utilisateur ne choisit pas le bon fichier que la macro indique à l'utilisateur qu'il ne s'agisse pas du bon fichier.
Merci pour vos infos.
Bonjour
Sub ouvreLeFichier()
FichierAOuvrir = Application.GetOpenFilename("Feuilles de calcul (*.xls),
*.xls")
If NomDuFic(FichierAOuvrir) <> "Classeur1.xls" Then
MsgBox "Pas le bon fichier", vbInformation
ouvreLeFichier
Else: Workbooks.Open (FichierAOuvrir): End If
End Sub
Function NomDuFic(NomComplet)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
NomDuFic = fso.GetFileName(NomComplet)
End Function
Cordialement
Pascal
"Martin" <absolut67@voila.fr> a écrit dans le message de news:
422dd8f9$0$1236$8fcfb975@news.wanadoo.fr...
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à
l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je
voudrais que si l'utilisateur ne choisit pas le bon fichier que la macro
indique à l'utilisateur qu'il ne s'agisse pas du bon fichier.
Bonjour Sub ouvreLeFichier() FichierAOuvrir = Application.GetOpenFilename("Feuilles de calcul (*.xls), *.xls") If NomDuFic(FichierAOuvrir) <> "Classeur1.xls" Then MsgBox "Pas le bon fichier", vbInformation ouvreLeFichier Else: Workbooks.Open (FichierAOuvrir): End If End Sub Function NomDuFic(NomComplet) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") NomDuFic = fso.GetFileName(NomComplet) End Function
Cordialement Pascal
"Martin" a écrit dans le message de news: 422dd8f9$0$1236$
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je voudrais que si l'utilisateur ne choisit pas le bon fichier que la macro indique à l'utilisateur qu'il ne s'agisse pas du bon fichier.
Merci pour vos infos.
anonymousA
bonsoir,
pourquoi ne pas plutot utiliser la méthode Getopenfilename de VBA qui fera sensiblement la même chose sans passer par l'explorateur mais a l'avantage de pouvoir être traitée plus facilement par cett méthode et/ou par l'objet FileSystemObject.
A+
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je voudrais que si l'utilisateur ne choisit pas le bon fichier que la macro indique à l'utilisateur qu'il ne s'agisse pas du bon fichier.
Merci pour vos infos.
bonsoir,
pourquoi ne pas plutot utiliser la méthode Getopenfilename de VBA qui fera
sensiblement la même chose sans passer par l'explorateur mais a l'avantage de
pouvoir être traitée plus facilement par cett méthode et/ou par l'objet
FileSystemObject.
A+
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à
l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je voudrais
que si l'utilisateur ne choisit pas le bon fichier que la macro indique à
l'utilisateur qu'il ne s'agisse pas du bon fichier.
pourquoi ne pas plutot utiliser la méthode Getopenfilename de VBA qui fera sensiblement la même chose sans passer par l'explorateur mais a l'avantage de pouvoir être traitée plus facilement par cett méthode et/ou par l'objet FileSystemObject.
A+
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je voudrais que si l'utilisateur ne choisit pas le bon fichier que la macro indique à l'utilisateur qu'il ne s'agisse pas du bon fichier.
Merci pour vos infos.
Clément Marcotte
Bonjour,
Tant qu'à lui faire choisir un fichier et censurer tout choix qui ne correspond pas à la volonté du programmeur, pourquoi ne pas ouvrir directement le fichier imposé:
workbooks.open("le_fichier_imposé")
"Martin" a écrit dans le message de news:422dd8f9$0$1236$
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je voudrais
que si l'utilisateur ne choisit pas le bon fichier que la macro indique à
l'utilisateur qu'il ne s'agisse pas du bon fichier.
Merci pour vos infos.
Bonjour,
Tant qu'à lui faire choisir un fichier et censurer tout choix qui ne
correspond pas à la volonté du programmeur, pourquoi ne pas ouvrir
directement le fichier imposé:
workbooks.open("le_fichier_imposé")
"Martin" <absolut67@voila.fr> a écrit dans le message de
news:422dd8f9$0$1236$8fcfb975@news.wanadoo.fr...
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à
l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je
voudrais
que si l'utilisateur ne choisit pas le bon fichier que la macro
indique à
l'utilisateur qu'il ne s'agisse pas du bon fichier.
Tant qu'à lui faire choisir un fichier et censurer tout choix qui ne correspond pas à la volonté du programmeur, pourquoi ne pas ouvrir directement le fichier imposé:
workbooks.open("le_fichier_imposé")
"Martin" a écrit dans le message de news:422dd8f9$0$1236$
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je voudrais
que si l'utilisateur ne choisit pas le bon fichier que la macro indique à
l'utilisateur qu'il ne s'agisse pas du bon fichier.
Merci pour vos infos.
Martin
Merci, c'est exactement l'info que j'avais besoin. "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Sub ouvreLeFichier() FichierAOuvrir = Application.GetOpenFilename("Feuilles de calcul (*.xls), *.xls") If NomDuFic(FichierAOuvrir) <> "Classeur1.xls" Then MsgBox "Pas le bon fichier", vbInformation ouvreLeFichier Else: Workbooks.Open (FichierAOuvrir): End If End Sub Function NomDuFic(NomComplet) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") NomDuFic = fso.GetFileName(NomComplet) End Function
Cordialement Pascal
"Martin" a écrit dans le message de news: 422dd8f9$0$1236$
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je voudrais que si l'utilisateur ne choisit pas le bon fichier que la macro indique à l'utilisateur qu'il ne s'agisse pas du bon fichier.
Merci pour vos infos.
Merci, c'est exactement l'info que j'avais besoin.
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23gAWSGAJFHA.3832@TK2MSFTNGP12.phx.gbl...
Bonjour
Sub ouvreLeFichier()
FichierAOuvrir = Application.GetOpenFilename("Feuilles de calcul (*.xls),
*.xls")
If NomDuFic(FichierAOuvrir) <> "Classeur1.xls" Then
MsgBox "Pas le bon fichier", vbInformation
ouvreLeFichier
Else: Workbooks.Open (FichierAOuvrir): End If
End Sub
Function NomDuFic(NomComplet)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
NomDuFic = fso.GetFileName(NomComplet)
End Function
Cordialement
Pascal
"Martin" <absolut67@voila.fr> a écrit dans le message de news:
422dd8f9$0$1236$8fcfb975@news.wanadoo.fr...
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à
l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je
voudrais que si l'utilisateur ne choisit pas le bon fichier que la macro
indique à l'utilisateur qu'il ne s'agisse pas du bon fichier.
Merci, c'est exactement l'info que j'avais besoin. "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Sub ouvreLeFichier() FichierAOuvrir = Application.GetOpenFilename("Feuilles de calcul (*.xls), *.xls") If NomDuFic(FichierAOuvrir) <> "Classeur1.xls" Then MsgBox "Pas le bon fichier", vbInformation ouvreLeFichier Else: Workbooks.Open (FichierAOuvrir): End If End Sub Function NomDuFic(NomComplet) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") NomDuFic = fso.GetFileName(NomComplet) End Function
Cordialement Pascal
"Martin" a écrit dans le message de news: 422dd8f9$0$1236$
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je voudrais que si l'utilisateur ne choisit pas le bon fichier que la macro indique à l'utilisateur qu'il ne s'agisse pas du bon fichier.
Merci pour vos infos.
Martin
Merci c'est exactement l'info que je cherchais et je viens de la mettre en oeuvre et cela me donne entière satisfaction. Merci "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Sub ouvreLeFichier() FichierAOuvrir = Application.GetOpenFilename("Feuilles de calcul (*.xls), *.xls") If NomDuFic(FichierAOuvrir) <> "Classeur1.xls" Then MsgBox "Pas le bon fichier", vbInformation ouvreLeFichier Else: Workbooks.Open (FichierAOuvrir): End If End Sub Function NomDuFic(NomComplet) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") NomDuFic = fso.GetFileName(NomComplet) End Function
Cordialement Pascal
"Martin" a écrit dans le message de news: 422dd8f9$0$1236$
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je voudrais que si l'utilisateur ne choisit pas le bon fichier que la macro indique à l'utilisateur qu'il ne s'agisse pas du bon fichier.
Merci pour vos infos.
Merci c'est exactement l'info que je cherchais et je viens de la mettre en
oeuvre et cela me donne entière satisfaction. Merci
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23gAWSGAJFHA.3832@TK2MSFTNGP12.phx.gbl...
Bonjour
Sub ouvreLeFichier()
FichierAOuvrir = Application.GetOpenFilename("Feuilles de calcul (*.xls),
*.xls")
If NomDuFic(FichierAOuvrir) <> "Classeur1.xls" Then
MsgBox "Pas le bon fichier", vbInformation
ouvreLeFichier
Else: Workbooks.Open (FichierAOuvrir): End If
End Sub
Function NomDuFic(NomComplet)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
NomDuFic = fso.GetFileName(NomComplet)
End Function
Cordialement
Pascal
"Martin" <absolut67@voila.fr> a écrit dans le message de news:
422dd8f9$0$1236$8fcfb975@news.wanadoo.fr...
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à
l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je
voudrais que si l'utilisateur ne choisit pas le bon fichier que la macro
indique à l'utilisateur qu'il ne s'agisse pas du bon fichier.
Merci c'est exactement l'info que je cherchais et je viens de la mettre en oeuvre et cela me donne entière satisfaction. Merci "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Sub ouvreLeFichier() FichierAOuvrir = Application.GetOpenFilename("Feuilles de calcul (*.xls), *.xls") If NomDuFic(FichierAOuvrir) <> "Classeur1.xls" Then MsgBox "Pas le bon fichier", vbInformation ouvreLeFichier Else: Workbooks.Open (FichierAOuvrir): End If End Sub Function NomDuFic(NomComplet) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") NomDuFic = fso.GetFileName(NomComplet) End Function
Cordialement Pascal
"Martin" a écrit dans le message de news: 422dd8f9$0$1236$
Bonjour
Je suis à la recherche d'aide : dans une macro je demande à l'utilisateur d'ouvrir un fichier via l'explorateur Windows mais je voudrais que si l'utilisateur ne choisit pas le bon fichier que la macro indique à l'utilisateur qu'il ne s'agisse pas du bon fichier.
