Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour à tous;
Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
nommé (tintin), et qui se trouverais dans C:Mes Documents
merci à vous et bonne soirée.
Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
Cordialement.
Daniel
<syle...@hotmail.fr> a écrit dans le message de news:
f4398d18-7ea4-417b-b45f-7e0b8f4f6...@i76g2000hsf.googlegroups.com...
Bonjour à tous;
Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
nommé (tintin), et qui se trouverais dans C:Mes Documents
merci à vous et bonne soirée.
Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour à tous;
Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
nommé (tintin), et qui se trouverais dans C:Mes Documents
merci à vous et bonne soirée.
Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour à tous;
Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
nommé (tintin), et qui se trouverais dans C:Mes Documents
merci à vous et bonne soirée.
Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
Cordialement.
Daniel
<syle...@hotmail.fr> a écrit dans le message de news:
f4398d18-7ea4-417b-b45f-7e0b8f4f6...@i76g2000hsf.googlegroups.com...
Bonjour à tous;
Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
nommé (tintin), et qui se trouverais dans C:Mes Documents
merci à vous et bonne soirée.
Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour à tous;
Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
nommé (tintin), et qui se trouverais dans C:Mes Documents
merci à vous et bonne soirée.
Bonjour.
Private Sub CommandButton1_Click()
Workbooks.Open "C:Mes Documentstintin.xls"
x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" _
& "C:Mes Documentstintin.pdf")
End Sub
(Vérifie le chemin d'Acrobat reader).
Daniel
a écrit dans le message de news:
Bonsoir Daniel
Merci pour ta réponse c'est exactement sa que je voulais, mais pour
ouvrir un fichier pdf ?
j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) mais
cela ne fonctionne pas !
Merci encore
@+
On 26 juil, 23:05, "Daniel.C" wrote:Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour à tous;
Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
nommé (tintin), et qui se trouverais dans C:Mes Documents
merci à vous et bonne soirée.
Bonjour.
Private Sub CommandButton1_Click()
Workbooks.Open "C:Mes Documentstintin.xls"
x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" _
& "C:Mes Documentstintin.pdf")
End Sub
(Vérifie le chemin d'Acrobat reader).
Daniel
<syleg35@hotmail.fr> a écrit dans le message de news:
d4dfc8d0-ef2a-4187-89d4-3dbc7ff6d561@k13g2000hse.googlegroups.com...
Bonsoir Daniel
Merci pour ta réponse c'est exactement sa que je voulais, mais pour
ouvrir un fichier pdf ?
j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) mais
cela ne fonctionne pas !
Merci encore
@+
On 26 juil, 23:05, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
Cordialement.
Daniel
<syle...@hotmail.fr> a écrit dans le message de news:
f4398d18-7ea4-417b-b45f-7e0b8f4f6...@i76g2000hsf.googlegroups.com...
Bonjour à tous;
Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
nommé (tintin), et qui se trouverais dans C:Mes Documents
merci à vous et bonne soirée.
Bonjour.
Private Sub CommandButton1_Click()
Workbooks.Open "C:Mes Documentstintin.xls"
x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" _
& "C:Mes Documentstintin.pdf")
End Sub
(Vérifie le chemin d'Acrobat reader).
Daniel
a écrit dans le message de news:
Bonsoir Daniel
Merci pour ta réponse c'est exactement sa que je voulais, mais pour
ouvrir un fichier pdf ?
j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) mais
cela ne fonctionne pas !
Merci encore
@+
On 26 juil, 23:05, "Daniel.C" wrote:Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour à tous;
Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
nommé (tintin), et qui se trouverais dans C:Mes Documents
merci à vous et bonne soirée.
Désolé, il doit manquer un espace :
Private Sub CommandButton1_Click()
Workbooks.Open "C:Mes Documentstintin.xls"
x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.e xe" _
& " C:Mes Documentstintin.pdf")
End Sub
Daniel
"Daniel.C" a écrit dans le message de news:
> Bonjour.
> Private Sub CommandButton1_Click()
> Workbooks.Open "C:Mes Documentstintin.xls"
> x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32. exe" _
> & "C:Mes Documentstintin.pdf")
> End Sub
> (Vérifie le chemin d'Acrobat reader).
> Daniel
> a écrit dans le message de news:
>
> Bonsoir Daniel
> Merci pour ta réponse c'est exactement sa que je voulais, mais pour
> ouvrir un fichier pdf ?
> j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) mais
> cela ne fonctionne pas !
> Merci encore
> @+
> On 26 juil, 23:05, "Daniel.C" wrote:
>> Bonsoir.
>> Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
>> Cordialement.
>> Daniel
>> a écrit dans le message de news:
>>
>> Bonjour à tous;
>> Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
>> bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
>> nommé (tintin), et qui se trouverais dans C:Mes Documents
>> merci à vous et bonne soirée.- Masquer le texte des messages pré cédents -
- Afficher le texte des messages précédents -
Désolé, il doit manquer un espace :
Private Sub CommandButton1_Click()
Workbooks.Open "C:Mes Documentstintin.xls"
x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.e xe" _
& " C:Mes Documentstintin.pdf")
End Sub
Daniel
"Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message de news:
OPAKhK87IHA.3...@TK2MSFTNGP03.phx.gbl...
> Bonjour.
> Private Sub CommandButton1_Click()
> Workbooks.Open "C:Mes Documentstintin.xls"
> x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32. exe" _
> & "C:Mes Documentstintin.pdf")
> End Sub
> (Vérifie le chemin d'Acrobat reader).
> Daniel
> <syle...@hotmail.fr> a écrit dans le message de news:
> d4dfc8d0-ef2a-4187-89d4-3dbc7ff6d...@k13g2000hse.googlegroups.com...
> Bonsoir Daniel
> Merci pour ta réponse c'est exactement sa que je voulais, mais pour
> ouvrir un fichier pdf ?
> j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) mais
> cela ne fonctionne pas !
> Merci encore
> @+
> On 26 juil, 23:05, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
>> Bonsoir.
>> Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
>> Cordialement.
>> Daniel
>> <syle...@hotmail.fr> a écrit dans le message de news:
>> f4398d18-7ea4-417b-b45f-7e0b8f4f6...@i76g2000hsf.googlegroups.com...
>> Bonjour à tous;
>> Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
>> bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
>> nommé (tintin), et qui se trouverais dans C:Mes Documents
>> merci à vous et bonne soirée.- Masquer le texte des messages pré cédents -
- Afficher le texte des messages précédents -
Désolé, il doit manquer un espace :
Private Sub CommandButton1_Click()
Workbooks.Open "C:Mes Documentstintin.xls"
x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.e xe" _
& " C:Mes Documentstintin.pdf")
End Sub
Daniel
"Daniel.C" a écrit dans le message de news:
> Bonjour.
> Private Sub CommandButton1_Click()
> Workbooks.Open "C:Mes Documentstintin.xls"
> x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32. exe" _
> & "C:Mes Documentstintin.pdf")
> End Sub
> (Vérifie le chemin d'Acrobat reader).
> Daniel
> a écrit dans le message de news:
>
> Bonsoir Daniel
> Merci pour ta réponse c'est exactement sa que je voulais, mais pour
> ouvrir un fichier pdf ?
> j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) mais
> cela ne fonctionne pas !
> Merci encore
> @+
> On 26 juil, 23:05, "Daniel.C" wrote:
>> Bonsoir.
>> Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
>> Cordialement.
>> Daniel
>> a écrit dans le message de news:
>>
>> Bonjour à tous;
>> Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
>> bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
>> nommé (tintin), et qui se trouverais dans C:Mes Documents
>> merci à vous et bonne soirée.- Masquer le texte des messages pré cédents -
- Afficher le texte des messages précédents -
Salut Daniel;
merci pour ton aide, j'ai fait comme indiquer et j'ai une erreur
(1004) j'ai nommé mon boutton (HorairePdf)
voir mon code ci-dessous
*************************************
Private Sub HorairePdf_Click()
Workbooks.Open "C:Semaine_24_A_40.xls"
x = Shell("C:Program FilesAdobeAcrobat 9.0AcrobatAcrobat.e xe"
_
& "C:Semaine_24_A_40.pdf")
End Sub
*****************************************
Merci encore
@+
On 27 juil, 12:29, "Daniel.C" wrote:
> Désolé, il doit manquer un espace :
> Private Sub CommandButton1_Click()
> Workbooks.Open "C:Mes Documentstintin.xls"
> x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32 .exe" _
> & " C:Mes Documentstintin.pdf")
> End Sub
> Daniel
> "Daniel.C" a écrit dans le message de news:
>
> > Bonjour.
> > Private Sub CommandButton1_Click()
> > Workbooks.Open "C:Mes Documentstintin.xls"
> > x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd3 2.exe" _
> > & "C:Mes Documentstintin.pdf")
> > End Sub
> > (Vérifie le chemin d'Acrobat reader).
> > Daniel
> > a écrit dans le message de news:
> >
> > Bonsoir Daniel
> > Merci pour ta réponse c'est exactement sa que je voulais, mais pour
> > ouvrir un fichier pdf ?
> > j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) mai s
> > cela ne fonctionne pas !
> > Merci encore
> > @+
> > On 26 juil, 23:05, "Daniel.C" wrote:
> >> Bonsoir.
> >> Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
> >> Cordialement.
> >> Daniel
> >> a écrit dans le message de news:
> >>
> >> Bonjour à tous;
> >> Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
> >> bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichie r
> >> nommé (tintin), et qui se trouverais dans C:Mes Documents
> >> merci à vous et bonne soirée.- Masquer le texte des messages pr écédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut Daniel;
merci pour ton aide, j'ai fait comme indiquer et j'ai une erreur
(1004) j'ai nommé mon boutton (HorairePdf)
voir mon code ci-dessous
*************************************
Private Sub HorairePdf_Click()
Workbooks.Open "C:Semaine_24_A_40.xls"
x = Shell("C:Program FilesAdobeAcrobat 9.0AcrobatAcrobat.e xe"
_
& "C:Semaine_24_A_40.pdf")
End Sub
*****************************************
Merci encore
@+
On 27 juil, 12:29, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
> Désolé, il doit manquer un espace :
> Private Sub CommandButton1_Click()
> Workbooks.Open "C:Mes Documentstintin.xls"
> x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32 .exe" _
> & " C:Mes Documentstintin.pdf")
> End Sub
> Daniel
> "Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message de news:
> OPAKhK87IHA.3...@TK2MSFTNGP03.phx.gbl...
> > Bonjour.
> > Private Sub CommandButton1_Click()
> > Workbooks.Open "C:Mes Documentstintin.xls"
> > x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd3 2.exe" _
> > & "C:Mes Documentstintin.pdf")
> > End Sub
> > (Vérifie le chemin d'Acrobat reader).
> > Daniel
> > <syle...@hotmail.fr> a écrit dans le message de news:
> > d4dfc8d0-ef2a-4187-89d4-3dbc7ff6d...@k13g2000hse.googlegroups.com...
> > Bonsoir Daniel
> > Merci pour ta réponse c'est exactement sa que je voulais, mais pour
> > ouvrir un fichier pdf ?
> > j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) mai s
> > cela ne fonctionne pas !
> > Merci encore
> > @+
> > On 26 juil, 23:05, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
> >> Bonsoir.
> >> Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
> >> Cordialement.
> >> Daniel
> >> <syle...@hotmail.fr> a écrit dans le message de news:
> >> f4398d18-7ea4-417b-b45f-7e0b8f4f6...@i76g2000hsf.googlegroups.com...
> >> Bonjour à tous;
> >> Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
> >> bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichie r
> >> nommé (tintin), et qui se trouverais dans C:Mes Documents
> >> merci à vous et bonne soirée.- Masquer le texte des messages pr écédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut Daniel;
merci pour ton aide, j'ai fait comme indiquer et j'ai une erreur
(1004) j'ai nommé mon boutton (HorairePdf)
voir mon code ci-dessous
*************************************
Private Sub HorairePdf_Click()
Workbooks.Open "C:Semaine_24_A_40.xls"
x = Shell("C:Program FilesAdobeAcrobat 9.0AcrobatAcrobat.e xe"
_
& "C:Semaine_24_A_40.pdf")
End Sub
*****************************************
Merci encore
@+
On 27 juil, 12:29, "Daniel.C" wrote:
> Désolé, il doit manquer un espace :
> Private Sub CommandButton1_Click()
> Workbooks.Open "C:Mes Documentstintin.xls"
> x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32 .exe" _
> & " C:Mes Documentstintin.pdf")
> End Sub
> Daniel
> "Daniel.C" a écrit dans le message de news:
>
> > Bonjour.
> > Private Sub CommandButton1_Click()
> > Workbooks.Open "C:Mes Documentstintin.xls"
> > x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd3 2.exe" _
> > & "C:Mes Documentstintin.pdf")
> > End Sub
> > (Vérifie le chemin d'Acrobat reader).
> > Daniel
> > a écrit dans le message de news:
> >
> > Bonsoir Daniel
> > Merci pour ta réponse c'est exactement sa que je voulais, mais pour
> > ouvrir un fichier pdf ?
> > j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) mai s
> > cela ne fonctionne pas !
> > Merci encore
> > @+
> > On 26 juil, 23:05, "Daniel.C" wrote:
> >> Bonsoir.
> >> Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
> >> Cordialement.
> >> Daniel
> >> a écrit dans le message de news:
> >>
> >> Bonjour à tous;
> >> Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
> >> bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichie r
> >> nommé (tintin), et qui se trouverais dans C:Mes Documents
> >> merci à vous et bonne soirée.- Masquer le texte des messages pr écédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut Daniel;
merci pour ton aide, j'ai fait comme indiquer et j'ai une erreur
(1004) j'ai nommé mon boutton (HorairePdf)
voir mon code ci-dessous
*************************************
Private Sub HorairePdf_Click()
Workbooks.Open "C:Semaine_24_A_40.xls"
x = Shell("C:Program FilesAdobeAcrobat 9.0AcrobatAcrobat.exe"
_
& "C:Semaine_24_A_40.pdf")
End Sub
*****************************************
Merci encore
@+
On 27 juil, 12:29, "Daniel.C" wrote:
> Désolé, il doit manquer un espace :
> Private Sub CommandButton1_Click()
> Workbooks.Open "C:Mes Documentstintin.xls"
> x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" _
> & " C:Mes Documentstintin.pdf")
> End Sub
> Daniel
> "Daniel.C" a écrit dans le message de news:
>
> > Bonjour.
> > Private Sub CommandButton1_Click()
> > Workbooks.Open "C:Mes Documentstintin.xls"
> > x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" _
> > & "C:Mes Documentstintin.pdf")
> > End Sub
> > (Vérifie le chemin d'Acrobat reader).
> > Daniel
> > a écrit dans le message de news:
> >
> > Bonsoir Daniel
> > Merci pour ta réponse c'est exactement sa que je voulais, mais pour
> > ouvrir un fichier pdf ?
> > j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) mais
> > cela ne fonctionne pas !
> > Merci encore
> > @+
> > On 26 juil, 23:05, "Daniel.C" wrote:
> >> Bonsoir.
> >> Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
> >> Cordialement.
> >> Daniel
> >> a écrit dans le message de news:
> >>
> >> Bonjour à tous;
> >> Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
> >> bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
> >> nommé (tintin), et qui se trouverais dans C:Mes Documents
> >> merci à vous et bonne soirée.- Masquer le texte des messages
> >> précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des
> messages précédents -
- Afficher le texte des messages précédents -
Salut Daniel;
merci pour ton aide, j'ai fait comme indiquer et j'ai une erreur
(1004) j'ai nommé mon boutton (HorairePdf)
voir mon code ci-dessous
*************************************
Private Sub HorairePdf_Click()
Workbooks.Open "C:Semaine_24_A_40.xls"
x = Shell("C:Program FilesAdobeAcrobat 9.0AcrobatAcrobat.exe"
_
& "C:Semaine_24_A_40.pdf")
End Sub
*****************************************
Merci encore
@+
On 27 juil, 12:29, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
> Désolé, il doit manquer un espace :
> Private Sub CommandButton1_Click()
> Workbooks.Open "C:Mes Documentstintin.xls"
> x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" _
> & " C:Mes Documentstintin.pdf")
> End Sub
> Daniel
> "Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message de news:
> OPAKhK87IHA.3...@TK2MSFTNGP03.phx.gbl...
> > Bonjour.
> > Private Sub CommandButton1_Click()
> > Workbooks.Open "C:Mes Documentstintin.xls"
> > x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" _
> > & "C:Mes Documentstintin.pdf")
> > End Sub
> > (Vérifie le chemin d'Acrobat reader).
> > Daniel
> > <syle...@hotmail.fr> a écrit dans le message de news:
> > d4dfc8d0-ef2a-4187-89d4-3dbc7ff6d...@k13g2000hse.googlegroups.com...
> > Bonsoir Daniel
> > Merci pour ta réponse c'est exactement sa que je voulais, mais pour
> > ouvrir un fichier pdf ?
> > j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) mais
> > cela ne fonctionne pas !
> > Merci encore
> > @+
> > On 26 juil, 23:05, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
> >> Bonsoir.
> >> Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
> >> Cordialement.
> >> Daniel
> >> <syle...@hotmail.fr> a écrit dans le message de news:
> >> f4398d18-7ea4-417b-b45f-7e0b8f4f6...@i76g2000hsf.googlegroups.com...
> >> Bonjour à tous;
> >> Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
> >> bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
> >> nommé (tintin), et qui se trouverais dans C:Mes Documents
> >> merci à vous et bonne soirée.- Masquer le texte des messages
> >> précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des
> messages précédents -
- Afficher le texte des messages précédents -
Salut Daniel;
merci pour ton aide, j'ai fait comme indiquer et j'ai une erreur
(1004) j'ai nommé mon boutton (HorairePdf)
voir mon code ci-dessous
*************************************
Private Sub HorairePdf_Click()
Workbooks.Open "C:Semaine_24_A_40.xls"
x = Shell("C:Program FilesAdobeAcrobat 9.0AcrobatAcrobat.exe"
_
& "C:Semaine_24_A_40.pdf")
End Sub
*****************************************
Merci encore
@+
On 27 juil, 12:29, "Daniel.C" wrote:
> Désolé, il doit manquer un espace :
> Private Sub CommandButton1_Click()
> Workbooks.Open "C:Mes Documentstintin.xls"
> x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" _
> & " C:Mes Documentstintin.pdf")
> End Sub
> Daniel
> "Daniel.C" a écrit dans le message de news:
>
> > Bonjour.
> > Private Sub CommandButton1_Click()
> > Workbooks.Open "C:Mes Documentstintin.xls"
> > x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" _
> > & "C:Mes Documentstintin.pdf")
> > End Sub
> > (Vérifie le chemin d'Acrobat reader).
> > Daniel
> > a écrit dans le message de news:
> >
> > Bonsoir Daniel
> > Merci pour ta réponse c'est exactement sa que je voulais, mais pour
> > ouvrir un fichier pdf ?
> > j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) mais
> > cela ne fonctionne pas !
> > Merci encore
> > @+
> > On 26 juil, 23:05, "Daniel.C" wrote:
> >> Bonsoir.
> >> Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
> >> Cordialement.
> >> Daniel
> >> a écrit dans le message de news:
> >>
> >> Bonjour à tous;
> >> Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
> >> bouton (commandbutton) dans une feuille Excel, pour ouvrir un fichier
> >> nommé (tintin), et qui se trouverais dans C:Mes Documents
> >> merci à vous et bonne soirée.- Masquer le texte des messages
> >> précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des
> messages précédents -
- Afficher le texte des messages précédents -
Private Sub HorairePdf_Click()
Workbooks.Open "C:Semaine_24_A_40.xls"
x = Shell("C:Program FilesAdobeAcrobat 9.0AcrobatAcrobat.e xe"
_
& " C:Semaine_24_A_40.pdf")
End Sub
Note l'espace avant "C:Semaine_24_A_40.pdf"
Daniel
a écrit dans le message de news:
Petit présision le exe de adobe c'est bien le 9.0
On 27 juil, 17:14, wrote:
> Salut Daniel;
> merci pour ton aide, j'ai fait comme indiquer et j'ai une erreur
> (1004) j'ai nommé mon boutton (HorairePdf)
> voir mon code ci-dessous
> *************************************
> Private Sub HorairePdf_Click()
> Workbooks.Open "C:Semaine_24_A_40.xls"
> x = Shell("C:Program FilesAdobeAcrobat 9.0AcrobatAcrobat.exe"
> _
> & "C:Semaine_24_A_40.pdf")
> End Sub
> *****************************************
> Merci encore
> @+
> On 27 juil, 12:29, "Daniel.C" wrote:
> > Désolé, il doit manquer un espace :
> > Private Sub CommandButton1_Click()
> > Workbooks.Open "C:Mes Documentstintin.xls"
> > x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" _
> > & " C:Mes Documentstintin.pdf")
> > End Sub
> > Daniel
> > "Daniel.C" a écrit dans le message de news :
> >
> > > Bonjour.
> > > Private Sub CommandButton1_Click()
> > > Workbooks.Open "C:Mes Documentstintin.xls"
> > > x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe " _
> > > & "C:Mes Documentstintin.pdf")
> > > End Sub
> > > (Vérifie le chemin d'Acrobat reader).
> > > Daniel
> > > a écrit dans le message de news:
> > > .
> > > Bonsoir Daniel
> > > Merci pour ta réponse c'est exactement sa que je voulais, mais po ur
> > > ouvrir un fichier pdf ?
> > > j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) m ais
> > > cela ne fonctionne pas !
> > > Merci encore
> > > @+
> > > On 26 juil, 23:05, "Daniel.C" wrote:
> > >> Bonsoir.
> > >> Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
> > >> Cordialement.
> > >> Daniel
> > >> a écrit dans le message de news:
> > >> ..
> > >> Bonjour à tous;
> > >> Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
> > >> bouton (commandbutton) dans une feuille Excel, pour ouvrir un fich ier
> > >> nommé (tintin), et qui se trouverais dans C:Mes Documents
> > >> merci à vous et bonne soirée.- Masquer le texte des messages
> > >> précédents -
> > - Afficher le texte des messages précédents -- Masquer le texte d es
> > messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Private Sub HorairePdf_Click()
Workbooks.Open "C:Semaine_24_A_40.xls"
x = Shell("C:Program FilesAdobeAcrobat 9.0AcrobatAcrobat.e xe"
_
& " C:Semaine_24_A_40.pdf")
End Sub
Note l'espace avant "C:Semaine_24_A_40.pdf"
Daniel
<syle...@hotmail.fr> a écrit dans le message de news:
61261e66-e866-4221-9028-e3fcd9c79...@2g2000hsn.googlegroups.com...
Petit présision le exe de adobe c'est bien le 9.0
On 27 juil, 17:14, syle...@hotmail.fr wrote:
> Salut Daniel;
> merci pour ton aide, j'ai fait comme indiquer et j'ai une erreur
> (1004) j'ai nommé mon boutton (HorairePdf)
> voir mon code ci-dessous
> *************************************
> Private Sub HorairePdf_Click()
> Workbooks.Open "C:Semaine_24_A_40.xls"
> x = Shell("C:Program FilesAdobeAcrobat 9.0AcrobatAcrobat.exe"
> _
> & "C:Semaine_24_A_40.pdf")
> End Sub
> *****************************************
> Merci encore
> @+
> On 27 juil, 12:29, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
> > Désolé, il doit manquer un espace :
> > Private Sub CommandButton1_Click()
> > Workbooks.Open "C:Mes Documentstintin.xls"
> > x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" _
> > & " C:Mes Documentstintin.pdf")
> > End Sub
> > Daniel
> > "Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message de news :
> > OPAKhK87IHA.3...@TK2MSFTNGP03.phx.gbl...
> > > Bonjour.
> > > Private Sub CommandButton1_Click()
> > > Workbooks.Open "C:Mes Documentstintin.xls"
> > > x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe " _
> > > & "C:Mes Documentstintin.pdf")
> > > End Sub
> > > (Vérifie le chemin d'Acrobat reader).
> > > Daniel
> > > <syle...@hotmail.fr> a écrit dans le message de news:
> > > d4dfc8d0-ef2a-4187-89d4-3dbc7ff6d...@k13g2000hse.googlegroups.com.. .
> > > Bonsoir Daniel
> > > Merci pour ta réponse c'est exactement sa que je voulais, mais po ur
> > > ouvrir un fichier pdf ?
> > > j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) m ais
> > > cela ne fonctionne pas !
> > > Merci encore
> > > @+
> > > On 26 juil, 23:05, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
> > >> Bonsoir.
> > >> Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
> > >> Cordialement.
> > >> Daniel
> > >> <syle...@hotmail.fr> a écrit dans le message de news:
> > >> f4398d18-7ea4-417b-b45f-7e0b8f4f6...@i76g2000hsf.googlegroups.com. ..
> > >> Bonjour à tous;
> > >> Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
> > >> bouton (commandbutton) dans une feuille Excel, pour ouvrir un fich ier
> > >> nommé (tintin), et qui se trouverais dans C:Mes Documents
> > >> merci à vous et bonne soirée.- Masquer le texte des messages
> > >> précédents -
> > - Afficher le texte des messages précédents -- Masquer le texte d es
> > messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Private Sub HorairePdf_Click()
Workbooks.Open "C:Semaine_24_A_40.xls"
x = Shell("C:Program FilesAdobeAcrobat 9.0AcrobatAcrobat.e xe"
_
& " C:Semaine_24_A_40.pdf")
End Sub
Note l'espace avant "C:Semaine_24_A_40.pdf"
Daniel
a écrit dans le message de news:
Petit présision le exe de adobe c'est bien le 9.0
On 27 juil, 17:14, wrote:
> Salut Daniel;
> merci pour ton aide, j'ai fait comme indiquer et j'ai une erreur
> (1004) j'ai nommé mon boutton (HorairePdf)
> voir mon code ci-dessous
> *************************************
> Private Sub HorairePdf_Click()
> Workbooks.Open "C:Semaine_24_A_40.xls"
> x = Shell("C:Program FilesAdobeAcrobat 9.0AcrobatAcrobat.exe"
> _
> & "C:Semaine_24_A_40.pdf")
> End Sub
> *****************************************
> Merci encore
> @+
> On 27 juil, 12:29, "Daniel.C" wrote:
> > Désolé, il doit manquer un espace :
> > Private Sub CommandButton1_Click()
> > Workbooks.Open "C:Mes Documentstintin.xls"
> > x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" _
> > & " C:Mes Documentstintin.pdf")
> > End Sub
> > Daniel
> > "Daniel.C" a écrit dans le message de news :
> >
> > > Bonjour.
> > > Private Sub CommandButton1_Click()
> > > Workbooks.Open "C:Mes Documentstintin.xls"
> > > x = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe " _
> > > & "C:Mes Documentstintin.pdf")
> > > End Sub
> > > (Vérifie le chemin d'Acrobat reader).
> > > Daniel
> > > a écrit dans le message de news:
> > > .
> > > Bonsoir Daniel
> > > Merci pour ta réponse c'est exactement sa que je voulais, mais po ur
> > > ouvrir un fichier pdf ?
> > > j'ai essayé sa ( Workbooks.Open "C:Mes Documentstintin.pdf" ) m ais
> > > cela ne fonctionne pas !
> > > Merci encore
> > > @+
> > > On 26 juil, 23:05, "Daniel.C" wrote:
> > >> Bonsoir.
> > >> Regarde le classeur à l'adresse :http://cjoint.com/?hAxbTY87Pw
> > >> Cordialement.
> > >> Daniel
> > >> a écrit dans le message de news:
> > >> ..
> > >> Bonjour à tous;
> > >> Es ce que quelqu'un pourrait me donner un exemple, pour mettre un
> > >> bouton (commandbutton) dans une feuille Excel, pour ouvrir un fich ier
> > >> nommé (tintin), et qui se trouverais dans C:Mes Documents
> > >> merci à vous et bonne soirée.- Masquer le texte des messages
> > >> précédents -
> > - Afficher le texte des messages précédents -- Masquer le texte d es
> > messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -