Importer fichier Excel avec variable

Bonjour à tous,

J'ai beau chercher je n'arrive pas à trouver. J'aimerai savoir si vous avez une formule pour importer un fichier excel ou .txt avec une variable dans la destination comme :

Q:\Specifications\variable

Et cette variable elle est présente par exemple dans la case A1 d'une feuille 1.

Je vous remercie d'avance

Bonjour GreardP

Rien de plus simple

Workbooks.OpenText Filename:="Q:\Specifications\" & Sheets("Feuil1").Range("A1").Value

Feuil1 est le nom de la feuille

A+

Tu as raison rien de plus simple merci

J'aurais une autre petite question :

J'ai un fichier dans un dossier qui s'appelle : bonjour-1234567.pdf

Et je voudrais une variable dans mon code VBA du fichier excel qui prend la valeur "1234567"

Comment je peux faire ?

Re,

GreardP a écrit :

J'aurais une autre petite question :

J'ai un fichier dans un dossier qui s'appelle : bonjour-1234567.pdf

Et je voudrais une variable dans mon code VBA du fichier excel qui prend la valeur "1234567"

Comment je peux faire ?

Tout dépend si le nom de ton fichier est toujours composé de la même façon avec le tiret !?

Si OUI, voici un code exemple

Sub Test()
  Dim NomFichier As String, PosTiret As Integer, Valeur As String
  NomFichier = "bonjour-1234567.pdf"
  PosTiret = InStr(1, NomFichier, "-")
  Valeur = Mid(NomFichier, PosTiret + 1, Len(NomFichier) - PosTiret - 4)
End Sub

A+

Oui, ce sont juste les numéros qui vont changer, c'est tout. Mais y'aura toujours le même nombre de numéros et la nomenclature ne changera jamais.

Par contre j'ai du mal à comprendre le code :

Sub Test()
  Dim NomFichier As String, PosTiret As Integer, Valeur As Stringv     ' ok
  NomFichier = "bonjour-1234567.pdf"     ' Tu nommes le fichier pour ensuite prendre le "1234567"
  PosTiret = InStr(1, NomFichier, "-")     ' je comprend pas trop après ^^                     
  Valeur = Mid(NomFichier, PosTiret + 1, Len(NomFichier) - PosTiret - 4)
End Sub

Re,

Sub Test()
  Dim NomFichier As String, PosTiret As Integer, Valeur As Stringv
  ' Je doit récupérer le nom du fichier ici,
  ' mais pour l'exemple je le mets en dur
  NomFichier = "bonjour-1234567.pdf"
  ' Je cherche la position du tiret dans le nom, fonction INSTR()
  PosTiret = InStr(1, NomFichier, "-")
  ' Je récupère la valeur souhaitée à savoir
  ' Je prends la chaîne de caractères à partir de la position du tiret + 1
  ' avec la longueur du nom - ce qui se trouve avant le tiret - l'extension
  Valeur = Mid(NomFichier, PosTiret + 1, Len(NomFichier) - PosTiret - 4)
End Sub

Regarde dans l'aide d'Excel pour les fonctions

A+

Merci

Je n'arrive pas à fusionner les deux

Je connais l'emplacement du fichier : Q/spécif/donnée/bonjour-123456.pdf

Et dans le fichier "donnée" je souhaite mettre la valeur "123456" dans une variable ( "numérospé" par exemple )comme dans le post précédent.

Re,

Nous n'avons pas de fichier et tu ne nous dis pas ce que tu veux faire exactement

Comment veux-tu que l'on puisse continuer à t'aider ???