mkdir, woorkbook open ... synthaxes ??
Le
Daniel
Re bonjour à tout le groupe !
Voilà, j’ai un problème avec les chemins d’accès pour les fonctions
suivantes :
- ActiveWorkbook.SaveAs filename:= _
- MkDir
- Workbooks.Open
- IsFileOpen
En fait, pour rendre évolutif mon application xls en cas de déplacement du
répertoire racine (I:\LOGISTIQUE) j’ai écrit en feuille « LIEN » cellule B1
ce chemin ! Mais je n’arrive pas à l’exploiter avec ces fonctions. Comment
faire ?
==>MkDIR : Actuellement la macro est celle-ci et elle fonctionne :
MkDir "I:\LOGISTIQUE\" & Sheets("RESUMER").Range("A1").Value
==> ActiveWorkbook.SaveAs filename : Actuellement la macro est celle-ci et
elle fonctionne :
ActiveWorkbook.SaveAs filename:= _
"I:\LOGISTIQUE\ETIQUETTES\" & Range("Resumer!B11") & "\" & ActiveSheet.Name
& ".xls"
==>Workbooks.Open: Actuellement la macro est celle-ci et elle fonctionne :
Workbooks.Open "I:\LOGISTIQUE\BASE DE DONNEES.xls"
==>IsFileOpen : Actuellement la macro est celle-ci et elle fonctionne :
IsFileOpen("I:\LOGISTIQUE\BASE DE DONNEES.xls")
Alors comment faire pour remplacer I:\LOGISTIQUE par la cellule B1 de la
feuille LIEN ??? c’est la syntaxe quin me bloque !!!
Merci d’avance pour votre coup de pouce !!!
Daniel
Voilà, j’ai un problème avec les chemins d’accès pour les fonctions
suivantes :
- ActiveWorkbook.SaveAs filename:= _
- MkDir
- Workbooks.Open
- IsFileOpen
En fait, pour rendre évolutif mon application xls en cas de déplacement du
répertoire racine (I:\LOGISTIQUE) j’ai écrit en feuille « LIEN » cellule B1
ce chemin ! Mais je n’arrive pas à l’exploiter avec ces fonctions. Comment
faire ?
==>MkDIR : Actuellement la macro est celle-ci et elle fonctionne :
MkDir "I:\LOGISTIQUE\" & Sheets("RESUMER").Range("A1").Value
==> ActiveWorkbook.SaveAs filename : Actuellement la macro est celle-ci et
elle fonctionne :
ActiveWorkbook.SaveAs filename:= _
"I:\LOGISTIQUE\ETIQUETTES\" & Range("Resumer!B11") & "\" & ActiveSheet.Name
& ".xls"
==>Workbooks.Open: Actuellement la macro est celle-ci et elle fonctionne :
Workbooks.Open "I:\LOGISTIQUE\BASE DE DONNEES.xls"
==>IsFileOpen : Actuellement la macro est celle-ci et elle fonctionne :
IsFileOpen("I:\LOGISTIQUE\BASE DE DONNEES.xls")
Alors comment faire pour remplacer I:\LOGISTIQUE par la cellule B1 de la
feuille LIEN ??? c’est la syntaxe quin me bloque !!!
Merci d’avance pour votre coup de pouce !!!
Daniel
Poser une question
tu pouvais rester sur le même fil, réponse!
Chdir lechemin
Mkdir lenouveaurep
.SaveAs lefichier
Amicalement
lSteph
"Daniel"
Pour le save as j'ai réussit de cette manière là :
Sub enregi()
ActiveWorkbook.SaveAs filename:= _
Range("RESUMER!B13") & Range("Resumer!B11") & "" & ActiveSheet.Name & ".xls"
End Sub
Mais pas avec le ActiveWorkbook.Path !!
Chdir sert à changer le répertoire où l'on se trouve (le paramêtre est le
nom d'un chemin existant donc possiblement activeworkbook.path)
MkDir crée un répertoire (le paramêtre est le nom du répertoire à créer à
l'endroit où l'on se trouve )
Alors que:
SaveAs utilise un nom de fichier pour enregistrer sur le répertoire courant
ou selon le chemin précisé+nom.
Amicalmement
lSteph
"Daniel"
Merci beaucoup Lsteph pour ton aide!
si tu as besoin pour changer d'unité il faut utiliser
ChDrive
a+
lSteph
"Daniel"