OVH Cloud OVH Cloud

ouvrir un fichier Excel

20 réponses
Avatar
William
Bonjour,

Dans mon dernier post, j'avais demandé si je pouvais enregistrer un fichier
toto.xls avec comme nom une date : toto.xls ==> copie avec comme nom
date.xls
J'ai affecté cette opération à un bouton et quand je clique dessus tout
marche bien mais je suis alors dans le nouveau fichier (date.xls).
Quelle ligne dois-je rajouter dans la macro du bouton de toto.xls pour
revenir à toto?

en effet, je sais activer une feuille mais pas un fichier .xls



William

10 réponses

1 2
Avatar
papou
Bonjour
Windows("Toto.xls").Activate

Cordialement
Pascal

"William" a écrit dans le message de
news:
Bonjour,

Dans mon dernier post, j'avais demandé si je pouvais enregistrer un
fichier

toto.xls avec comme nom une date : toto.xls ==> copie avec comme nom
date.xls
J'ai affecté cette opération à un bouton et quand je clique dessus tout
marche bien mais je suis alors dans le nouveau fichier (date.xls).
Quelle ligne dois-je rajouter dans la macro du bouton de toto.xls pour
revenir à toto?

en effet, je sais activer une feuille mais pas un fichier .xls



William




Avatar
Nicolas B.
Salut William,

Si tu veux juste resélectionner le premier classeur, rajoute :
Workbooks("Toto.xls").Activate

Et pour fermer le classeur de sauvegarde :
ActiveWorkbook.Close
(à mettre juste après l'enregistrement)


A+
--
Nicolas B.


Bonjour,

Dans mon dernier post, j'avais demandé si je pouvais enregistrer un
fichier toto.xls avec comme nom une date : toto.xls ==> copie avec
comme nom date.xls
J'ai affecté cette opération à un bouton et quand je clique dessus
tout marche bien mais je suis alors dans le nouveau fichier
(date.xls).
Quelle ligne dois-je rajouter dans la macro du bouton de toto.xls pour
revenir à toto?

en effet, je sais activer une feuille mais pas un fichier .xls



William


Avatar
William
ca ne marche pas
dois-je rajouter le chemin complet du fichier ?
Windows("X:dossierToto.xls").Activate ??


"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de news:

Bonjour
Windows("Toto.xls").Activate

Cordialement
Pascal

"William" a écrit dans le message de
news:
Bonjour,

Dans mon dernier post, j'avais demandé si je pouvais enregistrer un
fichier

toto.xls avec comme nom une date : toto.xls ==> copie avec comme nom
date.xls
J'ai affecté cette opération à un bouton et quand je clique dessus tout
marche bien mais je suis alors dans le nouveau fichier (date.xls).
Quelle ligne dois-je rajouter dans la macro du bouton de toto.xls pour
revenir à toto?

en effet, je sais activer une feuille mais pas un fichier .xls



William








Avatar
papou
Dans ce cas
ThisWorkbook.Activate
Cordialement
Pascal

"William" a écrit dans le message de
news:u4J%
ca ne marche pas
dois-je rajouter le chemin complet du fichier ?
Windows("X:dossierToto.xls").Activate ??


"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:


Bonjour
Windows("Toto.xls").Activate

Cordialement
Pascal

"William" a écrit dans le message de
news:
Bonjour,

Dans mon dernier post, j'avais demandé si je pouvais enregistrer un
fichier

toto.xls avec comme nom une date : toto.xls ==> copie avec comme nom
date.xls
J'ai affecté cette opération à un bouton et quand je clique dessus
tout



marche bien mais je suis alors dans le nouveau fichier (date.xls).
Quelle ligne dois-je rajouter dans la macro du bouton de toto.xls pour
revenir à toto?

en effet, je sais activer une feuille mais pas un fichier .xls



William












Avatar
William
Ca ne marche pas car le problème est que quand je clic sur mon bouton, le
dossier toto.xls change de nom et donc DEVIENT date.xls càd qu'avant que je
clique, j'avais un fichier actif toto.xls et après que j'ai cliqué j'en ai
toujours un mais il s'agit de date.xls (ex-toto).

Donc à mon avis, il faut que je rajoute une ligne qui permettent l'ouverture
d'un fichier qui n'est pas déjà ouvert ; en l'occurence toto.xls (qui s'est
"fermé" quand il a changé de nom).

