Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ouvrir un classeur en VBA ?

Ouvrir un classeur en VBA ?

8 réponses
Avatar
LANIMAL
Bonjour
Après avoir nommé/enregistré le classeur courant sous le nom
toto.xls par les 2 premières lignes de code ci-dessous,
je veux ouvrir le classeur zaza.xls (dans D:/Documents Moi)
par les 3 dernières lignes ci-dessous...
Et ça ne marche pas ! - Qu'est-ce qui ne va pas ?
Comment ouvre-t-on un classeur en VBA ?

Sub nommer_toto()
ChDir "D:\Documents Moi"
ActiveWorkbook.SaveAs Filename:="D:\Documents Moi\toto.xls"

ChDir "D:\Documents Moi"
Workbooks.Open "zaza.xls"
Sheets("téléchrgt").Select
End Sub

Merci et bonsoir.
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
lSteph
Bonsoir,

d'abord
chdrive "d:"

Cordialement.

lSteph

"LANIMAL" a écrit dans le message de news:

Bonjour
Après avoir nommé/enregistré le classeur courant sous le nom
toto.xls par les 2 premières lignes de code ci-dessous,
je veux ouvrir le classeur zaza.xls (dans D:/Documents Moi)
par les 3 dernières lignes ci-dessous...
Et ça ne marche pas ! - Qu'est-ce qui ne va pas ?
Comment ouvre-t-on un classeur en VBA ?

Sub nommer_toto()
ChDir "D:Documents Moi"
ActiveWorkbook.SaveAs Filename:="D:Documents Moitoto.xls"

ChDir "D:Documents Moi"
Workbooks.Open "zaza.xls"
Sheets("téléchrgt").Select
End Sub

Merci et bonsoir.


Avatar
jps
bonjour lanimal
essaie plutôt :

Workbooks.Open Filename:="D:Documents Moizaza.xls

HTH
jps

"LANIMAL" a écrit dans le message de news:

Bonjour
Après avoir nommé/enregistré le classeur courant sous le nom
toto.xls par les 2 premières lignes de code ci-dessous,
je veux ouvrir le classeur zaza.xls (dans D:/Documents Moi)
par les 3 dernières lignes ci-dessous...
Et ça ne marche pas ! - Qu'est-ce qui ne va pas ?
Comment ouvre-t-on un classeur en VBA ?

Sub nommer_toto()
ChDir "D:Documents Moi"
ActiveWorkbook.SaveAs Filename:="D:Documents Moitoto.xls"

ChDir ""
Workbooks.Open "zaza.xls"
Sheets("téléchrgt").Select
End Sub

Merci et bonsoir.


Avatar
JLuc
*Bonjour LANIMAL*,
Comme te l'on dit LSteph et jps, mais avant, il faudrai le fermer,
sinon, çà sert à rien de le reouvrir ;-)

Bonjour
Après avoir nommé/enregistré le classeur courant sous le nom
toto.xls par les 2 premières lignes de code ci-dessous,
je veux ouvrir le classeur zaza.xls (dans D:/Documents Moi)
par les 3 dernières lignes ci-dessous...
Et ça ne marche pas ! - Qu'est-ce qui ne va pas ?
Comment ouvre-t-on un classeur en VBA ?

Sub nommer_toto()
ChDir "D:Documents Moi"
ActiveWorkbook.SaveAs Filename:="D:Documents Moitoto.xls"

ChDir "D:Documents Moi"
Workbooks.Open "zaza.xls"
Sheets("téléchrgt").Select
End Sub

Merci et bonsoir.


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
LANIMAL
Merci à LSteph et jps, vous ne serez pas étonnés de savoir que
j'ai constaté que vos 2 solutions fonctionnent.
Je ne sais si JLuc blague ou peut être n'a-t-il pas compris ma question,
mais je suis d'accord, s'il est ouvert, çà sert à rien de le reouvrir,
de plus, dans ce cas, une fenêtre-alerte signale qu'il est déjà ouvert.
Merci à tous, encore.

*Bonjour LANIMAL*,
Comme te l'on dit LSteph et jps, mais avant, il faudrai le fermer,
sinon, çà sert à rien de le reouvrir ;-)

Bonjour
Après avoir nommé/enregistré le classeur courant sous le nom
toto.xls par les 2 premières lignes de code ci-dessous,
je veux ouvrir le classeur zaza.xls (dans D:/Documents Moi)
par les 3 dernières lignes ci-dessous...
Et ça ne marche pas ! - Qu'est-ce qui ne va pas ?
Comment ouvre-t-on un classeur en VBA ?

Sub nommer_toto()
ChDir "D:Documents Moi"
ActiveWorkbook.SaveAs Filename:="D:Documents Moitoto.xls"

ChDir "D:Documents Moi"
Workbooks.Open "zaza.xls"
Sheets("téléchrgt").Select
End Sub

Merci et bonsoir.





Avatar
jps
bonjour lanimal
si, si, moi je suis étonné car Modeste fut un de mes Maîtres mais bon....
Lsteph, encore au lit (et tu voudras bien l'excuser) et moi-même te
remercions pour ce retour
quant à JLuc, méfie-t-en : sa signature sous forme de dessin est une
véritable rampe à scuds
jps

"LANIMAL" a écrit dans le message de news:

Merci à LSteph et jps, vous ne serez pas étonnés de savoir que
j'ai constaté que vos 2 solutions fonctionnent.
Je ne sais si JLuc blague ou peut être n'a-t-il pas compris ma question,
mais je suis d'accord, s'il est ouvert, çà sert à rien de le reouvrir,
de plus, dans ce cas, une fenêtre-alerte signale qu'il est déjà ouvert.
Merci à tous, encore.

*Bonjour LANIMAL*,
Comme te l'on dit LSteph et jps, mais avant, il faudrai le fermer, sinon,
çà sert à rien de le reouvrir ;-)

Bonjour
Après avoir nommé/enregistré le classeur courant sous le nom
toto.xls par les 2 premières lignes de code ci-dessous,
je veux ouvrir le classeur zaza.xls (dans D:/Documents Moi)
par les 3 dernières lignes ci-dessous...
Et ça ne marche pas ! - Qu'est-ce qui ne va pas ?
Comment ouvre-t-on un classeur en VBA ?

Sub nommer_toto()
ChDir "D:Documents Moi"
ActiveWorkbook.SaveAs Filename:="D:Documents Moitoto.xls"

ChDir "D:Documents Moi"
Workbooks.Open "zaza.xls"
Sheets("téléchrgt").Select
End Sub

Merci et bonsoir.







Avatar
lSteph
Bonjour,
;-) ...que d'un oeil!



- -
lSteph
[img]http://yelims4.free.fr/Ordinateur/Ordinateur07.gif[/img]

jps a couché sur son écran :
bonjour lanimal
si, si, moi je suis étonné car Modeste fut un de mes Maîtres mais bon....
Lsteph, encore au lit (et tu voudras bien l'excuser) et moi-même te
remercions pour ce retour
quant à JLuc, méfie-t-en : sa signature sous forme de dessin est une
véritable rampe à scuds
jps

"LANIMAL" a écrit dans le message de news:

Merci à LSteph et jps, vous ne serez pas étonnés de savoir que
j'ai constaté que vos 2 solutions fonctionnent.
Je ne sais si JLuc blague ou peut être n'a-t-il pas compris ma question,
mais je suis d'accord, s'il est ouvert, çà sert à rien de le reouvrir,
de plus, dans ce cas, une fenêtre-alerte signale qu'il est déjà ouvert.
Merci à tous, encore.

*Bonjour LANIMAL*,
Comme te l'on dit LSteph et jps, mais avant, il faudrai le fermer, sinon,
çà sert à rien de le reouvrir ;-)

Bonjour
Après avoir nommé/enregistré le classeur courant sous le nom
toto.xls par les 2 premières lignes de code ci-dessous,
je veux ouvrir le classeur zaza.xls (dans D:/Documents Moi)
par les 3 dernières lignes ci-dessous...
Et ça ne marche pas ! - Qu'est-ce qui ne va pas ?
Comment ouvre-t-on un classeur en VBA ?

Sub nommer_toto()
ChDir "D:Documents Moi"
ActiveWorkbook.SaveAs Filename:="D:Documents Moitoto.xls"

ChDir "D:Documents Moi"
Workbooks.Open "zaza.xls"
Sheets("téléchrgt").Select
End Sub

Merci et bonsoir.






--
- -

lSteph




Avatar
JLuc
jps avait soumis l'idée :
quant à JLuc, méfie-t-en : sa signature sous forme de dessin est une
véritable rampe à scuds


Rampe à scuds, tu y va un peu fort :')
Tout au plus des pétards mouillés lol

--
JLuc

Avatar
jps
:-))
jps

"JLuc" a écrit dans le message de news:

jps avait soumis l'idée :
quant à JLuc, méfie-t-en : sa signature sous forme de dessin est une
véritable rampe à scuds


Rampe à scuds, tu y va un peu fort :')
Tout au plus des pétards mouillés lol

--
JLuc