A voir également:
- VBA: entree utilisateur avec un explorateur
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Vba range avec variable ✓ - Forum VB / VBA
6 réponses
Bonjour, un exemple...
Sub OuvreFichier()
Dim nomfich As String
ChDrive "g" 'la lettre du DD
ChDir "g:\" 'te place dans le répertoire où sont les fichiers à ouvrir
'Affiche la boîte de dialogue Ouvrir
' nomfich = Application.GetOpenFilename(FileFilter:="Fichier texte(*.txt),*.txt" _
' , Title:="Sélectionnez le fichier à ouvrir")
nomfich = Application.GetOpenFilename(FileFilter:="Tout Fichier (*.*),*.*" _
, Title:="Sélectionnez le fichier à ouvrir")
If LCase(Right(nomfich, 3)) <> "xls" Then Stop 'Pas fichier excell
Workbooks.Open (nomfich)
End Sub
A+
Sub OuvreFichier()
Dim nomfich As String
ChDrive "g" 'la lettre du DD
ChDir "g:\" 'te place dans le répertoire où sont les fichiers à ouvrir
'Affiche la boîte de dialogue Ouvrir
' nomfich = Application.GetOpenFilename(FileFilter:="Fichier texte(*.txt),*.txt" _
' , Title:="Sélectionnez le fichier à ouvrir")
nomfich = Application.GetOpenFilename(FileFilter:="Tout Fichier (*.*),*.*" _
, Title:="Sélectionnez le fichier à ouvrir")
If LCase(Right(nomfich, 3)) <> "xls" Then Stop 'Pas fichier excell
Workbooks.Open (nomfich)
End Sub
A+
C est un bon debut, merci. Cependant j ai encore une erreur:
FileName = Application.GetOpenFilename("All Files (*.*),*.*" _
, "Select file")
->l object ne supporte pas cette application ou methode.
J ai essaye comme ca:
Dim Excel As Application
FileName = Excel.GetOpenFilename("All Files (*.*),*.*" _
, "Select file")
->La il me dit "Methode non trouvee"
Mes logiciels sont en anglais, d ou les messages d erreurs speciaux (traduit par moi)
Suis a court d idee... j arrive pas a comprendre la logique de ce language. Je ne sais pas comment chercher les commandes/method/syntaxes de maniere efficace.
Quelqu un a une astuce?
FileName = Application.GetOpenFilename("All Files (*.*),*.*" _
, "Select file")
->l object ne supporte pas cette application ou methode.
J ai essaye comme ca:
Dim Excel As Application
FileName = Excel.GetOpenFilename("All Files (*.*),*.*" _
, "Select file")
->La il me dit "Methode non trouvee"
Mes logiciels sont en anglais, d ou les messages d erreurs speciaux (traduit par moi)
Suis a court d idee... j arrive pas a comprendre la logique de ce language. Je ne sais pas comment chercher les commandes/method/syntaxes de maniere efficace.
Quelqu un a une astuce?
Pffftttt, pourquoi voulior changer les variables ?????
Tu emploi FileName qui est un mot réservé.
Fait copier coller, et ce ne serra plus un bon début mais une bonne fin.
A+
Tu emploi FileName qui est un mot réservé.
Fait copier coller, et ce ne serra plus un bon début mais une bonne fin.
A+
Parce que je vis dans un pays anglophone, donc par reflexe...(si un de mes collegues passe derriere moi les variable ne seront pas "parlantes" pour lui.)
Cela dit tu as raison, je dois faire attention aux "mots reserves"
J ai refait avec copier coller du premier code: meme erreur. Je dois avoir un truc mal configure...
sinon j ai trouve ca comme source: https://codes-sources.commentcamarche.net/
C est bien aussi, mais ta methode plus directe doit suffire a mes besoins.
En fait je n ai pas besoin d ouvrir le fichier, simplement d enregistrer le chemin pour pouvoir aller chercher les valeurs dont j ai besoin.
Cela dit tu as raison, je dois faire attention aux "mots reserves"
J ai refait avec copier coller du premier code: meme erreur. Je dois avoir un truc mal configure...
sinon j ai trouve ca comme source: https://codes-sources.commentcamarche.net/
C est bien aussi, mais ta methode plus directe doit suffire a mes besoins.
En fait je n ai pas besoin d ouvrir le fichier, simplement d enregistrer le chemin pour pouvoir aller chercher les valeurs dont j ai besoin.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question