Voici un fichier exemple : http://cjoint.com/?edxdIgA1kw
Avant de l'exécuter prend le temps de lire le code du formulaire
et y apporter la correction en ce qui concerne la valeur des variables.
Le code du formulaire :
'--------------------------------------------------
Private Sub CommandButton1_Click()
'Ouvrir les fichiers excel
Dim Chemin As String, Fichier As String
Chemin = "C:UsersDMDocuments"
Fichier = Me.ComboBox1
If Fichier <> "" Then
Workbooks.Open Chemin & Fichier
End If
End Sub
'--------------------------------------------------
Private Sub CommandButton3_Click()
'pour ouvrir un fichier PDF
'A ) d'abord tu dois trouver le chemin de
'l'exécutable pour un fichier Pdf
'Exemple :
Dim CheminExecutable As String
Dim Chemin As String
Dim Fichier
CheminExecutable = "C:Program FilesAdobeReader 9.0ReaderAcroRd32.e xe"
Chemin = "C:UsersDMDocuments"
Fichier = Me.ComboBox2
If Fichier <> "" Then
Shell CheminExecutable & " " & Chemin & Fichier, vbMaximizedFocus
End If
End Sub
'Pour exécuter un fichier Word, c'est le même principe qu'un fichier pdf
'c'est seulement le chemin de l'exécutable qui est différent.
'--------------------------------------------------
Private Sub UserForm_Initialize()
Dim Chemin As String
Dim Fichier As String
'Indique où sont les fichiers sur le disque dur
Chemin = "C:UsersDMDocuments"
'Pour les fichiers Excel ayant une extension .xls
Fichier = Dir(Chemin & "*.xls")
Do While Fichier <> ""
Me.ComboBox1.AddItem Fichier
Fichier = Dir()
Loop
'Pour les fichiers Word
Chemin = "C:UsersDMDocuments"
Fichier = Dir(Chemin & "*.pdf")
Do While Fichier <> ""
Me.ComboBox2.AddItem Fichier
Fichier = Dir()
Loop
End Sub
'--------------------------------------------------
a écrit dans le message de groupe de discussion :
bonsoir a tous
pouvez vous m'aider
j'ai 1dossier compose de feuille excel,de feuille wold et de fichier
j'ai cree une feuille excel sur laquelle j'ai insere un userform sur
lequel il ya trois boutons
je souhaiterai que chacun des boutons m'ouvre une liste box dans
l'userform (
chacune de ces listbox serait alimentees d par le nom de mes
differentes feuilles (excel,word,ou pdf,media)
et que je puisse ouvrir ces feuilles en cliquant sur leur nom dans la
liste box
aujoudhui je ne sais pas alimenter ces listbox et encore moins ouvrir
une feuille a partir d'une listbox
merci de votre aide
Voici un fichier exemple : http://cjoint.com/?edxdIgA1kw
Avant de l'exécuter prend le temps de lire le code du formulaire
et y apporter la correction en ce qui concerne la valeur des variables.
Le code du formulaire :
'--------------------------------------------------
Private Sub CommandButton1_Click()
'Ouvrir les fichiers excel
Dim Chemin As String, Fichier As String
Chemin = "C:UsersDMDocuments"
Fichier = Me.ComboBox1
If Fichier <> "" Then
Workbooks.Open Chemin & Fichier
End If
End Sub
'--------------------------------------------------
Private Sub CommandButton3_Click()
'pour ouvrir un fichier PDF
'A ) d'abord tu dois trouver le chemin de
'l'exécutable pour un fichier Pdf
'Exemple :
Dim CheminExecutable As String
Dim Chemin As String
Dim Fichier
CheminExecutable = "C:Program FilesAdobeReader 9.0ReaderAcroRd32.e xe"
Chemin = "C:UsersDMDocuments"
Fichier = Me.ComboBox2
If Fichier <> "" Then
Shell CheminExecutable & " " & Chemin & Fichier, vbMaximizedFocus
End If
End Sub
'Pour exécuter un fichier Word, c'est le même principe qu'un fichier pdf
'c'est seulement le chemin de l'exécutable qui est différent.
'--------------------------------------------------
Private Sub UserForm_Initialize()
Dim Chemin As String
Dim Fichier As String
'Indique où sont les fichiers sur le disque dur
Chemin = "C:UsersDMDocuments"
'Pour les fichiers Excel ayant une extension .xls
Fichier = Dir(Chemin & "*.xls")
Do While Fichier <> ""
Me.ComboBox1.AddItem Fichier
Fichier = Dir()
Loop
'Pour les fichiers Word
Chemin = "C:UsersDMDocuments"
Fichier = Dir(Chemin & "*.pdf")
Do While Fichier <> ""
Me.ComboBox2.AddItem Fichier
Fichier = Dir()
Loop
End Sub
'--------------------------------------------------
<srog...@free.fr> a écrit dans le message de groupe de discussion :
3564b6ec-e2e5-4e83-8228-b88f8366f...@f37g2000vbf.googlegroups.com...
bonsoir a tous
pouvez vous m'aider
j'ai 1dossier compose de feuille excel,de feuille wold et de fichier
j'ai cree une feuille excel sur laquelle j'ai insere un userform sur
lequel il ya trois boutons
je souhaiterai que chacun des boutons m'ouvre une liste box dans
l'userform (
chacune de ces listbox serait alimentees d par le nom de mes
differentes feuilles (excel,word,ou pdf,media)
et que je puisse ouvrir ces feuilles en cliquant sur leur nom dans la
liste box
aujoudhui je ne sais pas alimenter ces listbox et encore moins ouvrir
une feuille a partir d'une listbox
merci de votre aide
Voici un fichier exemple : http://cjoint.com/?edxdIgA1kw
Avant de l'exécuter prend le temps de lire le code du formulaire
et y apporter la correction en ce qui concerne la valeur des variables.
Le code du formulaire :
'--------------------------------------------------
Private Sub CommandButton1_Click()
'Ouvrir les fichiers excel
Dim Chemin As String, Fichier As String
Chemin = "C:UsersDMDocuments"
Fichier = Me.ComboBox1
If Fichier <> "" Then
Workbooks.Open Chemin & Fichier
End If
End Sub
'--------------------------------------------------
Private Sub CommandButton3_Click()
'pour ouvrir un fichier PDF
'A ) d'abord tu dois trouver le chemin de
'l'exécutable pour un fichier Pdf
'Exemple :
Dim CheminExecutable As String
Dim Chemin As String
Dim Fichier
CheminExecutable = "C:Program FilesAdobeReader 9.0ReaderAcroRd32.e xe"
Chemin = "C:UsersDMDocuments"
Fichier = Me.ComboBox2
If Fichier <> "" Then
Shell CheminExecutable & " " & Chemin & Fichier, vbMaximizedFocus
End If
End Sub
'Pour exécuter un fichier Word, c'est le même principe qu'un fichier pdf
'c'est seulement le chemin de l'exécutable qui est différent.
'--------------------------------------------------
Private Sub UserForm_Initialize()
Dim Chemin As String
Dim Fichier As String
'Indique où sont les fichiers sur le disque dur
Chemin = "C:UsersDMDocuments"
'Pour les fichiers Excel ayant une extension .xls
Fichier = Dir(Chemin & "*.xls")
Do While Fichier <> ""
Me.ComboBox1.AddItem Fichier
Fichier = Dir()
Loop
'Pour les fichiers Word
Chemin = "C:UsersDMDocuments"
Fichier = Dir(Chemin & "*.pdf")
Do While Fichier <> ""
Me.ComboBox2.AddItem Fichier
Fichier = Dir()
Loop
End Sub
'--------------------------------------------------
a écrit dans le message de groupe de discussion :
bonsoir a tous
pouvez vous m'aider
j'ai 1dossier compose de feuille excel,de feuille wold et de fichier
j'ai cree une feuille excel sur laquelle j'ai insere un userform sur
lequel il ya trois boutons
je souhaiterai que chacun des boutons m'ouvre une liste box dans
l'userform (
chacune de ces listbox serait alimentees d par le nom de mes
differentes feuilles (excel,word,ou pdf,media)
et que je puisse ouvrir ces feuilles en cliquant sur leur nom dans la
liste box
aujoudhui je ne sais pas alimenter ces listbox et encore moins ouvrir
une feuille a partir d'une listbox
merci de votre aide
Voici un fichier exemple : http://cjoint.com/?edxdIgA1kw
Avant de l'exécuter prend le temps de lire le code du formulaire
et y apporter la correction en ce qui concerne la valeur des variables.
Le code du formulaire :
'--------------------------------------------------
Private Sub CommandButton1_Click()
'Ouvrir les fichiers excel
Dim Chemin As String, Fichier As String
Chemin = "C:UsersDMDocuments"
Fichier = Me.ComboBox1
If Fichier <> "" Then
Workbooks.Open Chemin & Fichier
End If
End Sub
'--------------------------------------------------
Private Sub CommandButton3_Click()
'pour ouvrir un fichier PDF
'A ) d'abord tu dois trouver le chemin de
'l'exécutable pour un fichier Pdf
'Exemple :
Dim CheminExecutable As String
Dim Chemin As String
Dim Fichier
CheminExecutable = "C:Program FilesAdobeReader 9.0ReaderAcroRd32.exe"
Chemin = "C:UsersDMDocuments"
Fichier = Me.ComboBox2
If Fichier <> "" Then
Shell CheminExecutable & " " & Chemin & Fichier, vbMaximizedFocus
End If
End Sub
'Pour exécuter un fichier Word, c'est le même principe qu'un fichier pdf
'c'est seulement le chemin de l'exécutable qui est différent.
'--------------------------------------------------
Private Sub UserForm_Initialize()
Dim Chemin As String
Dim Fichier As String
'Indique où sont les fichiers sur le disque dur
Chemin = "C:UsersDMDocuments"
'Pour les fichiers Excel ayant une extension .xls
Fichier = Dir(Chemin & "*.xls")
Do While Fichier <> ""
Me.ComboBox1.AddItem Fichier
Fichier = Dir()
Loop
'Pour les fichiers Word
Chemin = "C:UsersDMDocuments"
Fichier = Dir(Chemin & "*.pdf")
Do While Fichier <> ""
Me.ComboBox2.AddItem Fichier
Fichier = Dir()
Loop
End Sub
'--------------------------------------------------
a écrit dans le message de groupe de discussion :
bonsoir a tous
pouvez vous m'aider
j'ai 1dossier compose de feuille excel,de feuille wold et de fichier
j'ai cree une feuille excel sur laquelle j'ai insere un userform sur
lequel il ya trois boutons
je souhaiterai que chacun des boutons m'ouvre une liste box dans
l'userform (
chacune de ces listbox serait alimentees d par le nom de mes
differentes feuilles (excel,word,ou pdf,media)
et que je puisse ouvrir ces feuilles en cliquant sur leur nom dans la
liste box
aujoudhui je ne sais pas alimenter ces listbox et encore moins ouvrir
une feuille a partir d'une listbox
merci de votre aide
Voici un fichier exemple : http://cjoint.com/?edxdIgA1kw
Avant de l'exécuter prend le temps de lire le code du formulaire
et y apporter la correction en ce qui concerne la valeur des variables.
Le code du formulaire :
'--------------------------------------------------
Private Sub CommandButton1_Click()
'Ouvrir les fichiers excel
Dim Chemin As String, Fichier As String
Chemin = "C:UsersDMDocuments"
Fichier = Me.ComboBox1
If Fichier <> "" Then
Workbooks.Open Chemin & Fichier
End If
End Sub
'--------------------------------------------------
Private Sub CommandButton3_Click()
'pour ouvrir un fichier PDF
'A ) d'abord tu dois trouver le chemin de
'l'exécutable pour un fichier Pdf
'Exemple :
Dim CheminExecutable As String
Dim Chemin As String
Dim Fichier
CheminExecutable = "C:Program FilesAdobeReader 9.0ReaderAcroRd32.exe"
Chemin = "C:UsersDMDocuments"
Fichier = Me.ComboBox2
If Fichier <> "" Then
Shell CheminExecutable & " " & Chemin & Fichier, vbMaximizedFocus
End If
End Sub
'Pour exécuter un fichier Word, c'est le même principe qu'un fichier pdf
'c'est seulement le chemin de l'exécutable qui est différent.
'--------------------------------------------------
Private Sub UserForm_Initialize()
Dim Chemin As String
Dim Fichier As String
'Indique où sont les fichiers sur le disque dur
Chemin = "C:UsersDMDocuments"
'Pour les fichiers Excel ayant une extension .xls
Fichier = Dir(Chemin & "*.xls")
Do While Fichier <> ""
Me.ComboBox1.AddItem Fichier
Fichier = Dir()
Loop
'Pour les fichiers Word
Chemin = "C:UsersDMDocuments"
Fichier = Dir(Chemin & "*.pdf")
Do While Fichier <> ""
Me.ComboBox2.AddItem Fichier
Fichier = Dir()
Loop
End Sub
'--------------------------------------------------
<srog...@free.fr> a écrit dans le message de groupe de discussion :
3564b6ec-e2e5-4e83-8228-b88f8366f...@f37g2000vbf.googlegroups.com...
bonsoir a tous
pouvez vous m'aider
j'ai 1dossier compose de feuille excel,de feuille wold et de fichier
j'ai cree une feuille excel sur laquelle j'ai insere un userform sur
lequel il ya trois boutons
je souhaiterai que chacun des boutons m'ouvre une liste box dans
l'userform (
chacune de ces listbox serait alimentees d par le nom de mes
differentes feuilles (excel,word,ou pdf,media)
et que je puisse ouvrir ces feuilles en cliquant sur leur nom dans la
liste box
aujoudhui je ne sais pas alimenter ces listbox et encore moins ouvrir
une feuille a partir d'une listbox
merci de votre aide
Voici un fichier exemple : http://cjoint.com/?edxdIgA1kw
Avant de l'exécuter prend le temps de lire le code du formulaire
et y apporter la correction en ce qui concerne la valeur des variables.
Le code du formulaire :
'--------------------------------------------------
Private Sub CommandButton1_Click()
'Ouvrir les fichiers excel
Dim Chemin As String, Fichier As String
Chemin = "C:UsersDMDocuments"
Fichier = Me.ComboBox1
If Fichier <> "" Then
Workbooks.Open Chemin & Fichier
End If
End Sub
'--------------------------------------------------
Private Sub CommandButton3_Click()
'pour ouvrir un fichier PDF
'A ) d'abord tu dois trouver le chemin de
'l'exécutable pour un fichier Pdf
'Exemple :
Dim CheminExecutable As String
Dim Chemin As String
Dim Fichier
CheminExecutable = "C:Program FilesAdobeReader 9.0ReaderAcroRd32.exe"
Chemin = "C:UsersDMDocuments"
Fichier = Me.ComboBox2
If Fichier <> "" Then
Shell CheminExecutable & " " & Chemin & Fichier, vbMaximizedFocus
End If
End Sub
'Pour exécuter un fichier Word, c'est le même principe qu'un fichier pdf
'c'est seulement le chemin de l'exécutable qui est différent.
'--------------------------------------------------
Private Sub UserForm_Initialize()
Dim Chemin As String
Dim Fichier As String
'Indique où sont les fichiers sur le disque dur
Chemin = "C:UsersDMDocuments"
'Pour les fichiers Excel ayant une extension .xls
Fichier = Dir(Chemin & "*.xls")
Do While Fichier <> ""
Me.ComboBox1.AddItem Fichier
Fichier = Dir()
Loop
'Pour les fichiers Word
Chemin = "C:UsersDMDocuments"
Fichier = Dir(Chemin & "*.pdf")
Do While Fichier <> ""
Me.ComboBox2.AddItem Fichier
Fichier = Dir()
Loop
End Sub
'--------------------------------------------------
a écrit dans le message de groupe de discussion :
bonsoir a tous
pouvez vous m'aider
j'ai 1dossier compose de feuille excel,de feuille wold et de fichier
j'ai cree une feuille excel sur laquelle j'ai insere un userform sur
lequel il ya trois boutons
je souhaiterai que chacun des boutons m'ouvre une liste box dans
l'userform (
chacune de ces listbox serait alimentees d par le nom de mes
differentes feuilles (excel,word,ou pdf,media)
et que je puisse ouvrir ces feuilles en cliquant sur leur nom dans la
liste box
aujoudhui je ne sais pas alimenter ces listbox et encore moins ouvrir
une feuille a partir d'une listbox
merci de votre aide
Si tu as une listbox, la procédure pourrait ressembler à ceci :
(ce n'est qu'un exemple, tu dois adapter les chemins selon ton applicatio n)
Si tu désirais ouvrir aussi les fichiers excel ou word 2007, faudrait q ue
tu ajoutes les extensions de fichiers de cette version d'office et il fau drait
que tu n'oublies pas d'adapter le chemin de l'exécutable.
'-----------------------------------------------------
Private Sub ListBox1_Click()
Dim CheminExecutable As String
Dim Chemin As String
Dim Fichier As String
Dim Extension As String
With Me.ListBox1
'extrait de la liste, le nom du fichier
Fichier = Trim(.List(.ListIndex))
'Extrait l'extension du nom du fichier
'InStrRev requiert excel 2000 ou plus récent
Extension = Mid(Fichier, InStrRev(Fichier, "."), 5)
End With
Select Case LCase(Extension)
'Pour les fichiers excel, lister toutes les extensions
'que tu veux ouvrir
Case Is = "xls", "xla", "xlb" 'et autres
Workbooks.Open Chemin & Fichier
Case Is = ".Doc", ".Dot"
'où est l'exécutable pour ouvrir le fichier
CheminExecutable = "C:Program FilesMicrosoft OfficeO FFICE11Winword.exe"
'où est le fichier à ouvrir
Chemin = "C:UsersDMDocuments"
Shell CheminExecutable & " " & Chemin & Fichier, vbMaximi zedFocus
Case Is = "pdf"
'où est l'exécutable pour ouvrir le fichier
CheminExecutable = "C:Program FilesAdobeReader 9.0R eaderAcroRd32.exe"
'où est le fichier à ouvrir
Chemin = "C:UsersDMDocuments"
Shell CheminExecutable & " " & Chemin & Fichier, vbMaximi zedFocus
End Select
End Sub
'-----------------------------------------------------
a écrit dans le message de groupe de discussion :
On 1 avr, 23:04, "MichDenis" wrote:
> Voici un fichier exemple : http://cjoint.com/?edxdIgA1kw
> Avant de l'exécuter prend le temps de lire le code du formulaire
> et y apporter la correction en ce qui concerne la valeur des variables.
> Le code du formulaire :
> '--------------------------------------------------
> Private Sub CommandButton1_Click()
> 'Ouvrir les fichiers excel
> Dim Chemin As String, Fichier As String
> Chemin = "C:UsersDMDocuments"
> Fichier = Me.ComboBox1
> If Fichier <> "" Then
> Workbooks.Open Chemin & Fichier
> End If
> End Sub
> '--------------------------------------------------
> Private Sub CommandButton3_Click()
> 'pour ouvrir un fichier PDF
> 'A ) d'abord tu dois trouver le chemin de
> 'l'exécutable pour un fichier Pdf
> 'Exemple :
> Dim CheminExecutable As String
> Dim Chemin As String
> Dim Fichier
> CheminExecutable = "C:Program FilesAdobeReader 9.0ReaderAcroRd32 .exe"
> Chemin = "C:UsersDMDocuments"
> Fichier = Me.ComboBox2
> If Fichier <> "" Then
> Shell CheminExecutable & " " & Chemin & Fichier, vbMaximizedFoc us
> End If
> End Sub
> 'Pour exécuter un fichier Word, c'est le même principe qu'un fichie r pdf
> 'c'est seulement le chemin de l'exécutable qui est différent.
> '--------------------------------------------------
> Private Sub UserForm_Initialize()
> Dim Chemin As String
> Dim Fichier As String
> 'Indique où sont les fichiers sur le disque dur
> Chemin = "C:UsersDMDocuments"
> 'Pour les fichiers Excel ayant une extension .xls
> Fichier = Dir(Chemin & "*.xls")
> Do While Fichier <> ""
> Me.ComboBox1.AddItem Fichier
> Fichier = Dir()
> Loop
> 'Pour les fichiers Word
> Chemin = "C:UsersDMDocuments"
> Fichier = Dir(Chemin & "*.pdf")
> Do While Fichier <> ""
> Me.ComboBox2.AddItem Fichier
> Fichier = Dir()
> Loop
> End Sub
> '--------------------------------------------------
> a écrit dans le message de groupe de discussion :
>
> bonsoir a tous
> pouvez vous m'aider
> j'ai 1dossier compose de feuille excel,de feuille wold et de fichier
> j'ai cree une feuille excel sur laquelle j'ai insere un userform sur
> lequel il ya trois boutons
> je souhaiterai que chacun des boutons m'ouvre une liste box dans
> l'userform (
> chacune de ces listbox serait alimentees d par le nom de mes
> differentes feuilles (excel,word,ou pdf,media)
> et que je puisse ouvrir ces feuilles en cliquant sur leur nom dans la
> liste box
> aujoudhui je ne sais pas alimenter ces listbox et encore moins ouvrir
> une feuille a partir d'une listbox
> merci de votre aide
MERCI DE VOTRE AIDE
la presentation est differente de celle que vous propose dans votre
exemple
ici avec chacun de mes 3 boutons 1 je dois ouvrir des pdf,des xls o u
des word
dans mon classeur j'ai une feuille et dans 3 colonnes j'ai lister
chacun des fichiers qui doivent etre ouvert par bouton
maintenant si je clic sur le bouton 1de l'userform,il m'ouvre une
listbox dans laquelle sont inscrit la liste des fichiers(aussi bien
xls,pdf ou word)lui etant dedie
et je voudrais pouvoir ouvrir ces fichier en clicquant depuis la liste
box
je peux vous envoyer mon document pour que ce soit plus clair si vous
voulez
en vous remerciant
Si tu as une listbox, la procédure pourrait ressembler à ceci :
(ce n'est qu'un exemple, tu dois adapter les chemins selon ton applicatio n)
Si tu désirais ouvrir aussi les fichiers excel ou word 2007, faudrait q ue
tu ajoutes les extensions de fichiers de cette version d'office et il fau drait
que tu n'oublies pas d'adapter le chemin de l'exécutable.
'-----------------------------------------------------
Private Sub ListBox1_Click()
Dim CheminExecutable As String
Dim Chemin As String
Dim Fichier As String
Dim Extension As String
With Me.ListBox1
'extrait de la liste, le nom du fichier
Fichier = Trim(.List(.ListIndex))
'Extrait l'extension du nom du fichier
'InStrRev requiert excel 2000 ou plus récent
Extension = Mid(Fichier, InStrRev(Fichier, "."), 5)
End With
Select Case LCase(Extension)
'Pour les fichiers excel, lister toutes les extensions
'que tu veux ouvrir
Case Is = "xls", "xla", "xlb" 'et autres
Workbooks.Open Chemin & Fichier
Case Is = ".Doc", ".Dot"
'où est l'exécutable pour ouvrir le fichier
CheminExecutable = "C:Program FilesMicrosoft OfficeO FFICE11Winword.exe"
'où est le fichier à ouvrir
Chemin = "C:UsersDMDocuments"
Shell CheminExecutable & " " & Chemin & Fichier, vbMaximi zedFocus
Case Is = "pdf"
'où est l'exécutable pour ouvrir le fichier
CheminExecutable = "C:Program FilesAdobeReader 9.0R eaderAcroRd32.exe"
'où est le fichier à ouvrir
Chemin = "C:UsersDMDocuments"
Shell CheminExecutable & " " & Chemin & Fichier, vbMaximi zedFocus
End Select
End Sub
'-----------------------------------------------------
<srog...@free.fr> a écrit dans le message de groupe de discussion :
842db524-e0a9-4080-a93a-19c558c69...@l13g2000vba.googlegroups.com...
On 1 avr, 23:04, "MichDenis" <michde...@hotmail.com> wrote:
> Voici un fichier exemple : http://cjoint.com/?edxdIgA1kw
> Avant de l'exécuter prend le temps de lire le code du formulaire
> et y apporter la correction en ce qui concerne la valeur des variables.
> Le code du formulaire :
> '--------------------------------------------------
> Private Sub CommandButton1_Click()
> 'Ouvrir les fichiers excel
> Dim Chemin As String, Fichier As String
> Chemin = "C:UsersDMDocuments"
> Fichier = Me.ComboBox1
> If Fichier <> "" Then
> Workbooks.Open Chemin & Fichier
> End If
> End Sub
> '--------------------------------------------------
> Private Sub CommandButton3_Click()
> 'pour ouvrir un fichier PDF
> 'A ) d'abord tu dois trouver le chemin de
> 'l'exécutable pour un fichier Pdf
> 'Exemple :
> Dim CheminExecutable As String
> Dim Chemin As String
> Dim Fichier
> CheminExecutable = "C:Program FilesAdobeReader 9.0ReaderAcroRd32 .exe"
> Chemin = "C:UsersDMDocuments"
> Fichier = Me.ComboBox2
> If Fichier <> "" Then
> Shell CheminExecutable & " " & Chemin & Fichier, vbMaximizedFoc us
> End If
> End Sub
> 'Pour exécuter un fichier Word, c'est le même principe qu'un fichie r pdf
> 'c'est seulement le chemin de l'exécutable qui est différent.
> '--------------------------------------------------
> Private Sub UserForm_Initialize()
> Dim Chemin As String
> Dim Fichier As String
> 'Indique où sont les fichiers sur le disque dur
> Chemin = "C:UsersDMDocuments"
> 'Pour les fichiers Excel ayant une extension .xls
> Fichier = Dir(Chemin & "*.xls")
> Do While Fichier <> ""
> Me.ComboBox1.AddItem Fichier
> Fichier = Dir()
> Loop
> 'Pour les fichiers Word
> Chemin = "C:UsersDMDocuments"
> Fichier = Dir(Chemin & "*.pdf")
> Do While Fichier <> ""
> Me.ComboBox2.AddItem Fichier
> Fichier = Dir()
> Loop
> End Sub
> '--------------------------------------------------
> <srog...@free.fr> a écrit dans le message de groupe de discussion :
> 3564b6ec-e2e5-4e83-8228-b88f8366f...@f37g2000vbf.googlegroups.com...
> bonsoir a tous
> pouvez vous m'aider
> j'ai 1dossier compose de feuille excel,de feuille wold et de fichier
> j'ai cree une feuille excel sur laquelle j'ai insere un userform sur
> lequel il ya trois boutons
> je souhaiterai que chacun des boutons m'ouvre une liste box dans
> l'userform (
> chacune de ces listbox serait alimentees d par le nom de mes
> differentes feuilles (excel,word,ou pdf,media)
> et que je puisse ouvrir ces feuilles en cliquant sur leur nom dans la
> liste box
> aujoudhui je ne sais pas alimenter ces listbox et encore moins ouvrir
> une feuille a partir d'une listbox
> merci de votre aide
MERCI DE VOTRE AIDE
la presentation est differente de celle que vous propose dans votre
exemple
ici avec chacun de mes 3 boutons 1 je dois ouvrir des pdf,des xls o u
des word
dans mon classeur j'ai une feuille et dans 3 colonnes j'ai lister
chacun des fichiers qui doivent etre ouvert par bouton
maintenant si je clic sur le bouton 1de l'userform,il m'ouvre une
listbox dans laquelle sont inscrit la liste des fichiers(aussi bien
xls,pdf ou word)lui etant dedie
et je voudrais pouvoir ouvrir ces fichier en clicquant depuis la liste
box
je peux vous envoyer mon document pour que ce soit plus clair si vous
voulez
en vous remerciant
Si tu as une listbox, la procédure pourrait ressembler à ceci :
(ce n'est qu'un exemple, tu dois adapter les chemins selon ton applicatio n)
Si tu désirais ouvrir aussi les fichiers excel ou word 2007, faudrait q ue
tu ajoutes les extensions de fichiers de cette version d'office et il fau drait
que tu n'oublies pas d'adapter le chemin de l'exécutable.
'-----------------------------------------------------
Private Sub ListBox1_Click()
Dim CheminExecutable As String
Dim Chemin As String
Dim Fichier As String
Dim Extension As String
With Me.ListBox1
'extrait de la liste, le nom du fichier
Fichier = Trim(.List(.ListIndex))
'Extrait l'extension du nom du fichier
'InStrRev requiert excel 2000 ou plus récent
Extension = Mid(Fichier, InStrRev(Fichier, "."), 5)
End With
Select Case LCase(Extension)
'Pour les fichiers excel, lister toutes les extensions
'que tu veux ouvrir
Case Is = "xls", "xla", "xlb" 'et autres
Workbooks.Open Chemin & Fichier
Case Is = ".Doc", ".Dot"
'où est l'exécutable pour ouvrir le fichier
CheminExecutable = "C:Program FilesMicrosoft OfficeO FFICE11Winword.exe"
'où est le fichier à ouvrir
Chemin = "C:UsersDMDocuments"
Shell CheminExecutable & " " & Chemin & Fichier, vbMaximi zedFocus
Case Is = "pdf"
'où est l'exécutable pour ouvrir le fichier
CheminExecutable = "C:Program FilesAdobeReader 9.0R eaderAcroRd32.exe"
'où est le fichier à ouvrir
Chemin = "C:UsersDMDocuments"
Shell CheminExecutable & " " & Chemin & Fichier, vbMaximi zedFocus
End Select
End Sub
'-----------------------------------------------------
a écrit dans le message de groupe de discussion :
On 1 avr, 23:04, "MichDenis" wrote:
> Voici un fichier exemple : http://cjoint.com/?edxdIgA1kw
> Avant de l'exécuter prend le temps de lire le code du formulaire
> et y apporter la correction en ce qui concerne la valeur des variables.
> Le code du formulaire :
> '--------------------------------------------------
> Private Sub CommandButton1_Click()
> 'Ouvrir les fichiers excel
> Dim Chemin As String, Fichier As String
> Chemin = "C:UsersDMDocuments"
> Fichier = Me.ComboBox1
> If Fichier <> "" Then
> Workbooks.Open Chemin & Fichier
> End If
> End Sub
> '--------------------------------------------------
> Private Sub CommandButton3_Click()
> 'pour ouvrir un fichier PDF
> 'A ) d'abord tu dois trouver le chemin de
> 'l'exécutable pour un fichier Pdf
> 'Exemple :
> Dim CheminExecutable As String
> Dim Chemin As String
> Dim Fichier
> CheminExecutable = "C:Program FilesAdobeReader 9.0ReaderAcroRd32 .exe"
> Chemin = "C:UsersDMDocuments"
> Fichier = Me.ComboBox2
> If Fichier <> "" Then
> Shell CheminExecutable & " " & Chemin & Fichier, vbMaximizedFoc us
> End If
> End Sub
> 'Pour exécuter un fichier Word, c'est le même principe qu'un fichie r pdf
> 'c'est seulement le chemin de l'exécutable qui est différent.
> '--------------------------------------------------
> Private Sub UserForm_Initialize()
> Dim Chemin As String
> Dim Fichier As String
> 'Indique où sont les fichiers sur le disque dur
> Chemin = "C:UsersDMDocuments"
> 'Pour les fichiers Excel ayant une extension .xls
> Fichier = Dir(Chemin & "*.xls")
> Do While Fichier <> ""
> Me.ComboBox1.AddItem Fichier
> Fichier = Dir()
> Loop
> 'Pour les fichiers Word
> Chemin = "C:UsersDMDocuments"
> Fichier = Dir(Chemin & "*.pdf")
> Do While Fichier <> ""
> Me.ComboBox2.AddItem Fichier
> Fichier = Dir()
> Loop
> End Sub
> '--------------------------------------------------
> a écrit dans le message de groupe de discussion :
>
> bonsoir a tous
> pouvez vous m'aider
> j'ai 1dossier compose de feuille excel,de feuille wold et de fichier
> j'ai cree une feuille excel sur laquelle j'ai insere un userform sur
> lequel il ya trois boutons
> je souhaiterai que chacun des boutons m'ouvre une liste box dans
> l'userform (
> chacune de ces listbox serait alimentees d par le nom de mes
> differentes feuilles (excel,word,ou pdf,media)
> et que je puisse ouvrir ces feuilles en cliquant sur leur nom dans la
> liste box
> aujoudhui je ne sais pas alimenter ces listbox et encore moins ouvrir
> une feuille a partir d'une listbox
> merci de votre aide
MERCI DE VOTRE AIDE
la presentation est differente de celle que vous propose dans votre
exemple
ici avec chacun de mes 3 boutons 1 je dois ouvrir des pdf,des xls o u
des word
dans mon classeur j'ai une feuille et dans 3 colonnes j'ai lister
chacun des fichiers qui doivent etre ouvert par bouton
maintenant si je clic sur le bouton 1de l'userform,il m'ouvre une
listbox dans laquelle sont inscrit la liste des fichiers(aussi bien
xls,pdf ou word)lui etant dedie
et je voudrais pouvoir ouvrir ces fichier en clicquant depuis la liste
box
je peux vous envoyer mon document pour que ce soit plus clair si vous
voulez
en vous remerciant
| mais encore une question sur mon userform j'ai donc les 3
| boutons ,chacun ouvre une listbox (list1,list2,list 3) devant me
| permettre chacune d'ouvrir
| les fichiers (pdff,xls,word)se trouvant tous dans le meme repertoire
| faut il que je note ce code pour chacune des listbox
Je t'ai donné 2 façons de faire selon que tu veux déclencher l'ouve rture
des fichiers avec des boutons de commandes ou en sélectionnant par
un clic directement le fichier dans un contrôle "Listbox". Au delà de ça,
comme c'est toi qui élabore ton application, c'est à toi de choisir q uelle
est la manière la plus appropriée d'obtenir ce que tu désires.
Si tes fichiers émanent du même répertoire, tu n'as qu'à défini r une variable
Chemin... il s'agit d'adapter le code à ta réalité. En même temps , cela te permettra
de comprendre le code plutôt que d'y aller d'un copier-coller.
| mais encore une question sur mon userform j'ai donc les 3
| boutons ,chacun ouvre une listbox (list1,list2,list 3) devant me
| permettre chacune d'ouvrir
| les fichiers (pdff,xls,word)se trouvant tous dans le meme repertoire
| faut il que je note ce code pour chacune des listbox
Je t'ai donné 2 façons de faire selon que tu veux déclencher l'ouve rture
des fichiers avec des boutons de commandes ou en sélectionnant par
un clic directement le fichier dans un contrôle "Listbox". Au delà de ça,
comme c'est toi qui élabore ton application, c'est à toi de choisir q uelle
est la manière la plus appropriée d'obtenir ce que tu désires.
Si tes fichiers émanent du même répertoire, tu n'as qu'à défini r une variable
Chemin... il s'agit d'adapter le code à ta réalité. En même temps , cela te permettra
de comprendre le code plutôt que d'y aller d'un copier-coller.
| mais encore une question sur mon userform j'ai donc les 3
| boutons ,chacun ouvre une listbox (list1,list2,list 3) devant me
| permettre chacune d'ouvrir
| les fichiers (pdff,xls,word)se trouvant tous dans le meme repertoire
| faut il que je note ce code pour chacune des listbox
Je t'ai donné 2 façons de faire selon que tu veux déclencher l'ouve rture
des fichiers avec des boutons de commandes ou en sélectionnant par
un clic directement le fichier dans un contrôle "Listbox". Au delà de ça,
comme c'est toi qui élabore ton application, c'est à toi de choisir q uelle
est la manière la plus appropriée d'obtenir ce que tu désires.
Si tes fichiers émanent du même répertoire, tu n'as qu'à défini r une variable
Chemin... il s'agit d'adapter le code à ta réalité. En même temps , cela te permettra
de comprendre le code plutôt que d'y aller d'un copier-coller.
| mais encore une question sur mon userform j'ai donc les 3
| boutons ,chacun ouvre une listbox (list1,list2,list 3) devant me
| permettre chacune d'ouvrir
| les fichiers (pdff,xls,word)se trouvant tous dans le meme repertoire
| faut il que je note ce code pour chacune des listbox
Je t'ai donné 2 façons de faire selon que tu veux déclencher l'ouverture
des fichiers avec des boutons de commandes ou en sélectionnant par
un clic directement le fichier dans un contrôle "Listbox". Au delà de ça,
comme c'est toi qui élabore ton application, c'est à toi de choisir quelle
est la manière la plus appropriée d'obtenir ce que tu désires.
Si tes fichiers émanent du même répertoire, tu n'as qu'à définir une variable
Chemin... il s'agit d'adapter le code à ta réalité. En même temps, cela te permettra
de comprendre le code plutôt que d'y aller d'un copier-coller.
| mais encore une question sur mon userform j'ai donc les 3
| boutons ,chacun ouvre une listbox (list1,list2,list 3) devant me
| permettre chacune d'ouvrir
| les fichiers (pdff,xls,word)se trouvant tous dans le meme repertoire
| faut il que je note ce code pour chacune des listbox
Je t'ai donné 2 façons de faire selon que tu veux déclencher l'ouverture
des fichiers avec des boutons de commandes ou en sélectionnant par
un clic directement le fichier dans un contrôle "Listbox". Au delà de ça,
comme c'est toi qui élabore ton application, c'est à toi de choisir quelle
est la manière la plus appropriée d'obtenir ce que tu désires.
Si tes fichiers émanent du même répertoire, tu n'as qu'à définir une variable
Chemin... il s'agit d'adapter le code à ta réalité. En même temps, cela te permettra
de comprendre le code plutôt que d'y aller d'un copier-coller.
| mais encore une question sur mon userform j'ai donc les 3
| boutons ,chacun ouvre une listbox (list1,list2,list 3) devant me
| permettre chacune d'ouvrir
| les fichiers (pdff,xls,word)se trouvant tous dans le meme repertoire
| faut il que je note ce code pour chacune des listbox
Je t'ai donné 2 façons de faire selon que tu veux déclencher l'ouverture
des fichiers avec des boutons de commandes ou en sélectionnant par
un clic directement le fichier dans un contrôle "Listbox". Au delà de ça,
comme c'est toi qui élabore ton application, c'est à toi de choisir quelle
est la manière la plus appropriée d'obtenir ce que tu désires.
Si tes fichiers émanent du même répertoire, tu n'as qu'à définir une variable
Chemin... il s'agit d'adapter le code à ta réalité. En même temps, cela te permettra
de comprendre le code plutôt que d'y aller d'un copier-coller.
| Extension = Mid(Fichier,InStrRev(Fichier, "."), 5)
Est-ce que les extensions de fichiers sont affichées dans le listbox ?
Donne un exemple de ce contient ton Listbox ( au moins un élément)
Je te rappelle que tu dois posséder une version excel 2000
ou plus récente pour accéder à la fonction : InstrRev()
a écrit dans le message de groupe de discussion :
On 2 avr, 12:29, "MichDenis" wrote:
> | mais encore une question sur mon userform j'ai donc les 3
> | boutons ,chacun ouvre une listbox (list1,list2,list 3) devant me
> | permettre chacune d'ouvrir
> | les fichiers (pdff,xls,word)se trouvant tous dans le meme repertoire
> | faut il que je note ce code pour chacune des listbox
> Je t'ai donné 2 façons de faire selon que tu veux déclencher l'ou verture
> des fichiers avec des boutons de commandes ou en sélectionnant par
> un clic directement le fichier dans un contrôle "Listbox". Au delà de ça,
> comme c'est toi qui élabore ton application, c'est à toi de choisir quelle
> est la manière la plus appropriée d'obtenir ce que tu désires.
> Si tes fichiers émanent du même répertoire, tu n'as qu'à défi nir une variable
> Chemin... il s'agit d'adapter le code à ta réalité. En même tem ps, cela te permettra
> de comprendre le code plutôt que d'y aller d'un copier-coller.
beaucoup de patience de votre part
dur dur car je ne maitrise pas tout, le code
j'ai adapte le chemin
Chemin = "C:Documents and SettingsUtilisateurMes doc uments
nantes"
le chemin executable est bon
CheminExecutable = "C:Program FilesMicrosoft Office
OFFICE11Winword.exe"
quand je clic sur le nom du fichier dans la liste box j'ai"erreur 5
et cette ligne de code en surbrillance Extension = Mid(F ichier,
InStrRev(Fichier, "."), 5)
la je cale
| Extension = Mid(Fichier,InStrRev(Fichier, "."), 5)
Est-ce que les extensions de fichiers sont affichées dans le listbox ?
Donne un exemple de ce contient ton Listbox ( au moins un élément)
Je te rappelle que tu dois posséder une version excel 2000
ou plus récente pour accéder à la fonction : InstrRev()
<srog...@free.fr> a écrit dans le message de groupe de discussion :
6e735b54-e7d8-427a-a1a6-37fc5330e...@s28g2000vbp.googlegroups.com...
On 2 avr, 12:29, "MichDenis" <michde...@hotmail.com> wrote:
> | mais encore une question sur mon userform j'ai donc les 3
> | boutons ,chacun ouvre une listbox (list1,list2,list 3) devant me
> | permettre chacune d'ouvrir
> | les fichiers (pdff,xls,word)se trouvant tous dans le meme repertoire
> | faut il que je note ce code pour chacune des listbox
> Je t'ai donné 2 façons de faire selon que tu veux déclencher l'ou verture
> des fichiers avec des boutons de commandes ou en sélectionnant par
> un clic directement le fichier dans un contrôle "Listbox". Au delà de ça,
> comme c'est toi qui élabore ton application, c'est à toi de choisir quelle
> est la manière la plus appropriée d'obtenir ce que tu désires.
> Si tes fichiers émanent du même répertoire, tu n'as qu'à défi nir une variable
> Chemin... il s'agit d'adapter le code à ta réalité. En même tem ps, cela te permettra
> de comprendre le code plutôt que d'y aller d'un copier-coller.
beaucoup de patience de votre part
dur dur car je ne maitrise pas tout, le code
j'ai adapte le chemin
Chemin = "C:Documents and SettingsUtilisateurMes doc uments
nantes"
le chemin executable est bon
CheminExecutable = "C:Program FilesMicrosoft Office
OFFICE11Winword.exe"
quand je clic sur le nom du fichier dans la liste box j'ai"erreur 5
et cette ligne de code en surbrillance Extension = Mid(F ichier,
InStrRev(Fichier, "."), 5)
la je cale
| Extension = Mid(Fichier,InStrRev(Fichier, "."), 5)
Est-ce que les extensions de fichiers sont affichées dans le listbox ?
Donne un exemple de ce contient ton Listbox ( au moins un élément)
Je te rappelle que tu dois posséder une version excel 2000
ou plus récente pour accéder à la fonction : InstrRev()
a écrit dans le message de groupe de discussion :
On 2 avr, 12:29, "MichDenis" wrote:
> | mais encore une question sur mon userform j'ai donc les 3
> | boutons ,chacun ouvre une listbox (list1,list2,list 3) devant me
> | permettre chacune d'ouvrir
> | les fichiers (pdff,xls,word)se trouvant tous dans le meme repertoire
> | faut il que je note ce code pour chacune des listbox
> Je t'ai donné 2 façons de faire selon que tu veux déclencher l'ou verture
> des fichiers avec des boutons de commandes ou en sélectionnant par
> un clic directement le fichier dans un contrôle "Listbox". Au delà de ça,
> comme c'est toi qui élabore ton application, c'est à toi de choisir quelle
> est la manière la plus appropriée d'obtenir ce que tu désires.
> Si tes fichiers émanent du même répertoire, tu n'as qu'à défi nir une variable
> Chemin... il s'agit d'adapter le code à ta réalité. En même tem ps, cela te permettra
> de comprendre le code plutôt que d'y aller d'un copier-coller.
beaucoup de patience de votre part
dur dur car je ne maitrise pas tout, le code
j'ai adapte le chemin
Chemin = "C:Documents and SettingsUtilisateurMes doc uments
nantes"
le chemin executable est bon
CheminExecutable = "C:Program FilesMicrosoft Office
OFFICE11Winword.exe"
quand je clic sur le nom du fichier dans la liste box j'ai"erreur 5
et cette ligne de code en surbrillance Extension = Mid(F ichier,
InStrRev(Fichier, "."), 5)
la je cale
On 3 avr, 00:26, "MichDenis" wrote:
> | Extension = Mid(Fichier,InStrRev(Fichier, "."), 5)
> Est-ce que les extensions de fichiers sont affichées dans le listbox ?
> Donne un exemple de ce contient ton Listbox ( au moins un élément)
> Je te rappelle que tu dois posséder une version excel 2000
> ou plus récente pour accéder à la fonction : InstrRev()
> a écrit dans le message de groupe de discussion :
>
> On 2 avr, 12:29, "MichDenis" wrote:
> > | mais encore une question sur mon userform j'ai donc les 3
> > | boutons ,chacun ouvre une listbox (list1,list2,list 3) devant me
> > | permettre chacune d'ouvrir
> > | les fichiers (pdff,xls,word)se trouvant tous dans le meme repertoir e
> > | faut il que je note ce code pour chacune des listbox
> > Je t'ai donné 2 façons de faire selon que tu veux déclencher l' ouverture
> > des fichiers avec des boutons de commandes ou en sélectionnant par
> > un clic directement le fichier dans un contrôle "Listbox". Au del à de ça,
> > comme c'est toi qui élabore ton application, c'est à toi de chois ir quelle
> > est la manière la plus appropriée d'obtenir ce que tu désires.
> > Si tes fichiers émanent du même répertoire, tu n'as qu'à dé finir une variable
> > Chemin... il s'agit d'adapter le code à ta réalité. En même t emps, cela te permettra
> > de comprendre le code plutôt que d'y aller d'un copier-coller.
> beaucoup de patience de votre part
> dur dur car je ne maitrise pas tout, le code
> j'ai adapte le chemin
> Chemin = "C:Documents and SettingsUtilisateurMes d ocuments
> nantes"
> le chemin executable est bon
> CheminExecutable = "C:Program FilesMicrosoft Office
> OFFICE11Winword.exe"
> quand je clic sur le nom du fichier dans la liste box j'ai"erreur 5
> et cette ligne de code en surbrillance Extension = Mid (Fichier,
> InStrRev(Fichier, "."), 5)
> la je cale
j'utilise la version 2003
j'ai tester avec extension dans la listbox (.xls ; .doc) de cette
facon il ne se passe rien
j'ai tester sans extension dans la listbox de cette facon j'ai le
message "erreur 5 argument ou appel de procedure incorrect ainsi que
la ligne de code citee plus haut surlignee
dans ma listbox
Communiqué de presse.doc
Dossier de presse
Dossier de presse galerie
Dossier de presse poln
Programme poln mois doctobre
Invitation vernissage
Revue de presse
contact partenaire.xls
On 3 avr, 00:26, "MichDenis" <michde...@hotmail.com> wrote:
> | Extension = Mid(Fichier,InStrRev(Fichier, "."), 5)
> Est-ce que les extensions de fichiers sont affichées dans le listbox ?
> Donne un exemple de ce contient ton Listbox ( au moins un élément)
> Je te rappelle que tu dois posséder une version excel 2000
> ou plus récente pour accéder à la fonction : InstrRev()
> <srog...@free.fr> a écrit dans le message de groupe de discussion :
> 6e735b54-e7d8-427a-a1a6-37fc5330e...@s28g2000vbp.googlegroups.com...
> On 2 avr, 12:29, "MichDenis" <michde...@hotmail.com> wrote:
> > | mais encore une question sur mon userform j'ai donc les 3
> > | boutons ,chacun ouvre une listbox (list1,list2,list 3) devant me
> > | permettre chacune d'ouvrir
> > | les fichiers (pdff,xls,word)se trouvant tous dans le meme repertoir e
> > | faut il que je note ce code pour chacune des listbox
> > Je t'ai donné 2 façons de faire selon que tu veux déclencher l' ouverture
> > des fichiers avec des boutons de commandes ou en sélectionnant par
> > un clic directement le fichier dans un contrôle "Listbox". Au del à de ça,
> > comme c'est toi qui élabore ton application, c'est à toi de chois ir quelle
> > est la manière la plus appropriée d'obtenir ce que tu désires.
> > Si tes fichiers émanent du même répertoire, tu n'as qu'à dé finir une variable
> > Chemin... il s'agit d'adapter le code à ta réalité. En même t emps, cela te permettra
> > de comprendre le code plutôt que d'y aller d'un copier-coller.
> beaucoup de patience de votre part
> dur dur car je ne maitrise pas tout, le code
> j'ai adapte le chemin
> Chemin = "C:Documents and SettingsUtilisateurMes d ocuments
> nantes"
> le chemin executable est bon
> CheminExecutable = "C:Program FilesMicrosoft Office
> OFFICE11Winword.exe"
> quand je clic sur le nom du fichier dans la liste box j'ai"erreur 5
> et cette ligne de code en surbrillance Extension = Mid (Fichier,
> InStrRev(Fichier, "."), 5)
> la je cale
j'utilise la version 2003
j'ai tester avec extension dans la listbox (.xls ; .doc) de cette
facon il ne se passe rien
j'ai tester sans extension dans la listbox de cette facon j'ai le
message "erreur 5 argument ou appel de procedure incorrect ainsi que
la ligne de code citee plus haut surlignee
dans ma listbox
Communiqué de presse.doc
Dossier de presse
Dossier de presse galerie
Dossier de presse poln
Programme poln mois doctobre
Invitation vernissage
Revue de presse
contact partenaire.xls
On 3 avr, 00:26, "MichDenis" wrote:
> | Extension = Mid(Fichier,InStrRev(Fichier, "."), 5)
> Est-ce que les extensions de fichiers sont affichées dans le listbox ?
> Donne un exemple de ce contient ton Listbox ( au moins un élément)
> Je te rappelle que tu dois posséder une version excel 2000
> ou plus récente pour accéder à la fonction : InstrRev()
> a écrit dans le message de groupe de discussion :
>
> On 2 avr, 12:29, "MichDenis" wrote:
> > | mais encore une question sur mon userform j'ai donc les 3
> > | boutons ,chacun ouvre une listbox (list1,list2,list 3) devant me
> > | permettre chacune d'ouvrir
> > | les fichiers (pdff,xls,word)se trouvant tous dans le meme repertoir e
> > | faut il que je note ce code pour chacune des listbox
> > Je t'ai donné 2 façons de faire selon que tu veux déclencher l' ouverture
> > des fichiers avec des boutons de commandes ou en sélectionnant par
> > un clic directement le fichier dans un contrôle "Listbox". Au del à de ça,
> > comme c'est toi qui élabore ton application, c'est à toi de chois ir quelle
> > est la manière la plus appropriée d'obtenir ce que tu désires.
> > Si tes fichiers émanent du même répertoire, tu n'as qu'à dé finir une variable
> > Chemin... il s'agit d'adapter le code à ta réalité. En même t emps, cela te permettra
> > de comprendre le code plutôt que d'y aller d'un copier-coller.
> beaucoup de patience de votre part
> dur dur car je ne maitrise pas tout, le code
> j'ai adapte le chemin
> Chemin = "C:Documents and SettingsUtilisateurMes d ocuments
> nantes"
> le chemin executable est bon
> CheminExecutable = "C:Program FilesMicrosoft Office
> OFFICE11Winword.exe"
> quand je clic sur le nom du fichier dans la liste box j'ai"erreur 5
> et cette ligne de code en surbrillance Extension = Mid (Fichier,
> InStrRev(Fichier, "."), 5)
> la je cale
j'utilise la version 2003
j'ai tester avec extension dans la listbox (.xls ; .doc) de cette
facon il ne se passe rien
j'ai tester sans extension dans la listbox de cette facon j'ai le
message "erreur 5 argument ou appel de procedure incorrect ainsi que
la ligne de code citee plus haut surlignee
dans ma listbox
Communiqué de presse.doc
Dossier de presse
Dossier de presse galerie
Dossier de presse poln
Programme poln mois doctobre
Invitation vernissage
Revue de presse
contact partenaire.xls