Discussion :

[Clavereli]

Bonjour à tous,
Je cherche à enregistrer la feuille de calcul présente à l'écran, avec un nom différent sur le bureau en utilisant la macro ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub ENREGISTRER()
'
' ENREGISTRER Macro
'
'On copie le nom du fichier composé situé X32:Y32
 
    Range("X32:Y32").Select
    Selection.Copy
 
'On en fait un collage spécial en B1
 
        Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
'On dimensionne les variables utilisées pour la sauvegarde
 
  Dim extension As String, nonfichier As String
  Dim chemin As String
  extension = ".xlsm"
  chemin = "C:\bureau\"
  nomfichier = Range("B1").Value
 
'On construit la formule de sauvegarde et on l'exécute
 
  ActiveWorkbook.SaveAs Filename:=chemin & nomfichier & extension
 
End Sub

J'obtiens le message suivant:

Erreur d'exécution 1004
Microsoft ne peut pas accéder au fichier
"C:\bureau\A........

Qui pourra me dire ce qui ne va pas dans mon code?
Ayez de la patience, DÉBUTANT. Merci

[casefayere]

Bonjour,

Pour commencer, apprends à mettre tes codes entre balises "#"

ensuite, reduis ton code, le début par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ENREGISTRER()
Dim extension As String, nomfichier As String
Dim chemin As String
'On copie le nom du fichier composé situé X32:Y32
 
Range("X32:Y32").Copy
 
'On en fait un collage spécial en B1
 
Range("B1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.......

ensuite, tu dis ne vouloir enregistrer que la feuille active dans un nouveau classeur, si le classeur actif n'a qu'une feuille, pas de problème en vérifiant ta syntaxe :

Code :

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

chemin = "C:\bureau\"

'je ne suis pas sur que ça soit ça, chez moi, ça serait :

Code :

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

chemin = "C:\Users\Dominique\Desktop"

enfin regardes si B1 ne comporte pas de signes interdits dans le nom à donner au fichier tel que "\".

Regardes déjà tout ça

[Clavereli]

A l'attention de Casefayer.
Bonjour et merci pour ta réponse.
J'ai bien suivi tes conseils et tout fonctionne comme je le souhaite. C'était le chemin indiqué qui posait problème: j'ai adapté à mon besoin C:\Utilisateurs\Claude\Bureau.
Par contre il me reste une question concernant les balises (#) : C'est quoi? comment faire?
Y a t-il sur le site un article traitant le sujet?
Merci encore pour ton aide.

[casefayere]

Bonjour le forum, Clavereli,
Quand tu rédiges un message et que tu veux intégrer un code, mets le entre balises, regardes juste au-dessus de ton message le signe "#", selectionnes ton code et cliques sur "#", sinon avant d'intégrer ton code cliques sur "#" et colles ton code si bien sur tu l'as copié.

Bonne journée et bon courage