B breeze XLDnaute Occasionnel 28 Octobre 2013 #1 Bonjour, je voudrais utiliser une macro pour ouvrir un ficher excel. Je voudrais que le nom soit associer à une cellule " A4" Autrement que le "août-septembre soit remplacé par Range("a4") Quelqu'un peu-il maider. Voici ma macro ChDir "C:\Users\TetuC793\Desktop\ECR\covoiturage" Workbooks.Open(Filename:= _ "C:\Users\TetuC793\Desktop\ECR\covoiturage\août - septembre.xlsm"). _ RunAutoMacros Which:=xlAutoOpen merci
Bonjour, je voudrais utiliser une macro pour ouvrir un ficher excel. Je voudrais que le nom soit associer à une cellule " A4" Autrement que le "août-septembre soit remplacé par Range("a4") Quelqu'un peu-il maider. Voici ma macro ChDir "C:\Users\TetuC793\Desktop\ECR\covoiturage" Workbooks.Open(Filename:= _ "C:\Users\TetuC793\Desktop\ECR\covoiturage\août - septembre.xlsm"). _ RunAutoMacros Which:=xlAutoOpen merci
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
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+
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
Re : Workbooks.Open Merci pour la réponse rapide mais ça ne marche pas. J'ai un message "Erreur de syntaxe"
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
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.
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
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+
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
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.
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
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
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
Re : Workbooks.Open Merci à tous ! Ça fonctionne. Un Merci spécial à SI dont le code fonctionne à merveille Bonne journée!!
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
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