Workbooks.close ne marche pas???? [Résolu]
nicosne
37
Messages postés
lundi 9 août 2004Date d'inscription
10 mai 2005
Dernière intervention
-
28 déc. 2004 à 10:15 - Dernière réponse :
nicosne
37
Messages postés
lundi 9 août 2004Date d'inscription
10 mai 2005
Dernière intervention
- 28 déc. 2004 à 16:22
- Workbooks.close ne marche pas????
- Un partall et un close pv pour bot mirc » Codes sources - IRC (AddOns)
- Close pv ! » Codes sources - IRC (Astuces)
- Desactiver max min ou close d'une mdiform » Codes sources - Visual Basic / VB.NET (API)
- Window.close et window.open sur un clic » Codes sources - Javascript (Fenêtre & Pop-up)
- Fonctions open, print et close avec des fichiers » Codes sources - Visual Basic / VB.NET (Texte)
7 réponses
Meilleure réponse
Le split a pour effet de te créer un tableau de chaines récupérant tous les éléments séparés par \ ==>
Guich
dim Tablo() as string tablo = split(DossierImporte, "") workbooks(tablo(ubound(tablo)).close
Guich
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 91 internautes ce mois-ci
'deja merci pour le coup de main, mais il ne reste encore quelques inconnues pour comprendre la logique micro$oft.
'Pour fermer un classeur il faut donc faire:
Workbooks("toto.xls").Close
'Ok quand le nom est defini.
'Mais je declare une varriable pour selectionner le doc a ouvrir et fermer.
Public NomDeLaVariablesCorrespondantAuFichierAOuvrirEtFermer As String
'ensuite grace a une inputbox je lui donne le chemin d'accés au fichier.
DossierImporte = InputBox("indiquer le chemin d'accés du fichier a transformer")
'pour l'ouvrir je fais :
Workbooks.Open NomDeLaVariablesCorrespondantAuFichierAOuvrirEtFermer
'et pour la fermer je dois faire :
Workbooks(NomDeLaVariablesCorrespondantAuFichierAOuvrirEtFermer).Close
'et la on me dis que : l'indice n'appartient pas a la selection.
'Merci,
'NicoSne
:-p
'Pour fermer un classeur il faut donc faire:
Workbooks("toto.xls").Close
'Ok quand le nom est defini.
'Mais je declare une varriable pour selectionner le doc a ouvrir et fermer.
Public NomDeLaVariablesCorrespondantAuFichierAOuvrirEtFermer As String
'ensuite grace a une inputbox je lui donne le chemin d'accés au fichier.
DossierImporte = InputBox("indiquer le chemin d'accés du fichier a transformer")
'pour l'ouvrir je fais :
Workbooks.Open NomDeLaVariablesCorrespondantAuFichierAOuvrirEtFermer
'et pour la fermer je dois faire :
Workbooks(NomDeLaVariablesCorrespondantAuFichierAOuvrirEtFermer).Close
'et la on me dis que : l'indice n'appartient pas a la selection.
'Merci,
'NicoSne
:-p
NomDeLaVariable doit contenir le chmein complet je suppose, alors que Excel n'attend que le nom du classeur ==> il faut que tu découpes ta variable pour en extraire le nom du classeur : soit la méthode Split existe, soit tu cherches toutes les occurences de "" et tu prends ce qui est à la droite de la dernière.
Et ca devrait marcher
Guich
Et ca devrait marcher
Guich
pour ouvrir un fichier, tu as besoin du chemin d'acces complet ainsi que du nom du fichier (ex: c:\temp\dossier.xls)
une fois que ton fichier est ouvert (Workbooks.open("c:\temp\dossier.xls")), ton fichier n'est plus adressé que par son nom, soit dossier.xls.
donc, tu va fermer ton fichier par le biais de la commande close comme suit: workbooks("dossier.xls"). close
"l'indice n'appartient pas a la selection" signifie que le nom que tu as placé entre panenthèses n'est pas reconnu. c'est exactement ce qui arrive si tu balance le chemin d'acces dans la commande close.
une fois que ton fichier est ouvert (Workbooks.open("c:\temp\dossier.xls")), ton fichier n'est plus adressé que par son nom, soit dossier.xls.
donc, tu va fermer ton fichier par le biais de la commande close comme suit: workbooks("dossier.xls"). close
"l'indice n'appartient pas a la selection" signifie que le nom que tu as placé entre panenthèses n'est pas reconnu. c'est exactement ce qui arrive si tu balance le chemin d'acces dans la commande close.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.