titiborregan5
XLDnaute Accro
Bonjour à tous,
[Edit] je suis sous Excel 2000...
Je rencontre un problème sur lequel je bloque depuis environ deux jours.
Je souhaite copier coller une plage de cellules vers un autre classeur (fermé). En + de cela je souhaite que la copie se fasse sur une cellule vide et non pas en remplacement des cellules déjà présentes.
En concret ça donne :
Classeur 1= « reporting », cellules A2 :S5 à copier
Classeur 2= « reception », à copier en A2 au début et ensuite en A6 si A2 occupée etc…
Je vous copie la macro que j’ai actuellement . Tout marche mais je n’arrive pas à intégrer la copie sur cellule vide… Je rajoute que j’ai en + dans cette macro un changement de nom et une sauvegarde. Le nom prend la valeur d’une cellule (A1 en l’occurrence), puis s’enregistre dans un dossier précis et une boîte de dialogue apparaît indiquant le nom d’enregistrement et l’emplacement.
Votre aide me sera très précieuse.
Merci d’avance
Private Sub copiecollesave_Click()
'on copie la zone qui nous intéresse sur la fiche sauvegardée
Windows("Reporting.xls").Activate
Sheets("Récapitulatif").Select
Sheets("Récapitulatif").Range("A2:S5").Copy
'et on la colle
Application.Workbooks.Open ("K:\XXX\reception.xls")
Workbooks("reception.xls").Activate
ActiveWorkbook.ActiveSheet.Range("A2").Select
ActiveWorkbook.ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
'revenir au fichier
Windows("Reporting.xls").Activate
'changement de nom et sauvegarde
Fichier = Cells(1, 1).Value
Chemin = "K:\XXX\Reporting"
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & Fichier & ".xls"
rep = MsgBox("Votre fichier a été sauvegardé avec succès sous le nom : " & Chr(10) & Fichier & Chr(10) & "A l'adresse suivante: " & Chr(10) & Chemin, vbOKOnly, Fichier)
End Sub
[Edit] je suis sous Excel 2000...
Je rencontre un problème sur lequel je bloque depuis environ deux jours.
Je souhaite copier coller une plage de cellules vers un autre classeur (fermé). En + de cela je souhaite que la copie se fasse sur une cellule vide et non pas en remplacement des cellules déjà présentes.
En concret ça donne :
Classeur 1= « reporting », cellules A2 :S5 à copier
Classeur 2= « reception », à copier en A2 au début et ensuite en A6 si A2 occupée etc…
Je vous copie la macro que j’ai actuellement . Tout marche mais je n’arrive pas à intégrer la copie sur cellule vide… Je rajoute que j’ai en + dans cette macro un changement de nom et une sauvegarde. Le nom prend la valeur d’une cellule (A1 en l’occurrence), puis s’enregistre dans un dossier précis et une boîte de dialogue apparaît indiquant le nom d’enregistrement et l’emplacement.
Votre aide me sera très précieuse.
Merci d’avance
Private Sub copiecollesave_Click()
'on copie la zone qui nous intéresse sur la fiche sauvegardée
Windows("Reporting.xls").Activate
Sheets("Récapitulatif").Select
Sheets("Récapitulatif").Range("A2:S5").Copy
'et on la colle
Application.Workbooks.Open ("K:\XXX\reception.xls")
Workbooks("reception.xls").Activate
ActiveWorkbook.ActiveSheet.Range("A2").Select
ActiveWorkbook.ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
'revenir au fichier
Windows("Reporting.xls").Activate
'changement de nom et sauvegarde
Fichier = Cells(1, 1).Value
Chemin = "K:\XXX\Reporting"
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & Fichier & ".xls"
rep = MsgBox("Votre fichier a été sauvegardé avec succès sous le nom : " & Chr(10) & Fichier & Chr(10) & "A l'adresse suivante: " & Chr(10) & Chemin, vbOKOnly, Fichier)
End Sub
Dernière édition:
