Ouvrir un fichier avec VB Excel
Résolu
Memes
-
Vbbbaaaaaa -
Vbbbaaaaaa -
J'ai un fichier Excel qui à la colonne B à un numéro du genre 10245. avec ce numéro, je souhaite ouvrir un fichier qui s'appelle "blabla10245blabla.bla"
ce fichier peut être un .xls mais aussi un .rtf, .doc, .tif, .jpg, .pdf,...
je pense donc récupérer le numéro et lui demander d'ouvrir *10245*.*. ce que je ne sais pas faire c'est ouvrir un fichier autre qu'un .xls depuis excel.
Pour simplifier, est-il possible d'avoir la (ou les) ligne(s) de commande qui permettent d'ouvrir "monimage.jpg" à partir d'excel. avec çà, je me démerderai
Merci d'avance
ce fichier peut être un .xls mais aussi un .rtf, .doc, .tif, .jpg, .pdf,...
je pense donc récupérer le numéro et lui demander d'ouvrir *10245*.*. ce que je ne sais pas faire c'est ouvrir un fichier autre qu'un .xls depuis excel.
Pour simplifier, est-il possible d'avoir la (ou les) ligne(s) de commande qui permettent d'ouvrir "monimage.jpg" à partir d'excel. avec çà, je me démerderai
Merci d'avance
A voir également:
- Ouvrir un fichier avec VB Excel
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Comment ouvrir un fichier 7z - Guide
19 réponses
Shell "explorer.exe " & fichier
avec l'adresse du fichier stockée dans la variable,
çà marche avec les doc, rtf, tif, tiff, jpg, jpeg et xls
par contre avec les pdf, çà essaye de les ouvrir avec "imaging" donc çà marche pas.
une idée quelque part?
avec l'adresse du fichier stockée dans la variable,
çà marche avec les doc, rtf, tif, tiff, jpg, jpeg et xls
par contre avec les pdf, çà essaye de les ouvrir avec "imaging" donc çà marche pas.
une idée quelque part?
Bonjour,
J'ai créé ceci et cela fonctionne très bien chez moi:
Sub open_help()
ThisWorkbook.FollowHyperlink "\\SMBADOC03\xxx\PROCEDURE DE GENERATION DES ECRITURES TECHNIQUES.pdf"
End Sub
En esperant que cela vous aide.
J'ai créé ceci et cela fonctionne très bien chez moi:
Sub open_help()
ThisWorkbook.FollowHyperlink "\\SMBADOC03\xxx\PROCEDURE DE GENERATION DES ECRITURES TECHNIQUES.pdf"
End Sub
En esperant que cela vous aide.
Salut,
Ce que tu veux faire en faite c'estr créer un lien hypertext? Dans ce cas la tu peux enregistrer une macro et faire la démarche pour créer un lien hypertexte.
Ce que tu veux faire en faite c'estr créer un lien hypertext? Dans ce cas la tu peux enregistrer une macro et faire la démarche pour créer un lien hypertexte.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
;-)
Dans VBA, tu as une fonction "INSTR" qui te renvoie la position du 1er caractère trouvé dans la chaine que tu recherches...
Ex : Si tu fais un INSTR de 10245 dans la chaine qui contient le nom du fichier, il va te renvoyer un N°... Si celui-ci est >0, c'est que la chaine est trouvée, donc tu peux ouvrir ton fichier...
;-)
Dans VBA, tu as une fonction "INSTR" qui te renvoie la position du 1er caractère trouvé dans la chaine que tu recherches...
Ex : Si tu fais un INSTR de 10245 dans la chaine qui contient le nom du fichier, il va te renvoyer un N°... Si celui-ci est >0, c'est que la chaine est trouvée, donc tu peux ouvrir ton fichier...
;-)
ok pour instr, ça marche très bien comme fonction
seulement ça c'est pas dur, le plus compliquer je pense c'est bien d'ouvrir le fichier dans excel fichier qui peut être n'importe koi!
essaye le conteneur OLE activ x qui est avec VB je suppose que VBA doit aussi l'avoir, sinon va sur www.vbfrance.fr
seulement ça c'est pas dur, le plus compliquer je pense c'est bien d'ouvrir le fichier dans excel fichier qui peut être n'importe koi!
essaye le conteneur OLE activ x qui est avec VB je suppose que VBA doit aussi l'avoir, sinon va sur www.vbfrance.fr
Ok
et en ce qui concerne les petites procédures, quelles sont ces procédures que je peux appliquer.
avec Shell, j'ai des pb à cause de certains fichiers qui ont un espace dans le nom.
et en ce qui concerne les petites procédures, quelles sont ces procédures que je peux appliquer.
avec Shell, j'ai des pb à cause de certains fichiers qui ont un espace dans le nom.
;-)
Shell, tu l'utilise quand tu veux lancer une appli... Là, tu veux ouvrir dans Excel ? Le plus simple, dans ce cas, et si tu as des fichiers test (style 1 txt, 1 csv...), tu utilise l'enregistrement automatique... ensuite, dans l'éditeur, tu changes le nom et tu passes le nom du fichier en variable... Ca te permet d'appeler la procédure en balancant le nom du fichier...
;-)
Shell, tu l'utilise quand tu veux lancer une appli... Là, tu veux ouvrir dans Excel ? Le plus simple, dans ce cas, et si tu as des fichiers test (style 1 txt, 1 csv...), tu utilise l'enregistrement automatique... ensuite, dans l'éditeur, tu changes le nom et tu passes le nom du fichier en variable... Ca te permet d'appeler la procédure en balancant le nom du fichier...
;-)
;-)
Tu testes l'extension du fichier... Si c'est PDF, tu fais ton shell avec Acrobat, sinon, ton shell avec l'explorateur...
;-)
Tu testes l'extension du fichier... Si c'est PDF, tu fais ton shell avec Acrobat, sinon, ton shell avec l'explorateur...
;-)
bonjour a tous,,
je m'appelle cesar et je suis en train de developper une application visual basic où à l'enregistrement des données sur un formulaire de l'appication je dois visionner ces données sur une page excel. je souhaite recevoir recevoir de l'aide de toute personne pouvant me dire comment relier une application vb à excel. merci d'avance.
je m'appelle cesar et je suis en train de developper une application visual basic où à l'enregistrement des données sur un formulaire de l'appication je dois visionner ces données sur une page excel. je souhaite recevoir recevoir de l'aide de toute personne pouvant me dire comment relier une application vb à excel. merci d'avance.
je ne veux pas "ouvrir dans Excel" mais "à partir d'Excel, ouvrir les fichier dans le programme adéquat"
c'est à dire que dans mon fichier Excel de base, je récupère le numéro de la question (je traite des questions et leurs réponses), puis automatiquement, le fichier de la réponse s'ouvre. ce fichier est indiférement un rtf, doc, pdf, jpg, jpeg, tif, tiff, bmp, xls.
Merci pour vos réponses, on y arrivera
c'est à dire que dans mon fichier Excel de base, je récupère le numéro de la question (je traite des questions et leurs réponses), puis automatiquement, le fichier de la réponse s'ouvre. ce fichier est indiférement un rtf, doc, pdf, jpg, jpeg, tif, tiff, bmp, xls.
Merci pour vos réponses, on y arrivera
;-) Ha, oké !! ;-)
Dans ce cas, il faut avoir les bibliothèques d'objets ouvertes...
Chaque appli dispose de ses biblio, tu rajoutes les biblio pour lire les jpg (cela dépend de tes softs) et autres...
Ensuite, dans le code, tu fais des "createobject" ou des "dim as xxx.application", et ça se pilote comme Access, par exemple....
Je n'ai pas essayé avec des appli traitant des jpg, mais surtout Access et les applis office, en fait, et ça se pilote comme ça (au plus simple) :
-Après avoir rajouté les bibliothèques d'objets-
Dim AppAccess As New Access.Application (au moment où tu tapes l'espace après New, tu as la liste de tout ce qu'il y a en ligne, ton appli s'y trouvera)
Ensuite, tu utilises cette variable objet comme tu veux (dont les propriétés, méthodes, etc...) style AppAccess.OpenDatabase xxx
Tu vois le principe...
;-)
Dans ce cas, il faut avoir les bibliothèques d'objets ouvertes...
Chaque appli dispose de ses biblio, tu rajoutes les biblio pour lire les jpg (cela dépend de tes softs) et autres...
Ensuite, dans le code, tu fais des "createobject" ou des "dim as xxx.application", et ça se pilote comme Access, par exemple....
Je n'ai pas essayé avec des appli traitant des jpg, mais surtout Access et les applis office, en fait, et ça se pilote comme ça (au plus simple) :
-Après avoir rajouté les bibliothèques d'objets-
Dim AppAccess As New Access.Application (au moment où tu tapes l'espace après New, tu as la liste de tout ce qu'il y a en ligne, ton appli s'y trouvera)
Ensuite, tu utilises cette variable objet comme tu veux (dont les propriétés, méthodes, etc...) style AppAccess.OpenDatabase xxx
Tu vois le principe...
;-)
Re!
Tu definis la valeur de ta cellule comme une variable et tu l'insere dans le sub
apres je ne sais pas dans quel cas tu veux ouvrir le fichier
Exemple
Sub test()
Dim NomFichier As Variant
Range("b2").Select
If ActiveCell <> "" Then
NomFichier = ActiveCell.Value
Call open_help(NomFichier)
Else
Exit Sub
End If
End Sub
Sub open_help(NomFichier As Variant)
ThisWorkbook.FollowHyperlink "blablabla" + NomFichier + "bla.pdf"
End Sub
Dans ton hyperlink tu peux mettre des parties fixes en les mettant entre guillemets et des parties variables (que tu as définit au préalable via des procédés divers et variés) tout doit bien entendu etre compilé avec des +.
Exemple:
'numLigne ou se trouve le curseur
FICnl = Left(ActiveCell.Row, 10)
ThisWorkbook.FollowHyperlink "bla" + Value1 + FICnl + "blabla" + NomFichier + "bla" + ValueZ + ".pdf"
A+
Tu definis la valeur de ta cellule comme une variable et tu l'insere dans le sub
apres je ne sais pas dans quel cas tu veux ouvrir le fichier
Exemple
Sub test()
Dim NomFichier As Variant
Range("b2").Select
If ActiveCell <> "" Then
NomFichier = ActiveCell.Value
Call open_help(NomFichier)
Else
Exit Sub
End If
End Sub
Sub open_help(NomFichier As Variant)
ThisWorkbook.FollowHyperlink "blablabla" + NomFichier + "bla.pdf"
End Sub
Dans ton hyperlink tu peux mettre des parties fixes en les mettant entre guillemets et des parties variables (que tu as définit au préalable via des procédés divers et variés) tout doit bien entendu etre compilé avec des +.
Exemple:
'numLigne ou se trouve le curseur
FICnl = Left(ActiveCell.Row, 10)
ThisWorkbook.FollowHyperlink "bla" + Value1 + FICnl + "blabla" + NomFichier + "bla" + ValueZ + ".pdf"
A+
Est-ce possible?
si j'ai mon nom de fichier en variable ça ne marche pas, pouquoi?
MaDate=right(date,4)
MomFichier= "Nom du fichier" & MaDate & ".pdf"
Shell (Chemin d'acrobat reader & " " & chemin du fichier" & MonFichier)
Shell (Chemin d'acrobat reader & " " & chemin du fichier" & MonFichier), 1