Bonjour,
Je ne commprends pas pourquoi ce code fonctionne parfaitement sur un
classeur et pas sur un autre:
For s = 2 To Sheets.Count ' on masque toutes les feuilles
'Sheets(s).Visible = xlVeryHidden
Next s
répertoire = "c:\Sauve"
ActiveWorkbook.SaveCopyAs répertoire & "\" & Left(ThisWorkbook.Name,
Len(ThisWorkbook.Name) - 4) & _
Format(Now, "dd-mm-yyyy") & ".xls"
ThisWorkbook.Save
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
MichDenis
Bonjour,
Tu ne peux pas avoir deux fichiers dans le même répertoire ayant le même nom. C'est probablement ce qui se passe si tu utilises cette procédure à plus d'une reprise dans la même journée.
Afin d'éviter cela, modifie le format de la date en ajoutant Hmmss Format(Now, "dd-mm-yyyy h-mm-ss") afin de différencier leur nom
"pb" a écrit dans le message de groupe de discussion : u4vLW# Bonjour, Je ne commprends pas pourquoi ce code fonctionne parfaitement sur un classeur et pas sur un autre:
For s = 2 To Sheets.Count ' on masque toutes les feuilles 'Sheets(s).Visible = xlVeryHidden Next s répertoire = "c:Sauve" ActiveWorkbook.SaveCopyAs répertoire & "" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & _ Format(Now, "dd-mm-yyyy") & ".xls" ThisWorkbook.Save
Merci de m'éclairer
Pascal
Bonjour,
Tu ne peux pas avoir deux fichiers dans le même répertoire ayant le même nom.
C'est probablement ce qui se passe si tu utilises cette procédure à plus d'une
reprise dans la même journée.
Afin d'éviter cela, modifie le format de la date en ajoutant Hmmss
Format(Now, "dd-mm-yyyy h-mm-ss") afin de différencier
leur nom
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
u4vLW#ptJHA.4648@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je ne commprends pas pourquoi ce code fonctionne parfaitement sur un
classeur et pas sur un autre:
For s = 2 To Sheets.Count ' on masque toutes les feuilles
'Sheets(s).Visible = xlVeryHidden
Next s
répertoire = "c:Sauve"
ActiveWorkbook.SaveCopyAs répertoire & "" & Left(ThisWorkbook.Name,
Len(ThisWorkbook.Name) - 4) & _
Format(Now, "dd-mm-yyyy") & ".xls"
ThisWorkbook.Save
Tu ne peux pas avoir deux fichiers dans le même répertoire ayant le même nom. C'est probablement ce qui se passe si tu utilises cette procédure à plus d'une reprise dans la même journée.
Afin d'éviter cela, modifie le format de la date en ajoutant Hmmss Format(Now, "dd-mm-yyyy h-mm-ss") afin de différencier leur nom
"pb" a écrit dans le message de groupe de discussion : u4vLW# Bonjour, Je ne commprends pas pourquoi ce code fonctionne parfaitement sur un classeur et pas sur un autre:
For s = 2 To Sheets.Count ' on masque toutes les feuilles 'Sheets(s).Visible = xlVeryHidden Next s répertoire = "c:Sauve" ActiveWorkbook.SaveCopyAs répertoire & "" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & _ Format(Now, "dd-mm-yyyy") & ".xls" ThisWorkbook.Save
Merci de m'éclairer
Pascal
pb
Merci C'est la conclusion à laquelle j'arrivais. As tu résolu ton soucis Hotmail?? Pascal "MichDenis" a écrit dans le message de news:
Bonjour,
Tu ne peux pas avoir deux fichiers dans le même répertoire ayant le même nom. C'est probablement ce qui se passe si tu utilises cette procédure à plus d'une reprise dans la même journée.
Afin d'éviter cela, modifie le format de la date en ajoutant Hmmss Format(Now, "dd-mm-yyyy h-mm-ss") afin de différencier leur nom
"pb" a écrit dans le message de groupe de discussion : u4vLW# Bonjour, Je ne commprends pas pourquoi ce code fonctionne parfaitement sur un classeur et pas sur un autre:
For s = 2 To Sheets.Count ' on masque toutes les feuilles 'Sheets(s).Visible = xlVeryHidden Next s répertoire = "c:Sauve" ActiveWorkbook.SaveCopyAs répertoire & "" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & _ Format(Now, "dd-mm-yyyy") & ".xls" ThisWorkbook.Save
Merci de m'éclairer
Pascal
Merci
C'est la conclusion à laquelle j'arrivais.
As tu résolu ton soucis Hotmail??
Pascal
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
46FEA5CC-E85E-4F72-8E2A-2AE0CA1665D4@microsoft.com...
Bonjour,
Tu ne peux pas avoir deux fichiers dans le même répertoire ayant le même
nom.
C'est probablement ce qui se passe si tu utilises cette procédure à plus
d'une
reprise dans la même journée.
Afin d'éviter cela, modifie le format de la date en ajoutant Hmmss
Format(Now, "dd-mm-yyyy h-mm-ss") afin de différencier
leur nom
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
u4vLW#ptJHA.4648@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je ne commprends pas pourquoi ce code fonctionne parfaitement sur un
classeur et pas sur un autre:
For s = 2 To Sheets.Count ' on masque toutes les feuilles
'Sheets(s).Visible = xlVeryHidden
Next s
répertoire = "c:Sauve"
ActiveWorkbook.SaveCopyAs répertoire & "" & Left(ThisWorkbook.Name,
Len(ThisWorkbook.Name) - 4) & _
Format(Now, "dd-mm-yyyy") & ".xls"
ThisWorkbook.Save
Merci C'est la conclusion à laquelle j'arrivais. As tu résolu ton soucis Hotmail?? Pascal "MichDenis" a écrit dans le message de news:
Bonjour,
Tu ne peux pas avoir deux fichiers dans le même répertoire ayant le même nom. C'est probablement ce qui se passe si tu utilises cette procédure à plus d'une reprise dans la même journée.
Afin d'éviter cela, modifie le format de la date en ajoutant Hmmss Format(Now, "dd-mm-yyyy h-mm-ss") afin de différencier leur nom
"pb" a écrit dans le message de groupe de discussion : u4vLW# Bonjour, Je ne commprends pas pourquoi ce code fonctionne parfaitement sur un classeur et pas sur un autre:
For s = 2 To Sheets.Count ' on masque toutes les feuilles 'Sheets(s).Visible = xlVeryHidden Next s répertoire = "c:Sauve" ActiveWorkbook.SaveCopyAs répertoire & "" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & _ Format(Now, "dd-mm-yyyy") & ".xls" ThisWorkbook.Save
Merci de m'éclairer
Pascal
MichDenis
Il faut attendre 48 heures sans intervention sur son compte pour que ce dernier soit débloqué. C'est l'information que m'a transmise un MVP messenger il y a quelque jour. Je devrais être en mesure de faire de nouveaux tests ce soir. On va voir ce que cela donnera ... ;-)
"pb" a écrit dans le message de groupe de discussion :
Merci C'est la conclusion à laquelle j'arrivais. As tu résolu ton soucis Hotmail?? Pascal "MichDenis" a écrit dans le message de news:
Bonjour,
Tu ne peux pas avoir deux fichiers dans le même répertoire ayant le même nom. C'est probablement ce qui se passe si tu utilises cette procédure à plus d'une reprise dans la même journée.
Afin d'éviter cela, modifie le format de la date en ajoutant Hmmss Format(Now, "dd-mm-yyyy h-mm-ss") afin de différencier leur nom
"pb" a écrit dans le message de groupe de discussion : u4vLW# Bonjour, Je ne commprends pas pourquoi ce code fonctionne parfaitement sur un classeur et pas sur un autre:
For s = 2 To Sheets.Count ' on masque toutes les feuilles 'Sheets(s).Visible = xlVeryHidden Next s répertoire = "c:Sauve" ActiveWorkbook.SaveCopyAs répertoire & "" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & _ Format(Now, "dd-mm-yyyy") & ".xls" ThisWorkbook.Save
Merci de m'éclairer
Pascal
Il faut attendre 48 heures sans intervention sur son
compte pour que ce dernier soit débloqué. C'est l'information que
m'a transmise un MVP messenger il y a quelque jour.
Je devrais être en mesure de faire de nouveaux tests ce soir.
On va voir ce que cela donnera ... ;-)
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
ekUhHmqtJHA.3848@TK2MSFTNGP02.phx.gbl...
Merci
C'est la conclusion à laquelle j'arrivais.
As tu résolu ton soucis Hotmail??
Pascal
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
46FEA5CC-E85E-4F72-8E2A-2AE0CA1665D4@microsoft.com...
Bonjour,
Tu ne peux pas avoir deux fichiers dans le même répertoire ayant le même
nom.
C'est probablement ce qui se passe si tu utilises cette procédure à plus
d'une
reprise dans la même journée.
Afin d'éviter cela, modifie le format de la date en ajoutant Hmmss
Format(Now, "dd-mm-yyyy h-mm-ss") afin de différencier
leur nom
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
u4vLW#ptJHA.4648@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je ne commprends pas pourquoi ce code fonctionne parfaitement sur un
classeur et pas sur un autre:
For s = 2 To Sheets.Count ' on masque toutes les feuilles
'Sheets(s).Visible = xlVeryHidden
Next s
répertoire = "c:Sauve"
ActiveWorkbook.SaveCopyAs répertoire & "" & Left(ThisWorkbook.Name,
Len(ThisWorkbook.Name) - 4) & _
Format(Now, "dd-mm-yyyy") & ".xls"
ThisWorkbook.Save
Il faut attendre 48 heures sans intervention sur son compte pour que ce dernier soit débloqué. C'est l'information que m'a transmise un MVP messenger il y a quelque jour. Je devrais être en mesure de faire de nouveaux tests ce soir. On va voir ce que cela donnera ... ;-)
"pb" a écrit dans le message de groupe de discussion :
Merci C'est la conclusion à laquelle j'arrivais. As tu résolu ton soucis Hotmail?? Pascal "MichDenis" a écrit dans le message de news:
Bonjour,
Tu ne peux pas avoir deux fichiers dans le même répertoire ayant le même nom. C'est probablement ce qui se passe si tu utilises cette procédure à plus d'une reprise dans la même journée.
Afin d'éviter cela, modifie le format de la date en ajoutant Hmmss Format(Now, "dd-mm-yyyy h-mm-ss") afin de différencier leur nom
"pb" a écrit dans le message de groupe de discussion : u4vLW# Bonjour, Je ne commprends pas pourquoi ce code fonctionne parfaitement sur un classeur et pas sur un autre:
For s = 2 To Sheets.Count ' on masque toutes les feuilles 'Sheets(s).Visible = xlVeryHidden Next s répertoire = "c:Sauve" ActiveWorkbook.SaveCopyAs répertoire & "" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & _ Format(Now, "dd-mm-yyyy") & ".xls" ThisWorkbook.Save
