Bonjour
Malgré divers essais et recherches sur le net, je bloque sur une procédure.
Pour information, tous les fichiers excel se situent dans le même dossier.
J'ai un fichier " Suivi.xls " dans lequel j'ai une fenêtre avec un bouton.
Lors de l'appui sur ce bouton, je fais une copie d'un autre fichier " déclaration.xls " et se renomme en " déclarationA.xls ".
Le fichier " déclaration.xls " se ferme.
Le fichier " déclarationA.xls " s'ouvre.
Le fichier " Suivi.xls " reste ouvert.
Jusque là, tout marche correctement.
Ce que je cherche, c'est comment copier le contenu d'un cellule " A1 " de " Suivi.xls " dans la cellule " Z8 " de " déclarationA.xls "
Je vous mets le début du code qui marche :
Private Sub CommandButtonvalidcomremA_Click()
Workbooks.Open "C:\Suivi\Déclaration.xls"
Dim Chemin As String, Fichier As String
Chemin = "C:\Suivi_DLC\"
Fichier = "DéclarationA.xls"
ActiveWorkbook.SaveCopyAs Chemin & Fichier
ActiveWorkbook.Close
Workbooks.Open "C:\Suivi_DLC\DéclarationA.xls"
End Sub
Si un fin connaisseur pouvait m'expliquer ce que je doit faire, je lui en serait reconnaissant
Merci par avance
Malgré divers essais et recherches sur le net, je bloque sur une procédure.
Pour information, tous les fichiers excel se situent dans le même dossier.
J'ai un fichier " Suivi.xls " dans lequel j'ai une fenêtre avec un bouton.
Lors de l'appui sur ce bouton, je fais une copie d'un autre fichier " déclaration.xls " et se renomme en " déclarationA.xls ".
Le fichier " déclaration.xls " se ferme.
Le fichier " déclarationA.xls " s'ouvre.
Le fichier " Suivi.xls " reste ouvert.
Jusque là, tout marche correctement.
Ce que je cherche, c'est comment copier le contenu d'un cellule " A1 " de " Suivi.xls " dans la cellule " Z8 " de " déclarationA.xls "
Je vous mets le début du code qui marche :
Private Sub CommandButtonvalidcomremA_Click()
Workbooks.Open "C:\Suivi\Déclaration.xls"
Dim Chemin As String, Fichier As String
Chemin = "C:\Suivi_DLC\"
Fichier = "DéclarationA.xls"
ActiveWorkbook.SaveCopyAs Chemin & Fichier
ActiveWorkbook.Close
Workbooks.Open "C:\Suivi_DLC\DéclarationA.xls"
End Sub
Si un fin connaisseur pouvait m'expliquer ce que je doit faire, je lui en serait reconnaissant
Merci par avance