Ouverture d'un fichier selon "chemin"

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel Ouverture d'un fichier selon "chemin"

3 réponses

GARAULT

08/12/2006 à 08:54

Bonjour
Avec le code suivant je souhaiterais ouvrir le fichier "aper2" quise trouve
dans le chemin suivant:
C:\D-calc\INTEX\Devis\D0005\aper2

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-calc\INTEX\Devis\" ' à déterminer
Chemin = Sheets("scan").Range("E24") ' à déterminer
Fichier = "aper2"

3 réponses

Garette

08/12/2006 à 09:28

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

08/12/2006 à 10:45

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

08/12/2006 à 13:15

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

Ouverture d'un fichier selon "chemin"

3 réponses

Veuillez sélectionner un problème