et là je bloque mais je pense qu'il faudra à un moment ou un autre que je
stipule le chemin d'accès à toto.xls



"Nicolas B." a écrit dans le message de
news:
Salut William,

Si tu veux juste resélectionner le premier classeur, rajoute :
Workbooks("Toto.xls").Activate

Et pour fermer le classeur de sauvegarde :
ActiveWorkbook.Close
(à mettre juste après l'enregistrement)


A+
--
Nicolas B.


Bonjour,

Dans mon dernier post, j'avais demandé si je pouvais enregistrer un
fichier toto.xls avec comme nom une date : toto.xls ==> copie avec
comme nom date.xls
J'ai affecté cette opération à un bouton et quand je clique dessus
tout marche bien mais je suis alors dans le nouveau fichier
(date.xls).
Quelle ligne dois-je rajouter dans la macro du bouton de toto.xls pour
revenir à toto?

en effet, je sais activer une feuille mais pas un fichier .xls



William






Avatar
Frédéric Sigonneau
Bonsoir,

Au lieu d'utiliser SaveAs pour copier toto.xls, essaye SaveCopyAs. Le fichier
copié (ici toto.xls) reste ouvert et actif après la copie (et non la copie comme
c'est le cas avec SaveAs). Par exemple :

Sub test()
With ThisWorkbook
.SaveCopyAs .Path & "" & Format(Now, "dd-mm-yyyy") & ".xls"
End With
End Sub

(code à copier dans un module standard du classeur toto.xls)

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Ca ne marche pas car le problème est que quand je clic sur mon bouton, le
dossier toto.xls change de nom et donc DEVIENT date.xls càd qu'avant que je
clique, j'avais un fichier actif toto.xls et après que j'ai cliqué j'en ai
toujours un mais il s'agit de date.xls (ex-toto).

Donc à mon avis, il faut que je rajoute une ligne qui permettent l'ouverture
d'un fichier qui n'est pas déjà ouvert ; en l'occurence toto.xls (qui s'est
"fermé" quand il a changé de nom).

et là je bloque mais je pense qu'il faudra à un moment ou un autre que je
stipule le chemin d'accès à toto.xls



"Nicolas B." a écrit dans le message de
news:

Salut William,

Si tu veux juste resélectionner le premier classeur, rajoute :
Workbooks("Toto.xls").Activate

Et pour fermer le classeur de sauvegarde :
ActiveWorkbook.Close
(à mettre juste après l'enregistrement)


A+
--
Nicolas B.



Bonjour,

Dans mon dernier post, j'avais demandé si je pouvais enregistrer un
fichier toto.xls avec comme nom une date : toto.xls ==> copie avec
comme nom date.xls
J'ai affecté cette opération à un bouton et quand je clique dessus
tout marche bien mais je suis alors dans le nouveau fichier
(date.xls).
Quelle ligne dois-je rajouter dans la macro du bouton de toto.xls pour
revenir à toto?

en effet, je sais activer une feuille mais pas un fichier .xls



William










Avatar
Philippe.R
Bonsoir William,

Workbooks.Open Filename:="LecteurDossiertoto.xls", UpdateLinks:=3

devrait faire l'affaire
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"William" a écrit dans le message de
news:
Ca ne marche pas car le problème est que quand je clic sur mon bouton, le
dossier toto.xls change de nom et donc DEVIENT date.xls càd qu'avant que je
clique, j'avais un fichier actif toto.xls et après que j'ai cliqué j'en ai
toujours un mais il s'agit de date.xls (ex-toto).

Donc à mon avis, il faut que je rajoute une ligne qui permettent l'ouverture
d'un fichier qui n'est pas déjà ouvert ; en l'occurence toto.xls (qui s'est
"fermé" quand il a changé de nom).

et là je bloque mais je pense qu'il faudra à un moment ou un autre que je
stipule le chemin d'accès à toto.xls



"Nicolas B." a écrit dans le message de
news:
Salut William,

Si tu veux juste resélectionner le premier classeur, rajoute :
Workbooks("Toto.xls").Activate

Et pour fermer le classeur de sauvegarde :
ActiveWorkbook.Close
(à mettre juste après l'enregistrement)


A+
--
Nicolas B.


Bonjour,

Dans mon dernier post, j'avais demandé si je pouvais enregistrer un
fichier toto.xls avec comme nom une date : toto.xls ==> copie avec
comme nom date.xls
J'ai affecté cette opération à un bouton et quand je clique dessus
tout marche bien mais je suis alors dans le nouveau fichier
(date.xls).
Quelle ligne dois-je rajouter dans la macro du bouton de toto.xls pour
revenir à toto?

en effet, je sais activer une feuille mais pas un fichier .xls



William










Avatar
William
bonjour,

j'ai toujours le problème.
voici 2 types de lignes de codes, la 1ère marche mais elle me ferme le
mauvais document (contrôles production.xls) et la 2ème marche mais ne
m'ouvre pas le document souhaité ( càd qu'elle ferme le doc avec la date
mais ne m'ouvre pas contrôles production.xls) :

1er type :

Private Sub CommandButton2_click()

Dim Chemin As String
Chemin = "p:CONTROLES PRODUCTION"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
Workbooks.Open Filename:="D:c", UpdateLinks:=3
ActiveWorkbook.Close
End Sub


2ème type :

Private Sub CommandButton2_click()

Dim Chemin As String
Chemin = "p:CONTROLES PRODUCTION"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
ActiveWorkbook.Close
Workbooks.Open Filename:="D:contrôles production.xls", UpdateLinks:=3
End Sub

Peut-être faut-il ouvrir contrôles production.xls (alias toto.xls) et qu'il
ne soit pas "activate" afin de pouvoir fermer
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""" (que j'appelais date.xls dans mes
précédents posts).

Le but est que les modifications de contrôles production.xls soient
enregistrées dans "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""" et qu'on puisse
réutiliser contrôles production.xls sans qu'il y ai les modifications
précédemment enregistrées.

William



"Philippe.R" a écrit dans le message de news:

Bonsoir William,

Workbooks.Open Filename:="LecteurDossiertoto.xls", UpdateLinks:=3

devrait faire l'affaire
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"William" a écrit dans le message de
news:
Ca ne marche pas car le problème est que quand je clic sur mon bouton,
le


dossier toto.xls change de nom et donc DEVIENT date.xls càd qu'avant que
je


clique, j'avais un fichier actif toto.xls et après que j'ai cliqué j'en
ai


toujours un mais il s'agit de date.xls (ex-toto).

Donc à mon avis, il faut que je rajoute une ligne qui permettent
l'ouverture


d'un fichier qui n'est pas déjà ouvert ; en l'occurence toto.xls (qui
s'est


"fermé" quand il a changé de nom).

et là je bloque mais je pense qu'il faudra à un moment ou un autre que
je


stipule le chemin d'accès à toto.xls



"Nicolas B." a écrit dans le message
de


news:
Salut William,

Si tu veux juste resélectionner le premier classeur, rajoute :
Workbooks("Toto.xls").Activate

Et pour fermer le classeur de sauvegarde :
ActiveWorkbook.Close
(à mettre juste après l'enregistrement)


A+
--
Nicolas B.


Bonjour,

Dans mon dernier post, j'avais demandé si je pouvais enregistrer un
fichier toto.xls avec comme nom une date : toto.xls ==> copie avec
comme nom date.xls
J'ai affecté cette opération à un bouton et quand je clique dessus
tout marche bien mais je suis alors dans le nouveau fichier
(date.xls).
Quelle ligne dois-je rajouter dans la macro du bouton de toto.xls
pour




revenir à toto?

en effet, je sais activer une feuille mais pas un fichier .xls



William














Avatar
William
Une erreur s'est glissée dans le 1er type d'où la correction

bonjour,

j'ai toujours le problème.
voici 2 types de lignes de codes, la 1ère marche mais elle me ferme le
mauvais document (contrôles production.xls) et la 2ème marche mais ne
m'ouvre pas le document souhaité ( càd qu'elle ferme le doc avec la date
mais ne m'ouvre pas contrôles production.xls) :

1er type :

Private Sub CommandButton2_click()

Dim Chemin As String
Chemin = "p:CONTROLES PRODUCTION"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
Workbooks.Open Filename:="D:contrôles production", UpdateLinks:=3
ActiveWorkbook.Close
End Sub


2ème type :

Private Sub CommandButton2_click()

Dim Chemin As String
Chemin = "p:CONTROLES PRODUCTION"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
ActiveWorkbook.Close
Workbooks.Open Filename:="D:contrôles production.xls", UpdateLinks:=3
End Sub

Peut-être faut-il ouvrir contrôles production.xls (alias toto.xls) et qu'il
ne soit pas "activate" afin de pouvoir fermer
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""" (que j'appelais date.xls dans mes
précédents posts).

Le but est que les modifications de contrôles production.xls soient
enregistrées dans "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""" et qu'on puisse
réutiliser contrôles production.xls sans qu'il y ai les modifications
précédemment enregistrées.

William

"William" a écrit dans le message de news:
#
bonjour,

j'ai toujours le problème.
voici 2 types de lignes de codes, la 1ère marche mais elle me ferme le
mauvais document (contrôles production.xls) et la 2ème marche mais ne
m'ouvre pas le document souhaité ( càd qu'elle ferme le doc avec la date
mais ne m'ouvre pas contrôles production.xls) :

1er type :

Private Sub CommandButton2_click()

Dim Chemin As String
Chemin = "p:CONTROLES PRODUCTION"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
Workbooks.Open Filename:="D:c", UpdateLinks:=3
ActiveWorkbook.Close
End Sub


2ème type :

Private Sub CommandButton2_click()

Dim Chemin As String
Chemin = "p:CONTROLES PRODUCTION"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
ActiveWorkbook.Close
Workbooks.Open Filename:="D:contrôles production.xls", UpdateLinks:=3
End Sub

Peut-être faut-il ouvrir contrôles production.xls (alias toto.xls) et
qu'il

ne soit pas "activate" afin de pouvoir fermer
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""" (que j'appelais date.xls dans mes
précédents posts).

Le but est que les modifications de contrôles production.xls soient
enregistrées dans "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""" et qu'on puisse
réutiliser contrôles production.xls sans qu'il y ai les modifications
précédemment enregistrées.

William



"Philippe.R" a écrit dans le message de news:

Bonsoir William,

Workbooks.Open Filename:="LecteurDossiertoto.xls", UpdateLinks:=3

devrait faire l'affaire
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"William" a écrit dans le message de
news:
Ca ne marche pas car le problème est que quand je clic sur mon bouton,
le


dossier toto.xls change de nom et donc DEVIENT date.xls càd qu'avant
que



je
clique, j'avais un fichier actif toto.xls et après que j'ai cliqué
j'en



ai
toujours un mais il s'agit de date.xls (ex-toto).

Donc à mon avis, il faut que je rajoute une ligne qui permettent
l'ouverture


d'un fichier qui n'est pas déjà ouvert ; en l'occurence toto.xls (qui
s'est


"fermé" quand il a changé de nom).

et là je bloque mais je pense qu'il faudra à un moment ou un autre que
je


stipule le chemin d'accès à toto.xls



"Nicolas B." a écrit dans le message
de


news:
Salut William,

Si tu veux juste resélectionner le premier classeur, rajoute :
Workbooks("Toto.xls").Activate

Et pour fermer le classeur de sauvegarde :
ActiveWorkbook.Close
(à mettre juste après l'enregistrement)


A+
--
Nicolas B.


Bonjour,

Dans mon dernier post, j'avais demandé si je pouvais enregistrer
un





fichier toto.xls avec comme nom une date : toto.xls ==> copie avec
comme nom date.xls
J'ai affecté cette opération à un bouton et quand je clique dessus
tout marche bien mais je suis alors dans le nouveau fichier
(date.xls).
Quelle ligne dois-je rajouter dans la macro du bouton de toto.xls
pour




revenir à toto?

en effet, je sais activer une feuille mais pas un fichier .xls



William


















Avatar
FxM
Bonjour William,

Le but est que les modifications de contrôles production.xls soient
enregistrées dans "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""" et qu'on puisse

réutiliser contrôles production.xls sans qu'il y ai les modifications
précédemment enregistrées.

Non testé :
Private Sub CommandButton2_click()
Dim Chemin As String
Chemin = "p:CONTROLES PRODUCTION"
nom = Format(Now, "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
ActiveWorkbook.SaveAs Chemin & nom
Workbooks.Open Filename:="D:contrôles production", UpdateLinks:=3
workbooks(nom).close
End Sub

@+
FxM



iam wrote:
Une erreur s'est glissée dans le 1er type d'où la correction

bonjour,

j'ai toujours le problème.
voici 2 types de lignes de codes, la 1ère marche mais elle me ferme le
mauvais document (contrôles production.xls) et la 2ème marche mais ne
m'ouvre pas le document souhaité ( càd qu'elle ferme le doc avec la date
mais ne m'ouvre pas contrôles production.xls) :

1er type :

Private Sub CommandButton2_click()

Dim Chemin As String
Chemin = "p:CONTROLES PRODUCTION"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
Workbooks.Open Filename:="D:contrôles production", UpdateLinks:=3
ActiveWorkbook.Close
End Sub


2ème type :

Private Sub CommandButton2_click()

Dim Chemin As String
Chemin = "p:CONTROLES PRODUCTION"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
ActiveWorkbook.Close
Workbooks.Open Filename:="D:contrôles production.xls", UpdateLinks:=3
End Sub

Peut-être faut-il ouvrir contrôles production.xls (alias toto.xls) et qu'il
ne soit pas "activate" afin de pouvoir fermer
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""" (que j'appelais date.xls dans mes
précédents posts).

Le but est que les modifications de contrôles production.xls soient
enregistrées dans "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""" et qu'on puisse
réutiliser contrôles production.xls sans qu'il y ai les modifications
précédemment enregistrées.

William

"William" a écrit dans le message de news:
#

bonjour,

j'ai toujours le problème.
voici 2 types de lignes de codes, la 1ère marche mais elle me ferme le
mauvais document (contrôles production.xls) et la 2ème marche mais ne
m'ouvre pas le document souhaité ( càd qu'elle ferme le doc avec la date
mais ne m'ouvre pas contrôles production.xls) :

1er type :

Private Sub CommandButton2_click()

Dim Chemin As String
Chemin = "p:CONTROLES PRODUCTION"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
Workbooks.Open Filename:="D:c", UpdateLinks:=3
ActiveWorkbook.Close
End Sub


2ème type :

Private Sub CommandButton2_click()

Dim Chemin As String
Chemin = "p:CONTROLES PRODUCTION"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
ActiveWorkbook.Close
Workbooks.Open Filename:="D:contrôles production.xls", UpdateLinks:=3
End Sub

Peut-être faut-il ouvrir contrôles production.xls (alias toto.xls) et


qu'il

ne soit pas "activate" afin de pouvoir fermer
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""" (que j'appelais date.xls dans mes
précédents posts).

Le but est que les modifications de contrôles production.xls soient
enregistrées dans "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""" et qu'on puisse
réutiliser contrôles production.xls sans qu'il y ai les modifications
précédemment enregistrées.

William



"Philippe.R" a écrit dans le message de news:


Bonsoir William,

Workbooks.Open Filename:="LecteurDossiertoto.xls", UpdateLinks:=3

devrait faire l'affaire
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

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

Ca ne marche pas car le problème est que quand je clic sur mon bouton,



le

dossier toto.xls change de nom et donc DEVIENT date.xls càd qu'avant




que

je

clique, j'avais un fichier actif toto.xls et après que j'ai cliqué




j'en

ai

toujours un mais il s'agit de date.xls (ex-toto).

Donc à mon avis, il faut que je rajoute une ligne qui permettent



l'ouverture

d'un fichier qui n'est pas déjà ouvert ; en l'occurence toto.xls (qui



s'est

"fermé" quand il a changé de nom).

et là je bloque mais je pense qu'il faudra à un moment ou un autre que



je

stipule le chemin d'accès à toto.xls



"Nicolas B." a écrit dans le message



de

news:

Salut William,

Si tu veux juste resélectionner le premier classeur, rajoute :
Workbooks("Toto.xls").Activate

Et pour fermer le classeur de sauvegarde :
ActiveWorkbook.Close
(à mettre juste après l'enregistrement)


A+
--
Nicolas B.



Bonjour,

Dans mon dernier post, j'avais demandé si je pouvais enregistrer






un

fichier toto.xls avec comme nom une date : toto.xls ==> copie avec
comme nom date.xls
J'ai affecté cette opération à un bouton et quand je clique dessus
tout marche bien mais je suis alors dans le nouveau fichier
(date.xls).
Quelle ligne dois-je rajouter dans la macro du bouton de toto.xls





pour

revenir à toto?

en effet, je sais activer une feuille mais pas un fichier .xls



William



















1 2