pb de fermeture de fichier xls

zandru · 27/08/2008, 12h24

Bonjour,

je souhaite fermer par VBA une de mes fenêtres excel.

j'utilise le code suivant :

Code :

Workbooks(variable.Cells(1, 8)).Close

lorsque je le lance, j'ai l'erreur : "incompatibilité de type" sur cette ligne

Variable.cells(1,8) contient "8-27 8 20-1013.xls"

je précise que ce fichier est effectivement ouvert.

Où est l'erreur ?

Godzestla · 27/08/2008, 12h44

Salut,

c'est certainement le formattage de la cellule qui le chagrine.

Essaie de passer par une variable string intermédiaire.

zandru · 27/08/2008, 14h41

Merci.

ceci fonctionne :

Code :

Dim temp2 As String
temp2 = variable.Cells(1, 8)
Workbooks(temp2).Close

bien que ce soit bizarre que cela ne fonctionne pas en direct.

J'ai réussi a simplifier, et le code que j'utilise est :

Code :

Workbooks(CStr(variable.Cells(1, 8))).Close

Le problème était donc juste que variable.cells(1,8) n'est pas un string.

Godzestla · 27/08/2008, 14h49

Mouais.

parfois il faut vraiment ruser.

Question pour toi : Comment à tu ajouté ceci en clair dans ton profil
(donc "les regles" au lieu du lien http;////...)

Citation:

A lire :Les Règles, Les boutons du forum, sujet de discussion explicite ? et #CODE# sinon

Et oops. pense à

zandru · 27/08/2008, 15h00

Il te suffit d'écrire "les règles" à la place de ce qui est sélectionné dès que tu as inséré un lien.
Ce qui est expliqué ici

ce qui donne en clair dans ta signature :

Citation:

[url="http://club.developpez.com/regles/"]Les Règles[/url]

AlainTech · 27/08/2008, 15h47

Je parie que ceci

Code :

Workbooks(variable.Cells(1, 8).Text).Close

aurait marché aussi.

27/08/2008, 12h24	#1 (permalink)
zandru Membre Confirmé Date d'inscription: mars 2008 Localisation: 89 et 91 Âge: 23 Messages: 242	pb de fermeture de fichier xls Bonjour, je souhaite fermer par VBA une de mes fenêtres excel. j'utilise le code suivant : Code : Workbooks(variable.Cells(1, 8)).Close lorsque je le lance, j'ai l'erreur : "incompatibilité de type" sur cette ligne Variable.cells(1,8) contient "8-27 8 20-1013.xls" je précise que ce fichier est effectivement ouvert. Où est l'erreur ? __________________ Pour Noël >>>cliquer ici, c'est bien<<< A lire :Les Règles, Les boutons du forum, sujet de discussion explicite ? et #CODE# sinon .Aide-toi et le ciel t'aidera F1 / FAQ/ Google ...

27/08/2008, 12h44	#2 (permalink)
Godzestla Membre Expert Date d'inscription: août 2007 Localisation: Impasse Âge: 43 Messages: 1 024	Salut, c'est certainement le formattage de la cellule qui le chagrine. Essaie de passer par une variable string intermédiaire. __________________ Cordialement G@dz Question technique par MP = Vous avez des neurones. Sollicitez-les. Question mal formulée réponse inadaptée. Si la solution est absente, le problème n'est plus.

27/08/2008, 14h41	#3 (permalink)
zandru Membre Confirmé Date d'inscription: mars 2008 Localisation: 89 et 91 Âge: 23 Messages: 242	Merci. ceci fonctionne : Code : Dim temp2 As String temp2 = variable.Cells(1, 8) Workbooks(temp2).Close bien que ce soit bizarre que cela ne fonctionne pas en direct. J'ai réussi a simplifier, et le code que j'utilise est : Code : Workbooks(CStr(variable.Cells(1, 8))).Close Le problème était donc juste que variable.cells(1,8) n'est pas un string. __________________ Pour Noël >>>cliquer ici, c'est bien<<< A lire :Les Règles, Les boutons du forum, sujet de discussion explicite ? et #CODE# sinon .Aide-toi et le ciel t'aidera F1 / FAQ/ Google ...

27/08/2008, 15h47	#6 (permalink)
AlainTech Modérateur Date d'inscription: mai 2005 Localisation: Entre Liège et Bruxelles, suivant l'heure. Âge: 54 Messages: 2 922	Je parie que ceci Code : Workbooks(variable.Cells(1, 8).Text).Close aurait marché aussi. __________________ Si on vous donne une info qui marche, DITES-LE!!!! Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! N'oubliez pas de cliquer sur quand vous avez obtenu la réponse à votre question. ------------ Je dois beaucoup de mes connaissances à mes erreurs!

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Excel > VBA Excel
pb de fermeture de fichier xls

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email