Discussion :

[isrdum]

Bonjour aux experts VBA

Je cherche à sauvegarder une feuille particulière d'un projet VBA

J'ai un projet composé de 3 feuilles. Les deux premières servent à compiler des données qui sont ajoutées à la troisième
À partir d'un bouton qui si situe sur la première feuille (feuil1), j'aimerais sauvegarder le contenu de la dernière feuille (feuil3) sur le bureau de mon ordinateur.
J'aimerais aussi que le format soit .xlsm mais sans prise en charge Macro!

Un gros merci!

[MarcelG]

Salut,

J'aimerais aussi que le format soit .xlsm mais sans prise en charge Macro!

Jamais vu!

Pour le reste
- Copier la feuille dans un nouveau classeur
- Sauvegarder le classeur ainsi que le classeur, en choisissant le format

Tu peux t'aider en consultant cet espace et celui-ci

[isrdum]

Merci Marcel

J'ai toutefois de la difficulté à déclarer la "feuil3"
Une erreur est générée..... Que dois-je faire

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton4_Click()
Worksheets("feuil3").Copy
With ActiveWorkbook
     .SaveAs Filename:="C:\Users\roger\Desktop" & "\New1.xlsx", FileFormat:=xlOpenXMLWorkbook
     .Close SaveChanges:=False
End With
End Sub

Encore merci

[MarcelG]

Salut,

Quel message d'erreur? Sur quelle ligne le débugger s'arrête-t-il (en surbrillance généralement de couleur jaune)?

Au demeurant, l'anomalie semble provenir de l'extension du fichier .xlsx. Il y a contradiction avec le format.
Sauf erreur, cette extension ne doit pas intégrer le nom du classeur.
Celle-ci est automatiquement générée par la propriété FileFormat

[isrdum]

Salut,

Quel message d'erreur? Sur quelle ligne le débugger s'arrête-t-il (en surbrillance généralement de couleur jaune)?

Au demeurant, l'anomalie semble provenir de l'extension du fichier .xlsx. Il y a contradiction avec le format.
Sauf erreur, cette extension ne doit pas intégrer le nom du classeur.
Celle-ci est automatiquement générée par la propriété FileFormat

Cette section est en jaune

Code :

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

Worksheets("feuil3").Copy

VBA indique: L'indice n'appartient pas à la sélection....

[isrdum]

C'est bon, ça fonctionne,

Je devais simplement écrire

Code :

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

feuil3.copy

La ligne totale

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton4_Click()
Dim Dossier As String
Dim Fichier As String
 
Dossier = Feuil1.Range("B20") 'exemple C:\bureau\
Fichier = Feuil1.Range("B22") 'Test
 
Feuil3.Copy
With ActiveWorkbook
     .SaveAs Filename:=Dossier & Fichier & ".xlsx", FileFormat:=xlOpenXMLWorkbook
     .Close SaveChanges:=False
End With
End Sub

Un gros gros merci MArcel

[MarcelG]

D'accord.

Cette feuille ne semble donc pas exister.
Cela dit, tu sembles confondre le nom de la feuille tel qu'il figure sur tableur avec son CodeName tel qu'il figure dans l'éditeur VBE.
Si tu utilises celui-ci, alors tu dois coder

Code :

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

Feuil3.Copy

Au demeurant, je déconseille ce processus. Il n'est pas explicite.
Je préfère désigner l'item de la collection Worksheets

Code :

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

Worksheets("mercatog")