Discussion :

[lebeniste]

bonjour
j'ai fais une macro activer par un bouton , mais j'aimerais qu'elle se face a partir d'une cellule ...
voici mon code pour la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub ENREGISTREMENT()
' ENREGISTREMENT Macro
' Macro enregistrée le 2008-03-20 par André
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\André\Documents\truc excel\TEST.xls", FileFormat:=xlNormal,     Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

ou je dois mettre le no de cellule ????? pour l'intant excel est mais pas pour longtemps
merci a l'avance

[fring]

Bonjour,

Ce n'est pas très clair ta question, tu peux expliquer ce que tu veux faire et ce que tu entends par "numéro de cellule" ?

[lebeniste]

j'aimerais que le dossier s'enregistre a partir de la cellule b3 exemple (andre)

pour l'intant avec le code il va dans "C:\Users\André\Documents\truc excel\...... et il faut que je lui donne un nom .

j'aimerais par default la case b3

je joint un image

merci

[fring]

Ok j'ai pigé, essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"C:\Users\" & Range("B3") & "\Documents\truc excel\TEST.xls"

[lebeniste]

ca me donne une erreur 1004

ne me le dis pas , je sais je suis nul

j'ai joint un doc

[fring]

meuuuh non personne n'est nul, par hazard, le sous répertoire "truc excel" existe ? Parce que si il n'existe pas, soit tu dois d'abord le créer, soit il faut ajouter une ligne de code qui va le créer.

[lebeniste]

j'ai trouvé et ca marche ........

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub NomClasseur()
Réponse = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo)
If Réponse = vbYes Then
Dim Chr As String 'déclare la variable
Chr = Range("CLIENT!B11") 'Feuille Essai et cellule C1
ChDrive "C" 'si C n'est pas le disque par défaut
ChDir "C:\Users\André\Documents\truc excel\BIZARD\"
ActiveWorkbook.SaveAs Filename:=(Chr)
End If
End Sub