Probleme d'ouverture d'un classeur

Bonjour

dans un code j'ai appliqué l'instruction suivante :

Application.Workbooks.Open "C:\Users\ROCKET\Desktop\GESTION\A  " & Format(Now, "yyyy mm dd hhmmss") & ".xls"
        Application.Run "'B.xls'!Test"
        Workbooks("A  " & Format(Now, "yyyy mm dd hhmmss") & ".xls").Close True

à noter que le classeur A " & Format(Now, "yyyy mm dd hhmmss") & ".xls

est crée au debut du code

lorsque j'execute l'ensemble du code , le debugeur signal qu'il ne trouve pas :

C:\Users\ROCKET\Desktop\GESTION\A  " & Format(Now, "yyyy mm dd hhmmss") & ".xls

alors qu'il existe bien dans mon dossier GESTION sur mon bureau en etant nommé :

A 2011 10 29 104824

merci pour vos conseils

Bonjour

Normal

Au moment où tu crées ton fichier Now à une certaine valeur

Mais quand tu veux le fermer Now a changé (on est passé à la seconde supérieure par exemple)

Une idée comme ça

Définit ton non de sauvegarde avant de créer ton fichier

Ton code deviendrait

Fichier =  "A  " & Format(Now, "yyyy mm dd hhmmss") & ".xls"
Application.Workbooks.Open "C:\Users\ROCKET\Desktop\GESTION\"   & Fichier
        Application.Run "'B.xls'!Test"
        Workbooks(Fichier).Close True

J'ai fait de tête donc pas testé

merci pour ta réponse

le debugeur me signifie " variable non definie pour

Fichier =  "A  " & Format(Now, "yyyy mm dd hhmmss") & ".xls"

suffirait il de placer en tete du code

Fichier as workbook ?

Bonjour

Non

Déclares ta variable en chaîne de caractères

Dim Fichier As String

Pour la prochaine fois penses à mettre tout le code (un fichier c'est mieux)

re...pour en revenir au code que tu m'a proposé

j'ai une anomalie à la ligne

Application.Workbooks.Open "C:\Users\ROCKET\Desktop\GESTION\"   & Fichier

avec l'info : ne trouve pas "C:\Users\ROCKET\Desktop\GESTION\" & Fichier"

Bonjour rocket4, Banzai64, le forum,

Peut-être en faisant ceci :

Dim Nomwb as String

Fichier = "A " & Format(Now, "yyyy mm dd hhmmss") & ".xls"

Nomwb = "C:\Users\ROCKET\Desktop\GESTION\" & Fichier

Workbooks.Open(Nomwb)

Cordialement

Joseph

Bonjour

je crois que l'on ne part pas dans la bonne direction

Quand tu marques

Application.Workbooks.Open "C:\Users\ROCKET\Desktop\GESTION\A  " & Format(Now, "yyyy mm dd hhmmss") & ".xls"

Cela veut dire que tu veux ouvrir un fichier avec un nom variable

Et dans ce cas la tu veux ouvrir un fichier qui n'existe pas car Now varie toute les secondes (sous réserve)

Donc moralité joins la macro complète oule meilleur du mieux du plus bien joins un fichier avec ta macro

Edit

je viens de relire mes post précédents et

Banzai64 a écrit :

Définit ton non de sauvegarde avant de créer ton fichier

Avant la création c'est à ce moment la que tu définis Fichier

Fichier =  "A  " & Format(Now, "yyyy mm dd hhmmss") & ".xls"

merci à toi banzai !! j'ai compris et je vais appliquer tout ca !

merci pour tout , effectivement j'avais mal interpreté !