Erreur code VBA

bonjour

sur un post précédent, j'avais demandé le code pour enregistrer automatiquement un fichier :

Sub enregistrer_EXPORT()
    Dim adr$, fichier$
    fichier = Feuil2.Cells(31, 21)
    adr = Feuil1.Cells(37, 21)
    ActiveWorkbook.SaveAs (adr & "\" & fichier)
End Sub

le chemin d'accès pour enregistrer le fichier est le suivant : G:\Commercial\Cotation\cotations 2012

lorsque je clique sur le bouton correspondant à la macro repris ci dessus, voici le message que je reçois :

Microsof visual Basic

Erreur d'éxécution '1004'

Microsof Office Excel ne peut accéder au fichier "G:". Plusieurs raisons possibles :

le nom du fichier ou le chemin n'existe pas

ce fichier est actuellement utilisé par un autre programme

le classeur que vous essayer d'enregistrer porte le même nom q'un classeur actuellement ouvert

sur VBA, la ligne est surlignée en jaune : ActiveWorkbook.SaveAs (adr & "\" & fichier)

là, je ne comprends pas d'ou vient le problème !!

merci de vos lumières

chb44

Salut,

Question :

Que vaut la variable "fichier" ?

adr : G:\Commercial\Cotation\cotations 2012

Si tu inseres un petit msgbox de debug avant le savesas :

msgbox adr & "\" & fichier

Cela t'affiche la bonne chaine ? (espace etc... ?)

Damien

Peut etre que je me trompe mais il me semble que tu ne definit jamais le chemin de ton fichier a sauvegarder, non ?

Bonjour

Au vu de tes explications essaie aussi ceci :

ActiveWorkbook.SaveAs (adr & "\" & fichier & ".xls")

Amicalement

merci à tous pour vos conseils mais cela ne fonctionne pas !

le fichier est enregistrer dans un mauvais répertoire => D: !!

Re,

Tu as quoi comme info dans cette cellule --> Feuil1.Cells(37, 21) ???

A quoi correspond la feuil1 ?

A te relire

J'ai trouvé d'où venait mon erreur => il ne s'agissait pas de feuille1 mais de feuille2 !

je viens de tester et cela fonctionne !

merci de votre aide