Workbooks.Open

C

Compte Supprimé 979

Guest

• 28 Octobre 2013

• #2

Re : Workbooks.Open

Bonjour

Pour moi le "ChDir" n'a aucun intérêt

Pour le reste voilà

Code:

Workbooks.Open(Filename:= _
"C:\Users\TetuC793\Desktop\ECR\covoiturage\" & Sheets("NomFeuille").Range("A4").Value & ".xlsm"). _
RunAutoMacros Which:=xlAutoOpen

Je ne suis pas certain que

Code:

. _RunAutoMacros Which:=xlAutoOpen

soit également utile
A partir du moment ou du code ce trouve dans "Workbook_Open" il se lance à l'ouverture


A+

 

Dernière modification par un modérateur: 29 Octobre 2013

Vote positif 0 Vote négatif

B

breeze

XLDnaute Occasionnel

• 28 Octobre 2013

• #3

Re : Workbooks.Open

Merci pour la réponse rapide mais ça ne marche pas.
J'ai un message "Erreur de syntaxe"

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 28 Octobre 2013

• #4

Re : Workbooks.Open

Bonjour
tu as des espaces dans le nom de ton classeur (mieux vaut toujours éviter)
il faut encadrer le nom du classeur par des apostrophes simples

Code:

Workbooks.Open "C:\Users\TetuC793\Desktop\ECR\covoiturage\'août - septembre.xlsm'")

tu peux encore alléger ton code : ici pas besoin du filename puisque tu ne mets aucun autre paramètre.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Octobre 2013

• #5

Re : Workbooks.Open

Bonjour breeze, Bruno, Misange,

Misange à dit:

Bonjour
tu as des espaces dans le nom de ton classeur (mieux vaut toujours éviter)
il faut encadrer le nom du classeur par des apostrophes simples

Cliquez pour agrandir...

Pas d'accord Misange

Le chemin d'accès doit être suivi du nom du fichier tel qu'il est donné par sa propriété .Name.

Ne surtout rien ajouter, qu'il y ait des espaces ou non, sinon le fichier sera introuvable.

A+

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 28 Octobre 2013

• #6

Re : Workbooks.Open

salut

Si... la référence est dans la feuille (le nom du fichier en [A4]), essayer (dans le Module de celle-ci) d'inclure la ligne

Code:

 Workbooks.Open("C:\Users\TetuC793\Desktop\ECR\covoiturage\" & _
     [A4] & ".xlsm").RunAutoMacros 1

sinon compléter avec sheets(...).[A4] ...
Voir aussi si l'extension est ajoutée en [A4] ou pas.

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 28 Octobre 2013

• #7

Re : Workbooks.Open

job75 à dit:

Bonjour breeze, Bruno, Misange,



Pas d'accord Misange

Le chemin d'accès doit être suivi du nom du fichier tel qu'il est donné par sa propriété .Name.

Ne surtout rien ajouter, qu'il y ait des espaces ou non, sinon le fichier sera introuvable.

A+

Cliquez pour agrandir...

Tu as raison !
sans espace dans le nom, ceci fonctionne parfaitement sans rien de plus

Code:

Sub test()
Workbooks.Open "E:\www\test\stats.xlsx"
End Sub

 

Dernière édition: 28 Octobre 2013

Vote positif 0 Vote négatif

B

breeze

XLDnaute Occasionnel

• 28 Octobre 2013

• #8

Re : Workbooks.Open

Merci à tous !
Ça fonctionne.
Un Merci spécial à SI dont le code fonctionne à merveille
Bonne journée!!

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 29 Octobre 2013

• #9

Re : Workbooks.Open

Re,

Juste comme ça ... à part l’abréviation de

Code:

Sheets("NomFeuille").Range("A4").Value

par [A4] c'est exactement ma solution

Sauf que le retour à la ligne dans mon post ne c'était pas faite...
mais pourquoi aller chercher plus loin

Je te souhaite également d'être toujours sur la bonne feuille lors de l'exécution

Au plaisir

 

Vote positif 0 Vote négatif