Copie et Sauvegarde de fichier

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2013

• #2

Re : Copie et Sauvegarde de fichier

Bonjour,

"selection" est un mot réservé vba... ne pas l'utiliser comme nom de variable ou de procédure ou autre... essaye comme ceci :

Code:

Dim s As Range
Set s = Sheets("MOI").Range(Cells(1, 1), Cells(DernLigne, DernCol))

bon après midi
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2013

• #3

Re : Copie et Sauvegarde de fichier

Re,

cela pourrait aussi se coder ainsi :

Code:

Dim s As Range
Set s = Sheets("MOI").Range("A1").CurrentRegion

 

Vote positif 0 Vote négatif

B

benoa

Guest

• 11 Juillet 2013

• #4

Re : Copie et Sauvegarde de fichier

Ok merci, par contre après pour sélectionner mon autre classeur, j'utilise :

Dim FeuilMoi As Worksheet
Set FeuilMoi = Workbooks("Sauvegarde.xls").Sheets(CeMois)

Le debogage m'indique encore une erreur '9', l'indice n'appartient pas à la sélection, qu'est ce que ça veut dire? N'y aurait il pas un autre moyen utilisant le chemin absolu pour retrouver le bon fichier de sauvegarde?

Cordialement

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2013

• #5

Re : Copie et Sauvegarde de fichier

Re,

sans doute le nom de la feuille erronée.... à vérifier aussi ce que contient exactement la cellule active....

 

Vote positif 0 Vote négatif

B

benoa

Guest

• 11 Juillet 2013

• #6

Re : Copie et Sauvegarde de fichier

J'ai vérifié le nom, ce n'est pas ça qui pose problème. Est ce que les deux fichier (tampons et Sauvegardes) doivent être placés dans un même dossier?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2013

• #7

Re : Copie et Sauvegarde de fichier

Re,

A noter qu'avec "GetObject" le classeur est ouvert mais est masqué....

 

Vote positif 0 Vote négatif

B

benoa

Guest

• 11 Juillet 2013

• #8

Re : Copie et Sauvegarde de fichier

Et au lieu de faire tout ca, ne pourrait-on pas simplifier ainsi? :

Private Sub Sauvegarde()

Var_Chemin = "D:Sauvegarde.xls"
Fichier1 = ActiveWorkbook.Name
Workbooks.Open Var_Chemin, 0, ReadOnly:=False
Fichier2 = ActiveWorkbook.Name
Workbooks(Fichier1).Sheets("Moi").Copy := Workbooks(Fichier2).Sheets("Cemois")​

End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2013

• #9

Re : Copie et Sauvegarde de fichier

Re,

test tu le verras vite... attention manque un \

Code:

Private Sub Sauvegarde() 
Var_Chemin = "D:\Sauvegarde.xls" 
Fichier1 = ActiveWorkbook.Name 
Workbooks.Open Var_Chemin, 0, ReadOnly:=False 
Fichier2 = ActiveWorkbook.Name 
Workbooks(Fichier1).Sheets("Moi").Copy := Workbooks(Fichier2).Sheets("Cemois") 
End Sub

 

Vote positif 0 Vote négatif

B

benoa

Guest

• 11 Juillet 2013

• #10

Re : Copie et Sauvegarde de fichier

Bon ça ne marche pas. Est ce que vous auriez une idée simple pour sauvegarder un fichier dans un autre classeur déjà existant?

De

fichier = D:\tampon.xls
feuille = Moi

vers

fichier = D\Sauvegarde.xls
feuille = JUIN

Cordialement

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2013

• #11

Re : Copie et Sauvegarde de fichier

Re,

pour copier une feuille dans un autre classeur :

Code:

Workbooks(Fichier1).Sheets("Moi").Copy _
    after:=Workbooks(Fichier2).Sheets(Workbooks(Fichier2).Sheets.Count)

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2013

• #12

Re : Copie et Sauvegarde de fichier

Re,

pour copier les cellules d'une feuille vers une autre :

Code:

Workbooks(Fichier1).Sheets("Moi").Cells.Copy _
    Destination:=Workbooks(Fichier2).Sheets("Cemois").Range("A1")

 

Vote positif 0 Vote négatif

B

benoa

Guest

• 11 Juillet 2013

• #13

Re : Copie et Sauvegarde de fichier

Très bien, j'utilise donc la première solution, à savoir :

Public Sub ()

Dim CeMois As String
CeMois = ActiveCell.Value

Workbooks("Tampon.xls").Sheets("Moi").Copy _
after:=Workbooks("Sauvegarde.xls").Sheets(CeMois)​

End Sub

Erreur '9' : indice n'appartient pas à la sélection (ici en gras)

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2013

• #14

Re : Copie et Sauvegarde de fichier

Re,

fonctionne chez moi.... vérifier le contenu de la variable... les 2 classeurs doivent être ouverts.... feuilles affichées et non protégées....

 

Vote positif 0 Vote négatif

B

benoa

Guest

• 11 Juillet 2013

• #15

Re : Copie et Sauvegarde de fichier

Ok ça marche pour moi aussi. Cependant, il me crée une nouvelle feuille alors que je voudrais qu'il l'insère dans la feuille intitulé 'CeMois'. Comment puis-je faire?

Cordialement

 

Vote positif 0 Vote négatif