macro date incompréhensive

[JPS28]

Bonsoir le forum
Je souhaiterais votre aide sur ce problème sur ce code que j'ai sortie tout fonctionnais bien ma feuille s'archivais dans le bon classeur sans avoir besoin de l'ouvrir et minuit la date a changé dans ma cellule "A1" et plus rien n'a fonctionné j'ai essayé plusieurs méthode et rien (dd_mm_yyyy) j'ai essayée par le non de la feuille "Monte" ce la fonctionne mais dans l'onglet de la feuille archivé je n'ai plus la date mais monte enfin je me retrouve coincé que faire?
Merci, cordialement

JPS
voici le code. (j'ai mis le signalement de l'erreur en rouge)


ChDir "C:\Documents and Settings\JP\Mes documents\DOSSIER GESTION" 'Archivage feuille monte directement dans le dossier
Workbooks.Open Filename:= _
"C:\Documents and Settings\JP\Mes documents\DOSSIER GESTION\Archive feuilles de monte.xls"
Windows("FormCavalierCheval.xls").Activate
Sheets("9_2_2010").Select
Sheets("9_2_2010").Copy Before:=Workbooks("Archive feuilles de monte.xls"). _
Sheets(1)

 

[Staple1600]

Re : macro date incompréhensive

Bonsoir

Sheets("9_2_2010").Select
    Sheets("9_2_2010").Copy Before:=Workbooks("Archive feuilles de monte.xls").

Sheets("10_2_2010") devrait expliquer la chose non ?

 

[Tenebrae]

Re : macro date incompréhensive

Bonsoir le forum, JPS28.

Si j'ai bien compris, le nom de ta feuille se fait en fonction de la date en A1 or après minuit la date à avancé d'un jour. Ta feuille du 9 ne peut donc être sélectionnée et copiée dans ton classeur. La solution la plus simple serait peut-être de forcer la date en A1, faire ta sauvegarde, puis remettre la formule qui te donnait la date en A1 pour repartir sur de bonnes bases le 10 (à enregistrer avant minuit).

Edit : Grilled! Du coup, le bonsoir Staple.

 

[JPS28]

Re : macro date incompréhensive

Bonjour Staple1600, Tenebrae, le forum
Merci de vous penché sur mon problème. Vous avez bien compris et en changent la date Staple1600 cela va fonctionner mais le probleme c'est que tout les jours ou presque je vais avoir une nouvelle feuille a archivée et que cela ne fonctionnera plus puisque la date va changé que faire ?
Merci cordialement.
JPS

 

[phlaurent55]

Re : macro date incompréhensive

Bonjour à tous,

@ JPS
un autre moyen pour sélectionner un feuille sans avoir le nom est le suivant:
Sheets(x).Select
x étant le numéro d'ordre de la feuille dans le classeur et cela n'est pas influencé par le nom de cette feuille

Utilise cette solution si c'est possible pour toi de savoir le numéro de la feuille à sélectionner,

à+
Philippe
.

 

[JPS28]

Re : macro date incompréhensive

Bonjour Staple1600, Tenebrae, phlaurent55, le forum
Sheets feuil3.Select. Cela ne fonctionne pas non plus, je te remerci phlaurent55.
JPS

 

[JPS28]

Re : macro date incompréhensive

RE tout le monde
Une précision j'ai cette masro2 qui alimente la cellule A1 qui est peut être pour quelque chose ?
Cordialement.
JPS

 

[phlaurent55]

Re : macro date incompréhensive

re,

Sheets feuil3.Select. Cela ne fonctionne pas non plus,

ce n'est pas ce que j'ai voulu dire,
remplace le X par un chiffre et garde les parenthèses

à+
Philippe
.

Edit: si dès le début tu avais joint un fichier, il aurait été plus facile pour t'aider

 

[JPS28]

Re : macro date incompréhensive

re Staple1600, Tenebrae, phlaurent55, le forum.
Voici les fichiers tu pourras trouver peut être certaines incohérence mais j'ai essayé de me débrouiller tout seul. Avant de vous faire appel sur les quelques derniers codes mais la je ni comprend plus rien.
Cordialement.
JPS

 

[phlaurent55]

Re : macro date incompréhensive

Re,

Essaie de remplacer tous les Sheets("9_2_2010").Select
par
Sheets(4).select

ou quelque chose du genre

Sheets(ActiveWorkbook.Sheets.Count).Select

ce qui sélectionnera la dernière feuille

à+

 

[JPS28]

Re : macro date incompréhensive

Re Staple1600, Tenebrae, phlaurent55, le forum.
J'ai essayés tes codes rien ne va, j'ai une erreur et la feuille se loge a la suite de feuille Monte et non dans archive feuilles de Monte? quoi faire ?
a+
JPS

 

[JPS28]

Re : macro date incompréhensive

Bonsoi a tous.
Je reviens avec mon problème car voila minuit passé j'ai refais un essai et toujours le problème j'ai essayer tous les solutions proposées refait le code et toujours se problème de dates. Quelqu'un a t'il une idée.
Merci.cordialement.
JPS

 

[JPS28]

Re : macro date incompréhensive

Bonjou a tous.
Ny a t'il donc personne qui pourrait m'aider SVP.je ne comprend plus rien.
Cordialement.
JPS

 

[JPS28]

Re : macro date incompréhensive

Bonjour a tous.
Point de réponses! Ais je été impoli dans ma demande? Ou est elle impossible a réalisée? Je remercie vivement Staple1600, Tenebrae, phlaurent55, qui mon aimablement proposé des solutions mais qui hélas ne fonctionne pas pour moi ou peut être je les ai mal placés se qui m'étonnerai qu’à moitié vu l'état avancé du bonhomme. Enfin j'aimerais savoir si elle est réalisable ou non que je ne cherche pas pour rien déjà 2 jour jusqu'au moins 2 heure du matin mais quand on aime on ne compte pas. J'espère trouver une réponse un jour.
Merci cordialement.
JPS

 

[JPS28]

Re : macro date incompréhensive

Re:
Un petit avancement ce code:

Sub test_ok()
Dim CLASSEUR_SOURCE As Workbook: Set CLASSEUR_SOURCE = Workbooks.Open(Fic)
Dim a As Workbook: Set a = ThisWorkbook
With CLASSEUR_SOURCE
.Sheets(1).Copy after:=a.Worksheets(a.Worksheets.Count)
.Close True
End With
End Sub

copie bien le feuille mais elle ne vas toujours pas dans mon archive :

"C:\Documents and Settings\JP\Mes documents\DOSSIER GESTION\Archive feuilles de monte.xls"
ou placée cette phrase pour qu'elle face son travail?
Merci cordialement.
JPS