Workbooks.close ne marche pas???? [Résolu]

Question

Posez votre question Signaler Répondre au sujet

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

Visual Basic Posez votre question Signaler Répondre au sujet

Slt,

j'ouvre un document excel :

workbooks.open NomDeLaVariablesCorrespondantAuFichierAOuvrirEtFermer

je pensais que pour le fermer, il me suffisait de remplacer open par close, logique.

workbooks.close NomDeLaVariablesCorrespondantAuFichierAOuvrirEtFermer

La j'ai une erreur de compilation : nombre d'arguments incorrect ou affectation de propriété incorrecte.

quelqu'un pourrais me dire pourquoi cette fonction ne marche pas et me dire comment faire pour qu'elle fonctionnent.

Merci,
NicoSne
:-p

Afficher la suite

7 réponses

Signaler Commenter la réponse de gandalflegris007

gandalflegris007 211 Messages postés lundi 31 mars 2003Date d'inscription 11 juin 2007 Dernière intervention - 28 déc. 2004 à 10:20

0

Utile

Salut nicosne,

perdu, vive la logique Microsoft.

C'est Workbooks("toto.xls").Close
idem si tu veux sauvegarder : Workbooks("toto.xls").Save

Guich

Signaler Commenter la réponse de nicosne

nicosne 37 Messages postés lundi 9 août 2004Date d'inscription 10 mai 2005 Dernière intervention - 28 déc. 2004 à 10:58

0

Utile

'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

Signaler Commenter la réponse de gandalflegris007

gandalflegris007 211 Messages postés lundi 31 mars 2003Date d'inscription 11 juin 2007 Dernière intervention - 28 déc. 2004 à 11:08

0

Utile

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

Signaler Commenter la réponse de philheiz

philheiz 117 Messages postés mercredi 3 décembre 2003Date d'inscription 11 octobre 2007 Dernière intervention - 28 déc. 2004 à 11:13

0

Utile

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.

Signaler Commenter la réponse de nicosne

nicosne 37 Messages postés lundi 9 août 2004Date d'inscription 10 mai 2005 Dernière intervention - 28 déc. 2004 à 12:18

0

Utile

Encore une petite question, je vais utiliser la fonction split :

Split(DossierImporte, "")

le probleme c'est que j'obtiens "C:" et non le nom du fichier.
Comment faire pour selectionner ce qui est a la fin a droite.
:-p

Signaler Commenter la réponse de nicosne

nicosne 37 Messages postés lundi 9 août 2004Date d'inscription 10 mai 2005 Dernière intervention - 28 déc. 2004 à 16:22

0

Utile

un grand merci pour l'aide que j'ai recus

A+
NicoSne
:-p

Accepted Answer

+3

Utile

Le split a pour effet de te créer un tableau de chaines récupérant tous les éléments séparés par \ ==>

dim Tablo() as string

tablo = split(DossierImporte, "")

workbooks(tablo(ubound(tablo)).close

Guich

Cette réponse vous a-t-elle aidé ? Oui Non

Workbooks.close ne marche pas???? [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !