Remplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
Remplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" <c.goess@free.fr> a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$426a74cc@news.free.fr...
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
Remplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
Bonjour Christophe,
Une façon simple de faire...
Remplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
Bonjour Christophe,
Une façon simple de faire...
Remplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" <c.goess@free.fr> a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$426a74cc@news.free.fr...
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
Bonjour Christophe,
Une façon simple de faire...
Remplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
Remplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
Remplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" <c.goess@free.fr> a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$426a74cc@news.free.fr...
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
Remplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
ça ressemblerait à ceci :
Sub Test()
On Error GoTo Erreur:
Application.ScreenUpdating = False
'------------------------------------
If Lcase(Environ("UserName")) = "christophe" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'------------------------------------
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ae847$0$8929$
Bonsoir
tu parles du nom de la session si c'est le cas a la maison c'est
christophe
et au boulot production
je precise que la macro n'est pas de moi je ne mit connait pas asser
encore merciRemplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
ça ressemblerait à ceci :
Sub Test()
On Error GoTo Erreur:
Application.ScreenUpdating = False
'------------------------------------
If Lcase(Environ("UserName")) = "christophe" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'------------------------------------
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
"Christophe" <c.goess@free.fr> a écrit dans le message de groupe de
discussion :
4b0ae847$0$8929$426a74cc@news.free.fr...
Bonsoir
tu parles du nom de la session si c'est le cas a la maison c'est
christophe
et au boulot production
je precise que la macro n'est pas de moi je ne mit connait pas asser
encore merci
Remplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" <c.goess@free.fr> a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$426a74cc@news.free.fr...
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
ça ressemblerait à ceci :
Sub Test()
On Error GoTo Erreur:
Application.ScreenUpdating = False
'------------------------------------
If Lcase(Environ("UserName")) = "christophe" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'------------------------------------
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ae847$0$8929$
Bonsoir
tu parles du nom de la session si c'est le cas a la maison c'est
christophe
et au boulot production
je precise que la macro n'est pas de moi je ne mit connait pas asser
encore merciRemplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
ça ressemblerait à ceci :
Sub Test()
On Error GoTo Erreur:
Application.ScreenUpdating = False
'------------------------------------
If Lcase(Environ("UserName")) = "christophe" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'------------------------------------
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ae847$0$8929$
Bonsoir
tu parles du nom de la session si c'est le cas a la maison c'est
christophe
et au boulot production
je precise que la macro n'est pas de moi je ne mit connait pas asser
encore merciRemplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
ça ressemblerait à ceci :
Sub Test()
On Error GoTo Erreur:
Application.ScreenUpdating = False
'------------------------------------
If Lcase(Environ("UserName")) = "christophe" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'------------------------------------
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
"Christophe" <c.goess@free.fr> a écrit dans le message de groupe de
discussion :
4b0ae847$0$8929$426a74cc@news.free.fr...
Bonsoir
tu parles du nom de la session si c'est le cas a la maison c'est
christophe
et au boulot production
je precise que la macro n'est pas de moi je ne mit connait pas asser
encore merci
Remplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" <c.goess@free.fr> a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$426a74cc@news.free.fr...
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
ça ressemblerait à ceci :
Sub Test()
On Error GoTo Erreur:
Application.ScreenUpdating = False
'------------------------------------
If Lcase(Environ("UserName")) = "christophe" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'------------------------------------
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ae847$0$8929$
Bonsoir
tu parles du nom de la session si c'est le cas a la maison c'est
christophe
et au boulot production
je precise que la macro n'est pas de moi je ne mit connait pas asser
encore merciRemplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
Tu mets ton curseur à l'intérieur de la macro entre la ligne
Sub Sauvegarder_Matrice_VS()
et la ligne
End Sub
Et tu utilises la touche F8 pour faire lire et exécuter chacune des
lignes de code de la procédure. Dans le code, il y a une ligne
qui génère une erreur. En faisant comme énoncé, tu pourras
identifier la ligne qui cause problème.... c'est celle qui provoquera
le saut vers la ligne de code que tu mentionnes en sautant plusieurs
lignes de code.
Trouve cette ligne et dis nous ce que tu trouveras.
"Christophe" a écrit dans le message de groupe de
discussion :
4b0af610$0$9394$
re Bonsoir
sa plante sur la ligne Workbooks("Sauvegarde_VS.xls").Close False
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
If LCase(Environ("UserName")) = "Christophe" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End If
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
"michdenis" a écrit dans le message de news:ça ressemblerait à ceci :
Sub Test()
On Error GoTo Erreur:
Application.ScreenUpdating = False
'------------------------------------
If Lcase(Environ("UserName")) = "christophe" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'------------------------------------
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ae847$0$8929$
Bonsoir
tu parles du nom de la session si c'est le cas a la maison c'est
christophe
et au boulot production
je precise que la macro n'est pas de moi je ne mit connait pas asser
encore merciRemplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
Tu mets ton curseur à l'intérieur de la macro entre la ligne
Sub Sauvegarder_Matrice_VS()
et la ligne
End Sub
Et tu utilises la touche F8 pour faire lire et exécuter chacune des
lignes de code de la procédure. Dans le code, il y a une ligne
qui génère une erreur. En faisant comme énoncé, tu pourras
identifier la ligne qui cause problème.... c'est celle qui provoquera
le saut vers la ligne de code que tu mentionnes en sautant plusieurs
lignes de code.
Trouve cette ligne et dis nous ce que tu trouveras.
"Christophe" <c.goess@free.fr> a écrit dans le message de groupe de
discussion :
4b0af610$0$9394$426a74cc@news.free.fr...
re Bonsoir
sa plante sur la ligne Workbooks("Sauvegarde_VS.xls").Close False
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
If LCase(Environ("UserName")) = "Christophe" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End If
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ukj4tmHbKHA.4688@TK2MSFTNGP06.phx.gbl...
ça ressemblerait à ceci :
Sub Test()
On Error GoTo Erreur:
Application.ScreenUpdating = False
'------------------------------------
If Lcase(Environ("UserName")) = "christophe" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'------------------------------------
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
"Christophe" <c.goess@free.fr> a écrit dans le message de groupe de
discussion :
4b0ae847$0$8929$426a74cc@news.free.fr...
Bonsoir
tu parles du nom de la session si c'est le cas a la maison c'est
christophe
et au boulot production
je precise que la macro n'est pas de moi je ne mit connait pas asser
encore merci
Remplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" <c.goess@free.fr> a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$426a74cc@news.free.fr...
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
Tu mets ton curseur à l'intérieur de la macro entre la ligne
Sub Sauvegarder_Matrice_VS()
et la ligne
End Sub
Et tu utilises la touche F8 pour faire lire et exécuter chacune des
lignes de code de la procédure. Dans le code, il y a une ligne
qui génère une erreur. En faisant comme énoncé, tu pourras
identifier la ligne qui cause problème.... c'est celle qui provoquera
le saut vers la ligne de code que tu mentionnes en sautant plusieurs
lignes de code.
Trouve cette ligne et dis nous ce que tu trouveras.
"Christophe" a écrit dans le message de groupe de
discussion :
4b0af610$0$9394$
re Bonsoir
sa plante sur la ligne Workbooks("Sauvegarde_VS.xls").Close False
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
If LCase(Environ("UserName")) = "Christophe" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End If
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
"michdenis" a écrit dans le message de news:ça ressemblerait à ceci :
Sub Test()
On Error GoTo Erreur:
Application.ScreenUpdating = False
'------------------------------------
If Lcase(Environ("UserName")) = "christophe" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'------------------------------------
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ae847$0$8929$
Bonsoir
tu parles du nom de la session si c'est le cas a la maison c'est
christophe
et au boulot production
je precise que la macro n'est pas de moi je ne mit connait pas asser
encore merciRemplace "TonNomUsage" par le nom que tu
as défini comme nom d'usager sur ton ordi à la maison.
Respecte la casse.
'--------------------------------
If Environ("UserName") = "TonNomUsage" Then
ChDir "C:"
Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
else
ChDir "E:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
End if
'--------------------------------
"Christophe" a écrit dans le message de groupe de
discussion :
4b0ada3b$0$14548$
Bonsoir
Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison
je
suis sur "C"
comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons
exemple de macro
Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False
ChDir "E:"
'ChDir "C:"
Workbooks.Open Filename:="E:Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:Sauvegarde_VS.xls"
Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub
Merci de votre aide
Ce que je voulais savoir, c'est quelle est la dernière ligne
que la procédure a exécutée juste avant celle-ci :
ChDir "E:" à Workbooks("Sauvegarde_VS.xls").Close
Je dois m'absenter ... à plus tard !
Ce que je voulais savoir, c'est quelle est la dernière ligne
que la procédure a exécutée juste avant celle-ci :
ChDir "E:" à Workbooks("Sauvegarde_VS.xls").Close
Je dois m'absenter ... à plus tard !
Ce que je voulais savoir, c'est quelle est la dernière ligne
que la procédure a exécutée juste avant celle-ci :
ChDir "E:" à Workbooks("Sauvegarde_VS.xls").Close
Je dois m'absenter ... à plus tard !
Ce que je voulais savoir, c'est quelle est la dernière ligne
que la procédure a exécutée juste avant celle-ci :
ChDir "E:" à Workbooks("Sauvegarde_VS.xls").Close
Je dois m'absenter ... à plus tard !
Ce que je voulais savoir, c'est quelle est la dernière ligne
que la procédure a exécutée juste avant celle-ci :
ChDir "E:" à Workbooks("Sauvegarde_VS.xls").Close
Je dois m'absenter ... à plus tard !
Ce que je voulais savoir, c'est quelle est la dernière ligne
que la procédure a exécutée juste avant celle-ci :
ChDir "E:" à Workbooks("Sauvegarde_VS.xls").Close
Je dois m'absenter ... à plus tard !