ouvrir un fichier Excel

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

testé et ca marche

bravo

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

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

petite question impertinente :

voici pour rappel mes lignes

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

Où dois-je rajouter la référence à une cellule si je veux qu'en plus de la
date, il y est ce qui l'y a écris dans la cellule A1 ?








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

testé et ca marche

bravo

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

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

et insérer si possible le nom de la feuille


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

petite question impertinente :

voici pour rappel mes lignes

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

Où dois-je rajouter la référence à une cellule si je veux qu'en plus de la
date, il y est ce qui l'y a écris dans la cellule A1 ?








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

testé et ca marche

bravo

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

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

La variable nom sera le nom du fichier.

Essaie avec
nom = Format(Now, "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""") & _
activesheet.range("A1").text & activesheet.name

@+
FxM




William wrote:

et insérer si possible le nom de la feuille


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

petite question impertinente :

voici pour rappel mes lignes

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

Où dois-je rajouter la référence à une cellule si je veux qu'en plus de
la

date, il y est ce qui l'y a écris dans la cellule A1 ?








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

testé et ca marche

bravo

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

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