msgbox

RENAUDER

Nous a quitté

Repose en paix

• 10 Juillet 2008

• #2

Re : msgbox

Bonjour

Peut-être ce code t'aidera

Code:

Sub Traite()
    ChDrive "C:\"
    ChDir "C:\Excel\"
    monfichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls", , "Ouvrir le fichier d'alertes souhaité !")
    If VarType(monfichier) = vbBoolean Then
        Exit Sub
    Else
        Workbooks.Open Filename:=monfichier
    End If
End Sub

 

Vote positif 0 Vote négatif

K

katial

Guest

• 10 Juillet 2008

• #3

Re : msgbox

Je ne sais pas pourquoi mais ce ne fonctionne pas.

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 10 Juillet 2008

• #4

Re : msgbox

Bonsoir
peut être la directory?
ChDir "C:\Excel\"
tu peux mettre:
ChDir "C:\"

comme cela tu sera à la racine

 

Vote positif 0 Vote négatif

K

katial

Guest

• 10 Juillet 2008

• #5

Re : msgbox

merci beaucoup

 

Vote positif 0 Vote négatif