Ouverture d'un fichier selon "chemin"

Le
GARAULT
Bonjour
Avec le code suivant je souhaiterais ouvrir le fichier "aper2" quise trouve
dans le chemin suivant:
C:D-calcINTEXDevisD0005aper2

Pour s'ouvrir le code doit aller chercher une partie du chemin dans la
feuille "scan", cellule "e24". ( D0005 dans l'exemple ci dessus)
Le problème c que sa bloc, quelq'un pourrait il me dire ce que j'ai oublié
ou mal fait ?
Merci

Chemin = "C:D-calcINTEXDevis" ' à déterminer
Chemin = Sheets("scan").Range("E24") ' à déterminer
Fichier = "aper2"
Vos réponses
Trier par : date / pertinence
Garette
Le #4103681
Bonjour,

Ca doit donner quelque chose de ce genre :

Sub test()
Chemin = "C:D-calcINTEXDevis"
NomDossier = Sheets("scan").Range("E24")
Fichier = "aper2.xls"
CheminComplet = Chemin & NomDossier & "" & Fichier

Workbooks.Open Filename:=CheminComplet
End Sub
GARAULT
Le #4103601
Par contre comment préciser .AFF

NomDossier = Sheets("scan").Range("E24")

ex : DKB53.AFF



'Enregistrement du fichier originale sous un autre Format
NewFileVersion Chemin & NomDossier & "" & Fichier, FileTemp




Bonjour,

Ca doit donner quelque chose de ce genre :

Sub test()
Chemin = "C:D-calcINTEXDevis"
NomDossier = Sheets("scan").Range("E24")
Fichier = "aper2.xls"
CheminComplet = Chemin & NomDossier & "" & Fichier

Workbooks.Open Filename:=CheminComplet
End Sub





Garette
Le #4103491
Re,

Pour préciser .AFF, il suffit de mettre :
Fichier = "aper2.AFF" au lieu de Fichier = "aper2.xls"

Pour enregistrer, un exemple ci-dessous :

Sub Enregistrer()
Chemin = "C:D-calcINTEXDevis"
NomDossier = Sheets("scan").Range("E24")
Fichier = "DKB53.AFF"
CheminComplet = Chemin & NomDossier & "" & Fichier
ActiveWorkbook.SaveAs Filename:=CheminComplet
End Sub
Publicité
Poster une réponse
Anonyme