Problème ouverture fichier

[frichti]

Bonjour à tous ... Voilà mon problème

Private Sub CommandButton3_Click()
Dim nomarchive As String
nomarchive = "Archive du " & Day(Date) & "-" & Month(Date) & "-" & Year(Date)
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\Archives\" & nomarchive
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nomarchive, vbYes + vbInformation, "Copie sauvegarde classeur")

Workbooks.Open Filename:=nomarchive '<--- j'ai un problème sur cette ligne
' Je souhaite ouvrir le fichier que je
'viens d'archiver

End Sub

Merci de votre aide

 

[TooFatBoy]

Re : Problème ouverture fichier

Je dis un truc tout à fait au hasrad, mais on ne sait jamais : as-tu essayé d'ajouter une extension genre ".xls" ?

Sinon, as-tu vérifié la valeur de cette variable 'nomarchive' ?

 

[BOISGONTIER]

Re : Problème ouverture fichier

Bonjour,

>Workbooks.Open Filename:=nomarchive '<--- j'ai un problème sur cette ligne

Il manque le nom du sous répertoire.

JB

 

[fjd]

Re : Problème ouverture fichier

Peut On Ouvrir Un Fichier Sauvegarde
Si Le Fichier Origine Est Encore Ouvert ?
Je Pense Que Non
N'est Ce Pas Le Pb?:

 

[frichti]

Re : Problème ouverture fichier

Je crois que c'est le chemin qui manque ... mais je ne sais pas comment l'inclure dans ma commande

 

[TooFatBoy]

Re : Problème ouverture fichier

Peux-tu nous dire le message d'erreur que tu obtiens ?

Peut On Ouvrir Un Fichier Sauvegarde
Si Le Fichier Origine Est Encore Ouvert ?
Je Pense Que Non
N'est Ce Pas Le Pb?:

Ca doit être possible s'il n'a pas le même nom que celui déjà ouvert.

 

[TooFatBoy]

Re : Problème ouverture fichier

Je crois que c'est le chemin qui manque ... mais je ne sais pas comment l'inclure dans ma commande

As-tu essayé un truc du genre :
Workbooks.Open Filename:=ActiveWorkbook.Path & "\Archives\" & nomarchive

 

[frichti]

Re : Problème ouverture fichier

erreur 1004 : fichier introuvable

C'est bien le chemin qui manque

en fait il faudrait que je cherche l'endroit ou est stocké le fichier pour inclure le chemin dans ma ligne de commande.

 

[frichti]

Re : Problème ouverture fichier

Merci Marcel ... c'est bien cela ... c'est OK
Sur ce forum il y a des personnes SUPER

 

[BOISGONTIER]

Re : Problème ouverture fichier

Sub CommandButton3_Click()
Dim nomarchive As String
nomarchive = "Archive du " & Day(Date) & "-" & Month(Date) & "-" & Year(Date)
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\archive\" & nomarchive
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nomarchive, vbYes + vbInformation, "Copie sauvegarde classeur")

Workbooks.Open Filename:=ActiveWorkbook.Path & "\archive\" & nomarchive '<--- j'ai un problème sur cette ligne
' Je souhaite ouvrir le fichier que je
'viens d'archiver

End Sub

JB

 

[frichti]

Re : Problème ouverture fichier

Merci à tous de votre participation .
Cordialement

 

[TooFatBoy]

Re : Problème ouverture fichier

Content que ton problème soit résolu.

 

[TooFatBoy]

Re : Problème ouverture fichier

Merci Marcel ... c'est bien cela ... c'est OK
Sur ce forum il y a des personnes SUPER

Mais de rien, c'est en fait l'ami Boisgontier qui a trouvé le problème.

@+