Ouvrir un fichier suivant son nom

J

jjjerome

XLDnaute Occasionnel

• 8 Septembre 2012

• #2

Re : Ouvrir un repertoire sous condition

Voici mon début de code, mais je ne sais pas comment selectionner le fichier en fonction de la ligne selectionnée.

Sub Macro4()
'
' Macro5 Macro
'

'
Range("F2").Select
ActiveCell.FormulaR1C1 = "D:\Test Xls\A"
Range("B3").Select
Workbooks.Open Filename:="D:\Test Xls\A.xlsm"
Range("F3").Select
ActiveCell.FormulaR1C1 = "=[Operations.xlsm]Feuil1!R11C3"
Range("E7").Select
ActiveCell.FormulaR1C1 = "=[Operations.xlsm]Feuil1!R11C4"
Range("H5").Select
ActiveCell.FormulaR1C1 = "=[Operations.xlsm]Feuil1!R11C1"
Range("C12").Select
ActiveCell.FormulaR1C1 = "=[Operations.xlsm]Feuil1!R11C2"
Range("C13").Select
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

J

jjjerome

XLDnaute Occasionnel

• 8 Septembre 2012

• #3

Re : Ouvrir un fichier suivant son nom

Bonjour,
je suis toujours bloqué, comment écrire en VBA :
si ligne 6 selectionné, ouvrir le nom du fichier indiqué en colonne C de la ligne selectionnée (ex ligne 11) ?

Merci

 

Vote positif 0 Vote négatif

J

jjjerome

XLDnaute Occasionnel

• 9 Septembre 2012

• #4

Re : Ouvrir un fichier suivant son nom

bonsoir,
Pouvez vous me dire si ma demande est possible a réaliser ? Faut-il que je parte sur une autre solution ?

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 9 Septembre 2012

• #5

Re : Ouvrir un fichier suivant son nom

Bonsoir,

Voici un premier jet que les collègues plus habiles pourront améliorer :
Telle la détection de la position de la cellule active pour continuer ou donner un message "Sélectionner ...."

A+


G

 

Pièces jointes

• Operations(1).xlsm

  20.2 KB · Affichages: 55

Dernière édition: 9 Septembre 2012

Vote positif 0 Vote négatif

J

jjjerome

XLDnaute Occasionnel

• 9 Septembre 2012

• #6

Re : Ouvrir un fichier suivant son nom

Bonjour et merci Gelinotte pour cette réponse, ça a l'air de bien fonctionner !!
J'essai de l'odapter à mes fichiers, je te tiens au courant.
Je ne comprend pas la fin de ton message : "pour continuer ou donner un message "Sélectionner ....""

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 9 Septembre 2012

• #7

Re : Ouvrir un fichier suivant son nom

Bonjour,

Ce qui reste à améliorer ...
Telle la détection de la position de la cellule active pour continuer ou donner un message "Sélectionner une cellule dans le tableau ...."

Je veux dire, que si tu cliques sur le bouton "Ouvrir Fichier ...." sans avoir placé le curseur sur le tableau., l'erreur n'est pas gérée.

G

 

Dernière édition: 9 Septembre 2012

Vote positif 0 Vote négatif

J

jjjerome

XLDnaute Occasionnel

• 9 Septembre 2012

• #8

Re : Ouvrir un fichier suivant son nom

Oui, ça a l'air de bien marcher tout ça !
Par contre, il faudrait effectivement des messages de confirmation et d'erreur du style :
- Pas acces au répertoire indiqué : veuillez entrer Logine et mot de passe
- le fichier indiqué n'existe pas sous...
- la feuille feuil1 n'existe pas dans le fichier...

Je pense que non, mais pouvez vous m'indiquer si :
Est-il possible d'ouvrir les fichiers si ils se trouvent sur un serveur FTP (en indiquant login et mot de passe) ?
Est-il possible d'enregistrer directement sur le serveur FTP ?

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 9 Septembre 2012

• #9

Re : Ouvrir un fichier suivant son nom

Bonjour,

Mes connaissances sont relativement basiques. C'est bout que je pouvais faire. Je laisse à des personnes plus habiles le soin d'agrémenter le tout.

Pour lire sur un FTP, je crois bien que oui.
Pour enregistrer sur le serveur FPT, je crois qu'il faille lire le fichier sur le FTP, le traiter localement, puis le pousser à nouveau sur le serveur.
Mais encore là, ce ne sont que des suppositions de ma part.

G

 

Vote positif 0 Vote négatif

J

jjjerome

XLDnaute Occasionnel

• 9 Septembre 2012

• #10

Re : Ouvrir un fichier suivant son nom

Un grans Merci Gelinotte pour toute cette aide, tes connaisses dépassent largement les miennes !
Si d'autres peuvent m'aider, ce serait super.

 

Vote positif 0 Vote négatif

J

jjjerome

XLDnaute Occasionnel

• 10 Septembre 2012

• #11

Re : Ouvrir un fichier suivant son nom

Autre chose, je veux selectionner le fichier une fois ouvert, je pensais que le code ci-desous suffirai, mais àa ne marche pas, je ne vois pas ou est mon erreur...

Workbooks(NomFichierSource).Select

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 10 Septembre 2012

• #12

Re : Ouvrir un fichier suivant son nom

Bonsoir,

Ça, c'est le fichier source, le fichier de départ

Code:

Workbooks(NomFichierSource).Select

Celui que tu cherches c'est :

Code:

Workbooks(NomFichier).Select

J'aurais dû le nommer "NomFichierCree".
Ça aurait été moins mêlant.

Il me reste des croûtes à manger, comme on dit par chez-nous 😱

G

 

Dernière édition: 10 Septembre 2012

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 10 Septembre 2012

• #13

Re : Ouvrir un fichier suivant son nom

Bonsoir,

Un bon dépanneur : la touche F8. Ainsi, on avance pas à pas et les variables, au-dessus de la position, ont leur valeur que l'on voit en passant le curseur de la souris au dessus.

G

 

Vote positif 0 Vote négatif

J

jjjerome

XLDnaute Occasionnel

• 11 Septembre 2012

• #14

Re : Ouvrir un fichier suivant son nom

Bonjour,
Effectivement, j'avais une erreur sur le nom du fichier. Encore merci

 

Vote positif 0 Vote négatif

J

jerome pb excel

Guest

• 23 Septembre 2012

• #15

Re : Ouvrir un fichier suivant son nom

Bonjour Gelinotte, le forum,

Je reviens sur le sujet, car je tombe sur un cas auxquel je n'avais pas pensé...
J'ouvre un fichier dont le nom est indiqué en colonne C, mais j'ai des cas ou il y a d'autres indications dans la colonne C.

Par exemple, je voudrais ouvrir le fichier nommé 'Dujardin' alors qu'il est indiqué en colonne C : 'Jean Dujardin'
Comment ajouter la fonction 'contient' au code ?

NomFichierEtChemin = Chemin & Cells(LaLigne, 3) & ".xlsm"
NomFichier = Cells(LaLigne, 3) & ".xlsm"

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif