J'ai réussi, avec l'aide des archives du forum à créer la macro suivante :
- Changer de lecteur et de répertoire.
- Appel de la boite de dialogue "Ouvrir un fichier"
- Choisir et ouvrir "manuellement" le fichier.
- Gérer la fermeture de la boite sans choix de fichier le cas
échéant (bouton Annuler ou Croix de fermeture).
- Continuer diverses opérations.
- Revenir dans le répertoire d'origine.
Sub Ouvre_Fichier_Essai()
Application.ScreenUpdating = False
MonDir = CurDir
Dim DocChoisi
ChDrive "G"
ChDir "G:\toto\tata\tutu\"
DocChoisi = Application.GetOpenFilename("Classeurs Excel (*.xls),
*.xls")
If DocChoisi = False Then Exit Sub
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
lSteph
Bonjour, très a priori:
Workbooks(DocChoisi).close False 'ou true
Cordialement. lSteph "JacquesH" a écrit dans le message de news: %
Bonjour à toutes et tous,
J'ai réussi, avec l'aide des archives du forum à créer la macro suivante : - Changer de lecteur et de répertoire. - Appel de la boite de dialogue "Ouvrir un fichier" - Choisir et ouvrir "manuellement" le fichier. - Gérer la fermeture de la boite sans choix de fichier le cas échéant (bouton Annuler ou Croix de fermeture). - Continuer diverses opérations. - Revenir dans le répertoire d'origine.
Sub Ouvre_Fichier_Essai() Application.ScreenUpdating = False MonDir = CurDir Dim DocChoisi
ChDrive "G" ChDir "G:tototatatutu" DocChoisi = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls") If DocChoisi = False Then Exit Sub
Je n'arrive pas, malgré de nombreuses tentatives à fermer le fichier que j'ai ouvert. Comment retrouver son nom ?
Quelqu'un peut-il me donner une idée ?
Jacques
Bonjour,
très a priori:
Workbooks(DocChoisi).close False 'ou true
Cordialement.
lSteph
"JacquesH" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: %23M6u99StGHA.644@TK2MSFTNGP03.phx.gbl...
Bonjour à toutes et tous,
J'ai réussi, avec l'aide des archives du forum à créer la macro suivante :
- Changer de lecteur et de répertoire.
- Appel de la boite de dialogue "Ouvrir un fichier"
- Choisir et ouvrir "manuellement" le fichier.
- Gérer la fermeture de la boite sans choix de fichier le cas échéant
(bouton Annuler ou Croix de fermeture).
- Continuer diverses opérations.
- Revenir dans le répertoire d'origine.
Sub Ouvre_Fichier_Essai()
Application.ScreenUpdating = False
MonDir = CurDir
Dim DocChoisi
ChDrive "G"
ChDir "G:tototatatutu"
DocChoisi = Application.GetOpenFilename("Classeurs Excel (*.xls),
*.xls")
If DocChoisi = False Then Exit Sub
Cordialement. lSteph "JacquesH" a écrit dans le message de news: %
Bonjour à toutes et tous,
J'ai réussi, avec l'aide des archives du forum à créer la macro suivante : - Changer de lecteur et de répertoire. - Appel de la boite de dialogue "Ouvrir un fichier" - Choisir et ouvrir "manuellement" le fichier. - Gérer la fermeture de la boite sans choix de fichier le cas échéant (bouton Annuler ou Croix de fermeture). - Continuer diverses opérations. - Revenir dans le répertoire d'origine.
Sub Ouvre_Fichier_Essai() Application.ScreenUpdating = False MonDir = CurDir Dim DocChoisi
ChDrive "G" ChDir "G:tototatatutu" DocChoisi = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls") If DocChoisi = False Then Exit Sub
Je n'arrive pas, malgré de nombreuses tentatives à fermer le fichier que j'ai ouvert. Comment retrouver son nom ?
Quelqu'un peut-il me donner une idée ?
Jacques
JacquesH
Bonjour et merci pour ta réponse,
J'ai placé ta ligne de code avant ChDrive "C". Je n'ai pas de message d'erreur contrairement à tout ce que j'avais fait avant. Cependant, tant avec False qu'avec True, cela ne fait rien et mon fichier est toujours ouvert.
Jacques
Bonjour, très a priori:
Workbooks(DocChoisi).close False 'ou true
Cordialement. lSteph "JacquesH" a écrit dans le message de news: %
Bonjour à toutes et tous,
J'ai réussi, avec l'aide des archives du forum à créer la macro suivante : - Changer de lecteur et de répertoire. - Appel de la boite de dialogue "Ouvrir un fichier" - Choisir et ouvrir "manuellement" le fichier. - Gérer la fermeture de la boite sans choix de fichier le cas échéant (bouton Annuler ou Croix de fermeture). - Continuer diverses opérations. - Revenir dans le répertoire d'origine.
Sub Ouvre_Fichier_Essai() Application.ScreenUpdating = False MonDir = CurDir Dim DocChoisi
ChDrive "G" ChDir "G:tototatatutu" DocChoisi = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls") If DocChoisi = False Then Exit Sub
Je n'arrive pas, malgré de nombreuses tentatives à fermer le fichier que j'ai ouvert. Comment retrouver son nom ?
Quelqu'un peut-il me donner une idée ?
Jacques
Bonjour et merci pour ta réponse,
J'ai placé ta ligne de code avant ChDrive "C". Je n'ai pas de message
d'erreur contrairement à tout ce que j'avais fait avant.
Cependant, tant avec False qu'avec True, cela ne fait rien et mon
fichier est toujours ouvert.
Jacques
Bonjour,
très a priori:
Workbooks(DocChoisi).close False 'ou true
Cordialement.
lSteph
"JacquesH" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: %23M6u99StGHA.644@TK2MSFTNGP03.phx.gbl...
Bonjour à toutes et tous,
J'ai réussi, avec l'aide des archives du forum à créer la macro suivante :
- Changer de lecteur et de répertoire.
- Appel de la boite de dialogue "Ouvrir un fichier"
- Choisir et ouvrir "manuellement" le fichier.
- Gérer la fermeture de la boite sans choix de fichier le cas échéant
(bouton Annuler ou Croix de fermeture).
- Continuer diverses opérations.
- Revenir dans le répertoire d'origine.
Sub Ouvre_Fichier_Essai()
Application.ScreenUpdating = False
MonDir = CurDir
Dim DocChoisi
ChDrive "G"
ChDir "G:tototatatutu"
DocChoisi = Application.GetOpenFilename("Classeurs Excel (*.xls),
*.xls")
If DocChoisi = False Then Exit Sub
J'ai placé ta ligne de code avant ChDrive "C". Je n'ai pas de message d'erreur contrairement à tout ce que j'avais fait avant. Cependant, tant avec False qu'avec True, cela ne fait rien et mon fichier est toujours ouvert.
Jacques
Bonjour, très a priori:
Workbooks(DocChoisi).close False 'ou true
Cordialement. lSteph "JacquesH" a écrit dans le message de news: %
Bonjour à toutes et tous,
J'ai réussi, avec l'aide des archives du forum à créer la macro suivante : - Changer de lecteur et de répertoire. - Appel de la boite de dialogue "Ouvrir un fichier" - Choisir et ouvrir "manuellement" le fichier. - Gérer la fermeture de la boite sans choix de fichier le cas échéant (bouton Annuler ou Croix de fermeture). - Continuer diverses opérations. - Revenir dans le répertoire d'origine.
Sub Ouvre_Fichier_Essai() Application.ScreenUpdating = False MonDir = CurDir Dim DocChoisi
ChDrive "G" ChDir "G:tototatatutu" DocChoisi = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls") If DocChoisi = False Then Exit Sub
Je n'arrive pas, malgré de nombreuses tentatives à fermer le fichier que j'ai ouvert. Comment retrouver son nom ?
Quelqu'un peut-il me donner une idée ?
Jacques
JacquesH
Je viens de réussir...en testant deux lignes de code reprises dans une macro d'Isabelle (merci à elle).
J'ai ajouté : Set LeFichierOuvert = ActiveWorkbook après Workbooks.Open DocChoisi Puis, j'ai terminé par : LeFichierOuvert.Close SaveChanges:úlse
Je ne sais pas si on peut faire plus simple mais cela fonctionne.
Merci de ton aide.
Jacques
Bonjour à toutes et tous,
J'ai réussi, avec l'aide des archives du forum à créer la macro suivante : - Changer de lecteur et de répertoire. - Appel de la boite de dialogue "Ouvrir un fichier" - Choisir et ouvrir "manuellement" le fichier. - Gérer la fermeture de la boite sans choix de fichier le cas échéant (bouton Annuler ou Croix de fermeture). - Continuer diverses opérations. - Revenir dans le répertoire d'origine.
Sub Ouvre_Fichier_Essai() Application.ScreenUpdating = False MonDir = CurDir Dim DocChoisi
ChDrive "G" ChDir "G:tototatatutu" DocChoisi = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls") If DocChoisi = False Then Exit Sub
Je n'arrive pas, malgré de nombreuses tentatives à fermer le fichier que j'ai ouvert. Comment retrouver son nom ?
Quelqu'un peut-il me donner une idée ?
Jacques
Je viens de réussir...en testant deux lignes de code reprises dans une
macro d'Isabelle (merci à elle).
J'ai ajouté :
Set LeFichierOuvert = ActiveWorkbook après Workbooks.Open DocChoisi
Puis, j'ai terminé par :
LeFichierOuvert.Close SaveChanges:úlse
Je ne sais pas si on peut faire plus simple mais cela fonctionne.
Merci de ton aide.
Jacques
Bonjour à toutes et tous,
J'ai réussi, avec l'aide des archives du forum à créer la macro
suivante :
- Changer de lecteur et de répertoire.
- Appel de la boite de dialogue "Ouvrir un fichier"
- Choisir et ouvrir "manuellement" le fichier.
- Gérer la fermeture de la boite sans choix de fichier le cas
échéant (bouton Annuler ou Croix de fermeture).
- Continuer diverses opérations.
- Revenir dans le répertoire d'origine.
Sub Ouvre_Fichier_Essai()
Application.ScreenUpdating = False
MonDir = CurDir
Dim DocChoisi
ChDrive "G"
ChDir "G:tototatatutu"
DocChoisi = Application.GetOpenFilename("Classeurs Excel (*.xls),
*.xls")
If DocChoisi = False Then Exit Sub
Je viens de réussir...en testant deux lignes de code reprises dans une macro d'Isabelle (merci à elle).
J'ai ajouté : Set LeFichierOuvert = ActiveWorkbook après Workbooks.Open DocChoisi Puis, j'ai terminé par : LeFichierOuvert.Close SaveChanges:úlse
Je ne sais pas si on peut faire plus simple mais cela fonctionne.
Merci de ton aide.
Jacques
Bonjour à toutes et tous,
J'ai réussi, avec l'aide des archives du forum à créer la macro suivante : - Changer de lecteur et de répertoire. - Appel de la boite de dialogue "Ouvrir un fichier" - Choisir et ouvrir "manuellement" le fichier. - Gérer la fermeture de la boite sans choix de fichier le cas échéant (bouton Annuler ou Croix de fermeture). - Continuer diverses opérations. - Revenir dans le répertoire d'origine.
Sub Ouvre_Fichier_Essai() Application.ScreenUpdating = False MonDir = CurDir Dim DocChoisi
ChDrive "G" ChDir "G:tototatatutu" DocChoisi = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls") If DocChoisi = False Then Exit Sub
