Incrémentation tableau Excel à partir d'un autre classeur Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Y
Yo_ann
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 1 avril 2016
Version d'Excel : 2013

Message par Yo_ann » 1 avril 2016, 15:35

Bonjour à tous,

Tout d'abord, merci pour toutes les fois où je bloquais sur Excel et qu'en visitant votre forum, j'ai réussi à trouver l'information qu'il me fallait.
Cette fois, je m'attaque à ce point d'interrogation qui la macro !

Il y a un tableau Excel "Classeur destinataire" à remplir avec certaines données du classeur "export" (certaines car il y a aucune cohérence entre les deux fichiers, bref).

Pour automatiser cela, je me suis lancé (surtout grâce à ce que j'ai pu trouvé sur le forum:





Const CHEMIN = "C:\" 'Le path pour l'ouverture des fichiers Excel
Sub test2()

Dim Fichier_Travail As String, Fichier As String
Dim Msg, Style, Title, Help, Ctxt, Response, MyString

ChDrive CHEMIN
ChDir CHEMIN

'Set une variable qui va contenir le nom et le chemin du fichier à ouvrir.
Fichier = Application.GetOpenFilename(", *xlWindows", 0, "Sélectionner le ficher de rendements souhaité") 'On ouvre la fenêtre et conserve le nom du fichier choisi dans une variable

'Test si un fichier a été sélectionné
If Fichier = "Faux" Then
Msg = "Aucun fichier sélectionné. SVP, veuillez recommencer !" ' Définit le message.
Style = vbOKOnly ' Définit les boutons.
Title = "Abandon de la procédure !" ' Définit le titre.
' Affiche le message.
Response = MsgBox(Msg, Style, Title)
Exit Sub 'Sort de la macro puisqu'aucun fichier n'a été sélectionné
Else 'Sinon, on ouvre le fichier sélectionné
Workbooks.OpenText Filename:=Fichier
Fichier_Travail = ActiveWorkbook.Name 'On donne à une variable le nom de ce fichier qu'on vient d'ouvrir.
End If

Dim classeurSource As Workbook, classeurDestination As Workbook

'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.Workbooks.Open(Fichier_Travail)
'définir le classeur destination
Set classeurDestination = ThisWorkbook

'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
classeurSource.Sheets("Feuil1").Cells.Copy classeurDestination.Sheets("Feuil1").Range("A1")

'fermer le classeur source
classeurSource.Close False

End Sub



Actuellement, il copie l'intégralité du contenant dans mon fichier (désolé pour la syntaxe).

Je ne sais pas comment lui dire de :
Prendre le contenu de la colonne "A" sans l'entête de "export" et d'incrémenter "Classeur destinataire" à la suite de l'existant en évitant les doublons.

Voilà, en espérant avoir été clair et merci d'avance !

Yoann
Classeur destinataire.xlsm
(55.14 Kio) Téléchargé 14 fois
export.xlsx
(10.35 Kio) Téléchargé 12 fois
Y
Yo_ann
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 1 avril 2016
Version d'Excel : 2013

Message par Yo_ann » 4 avril 2016, 08:02

Bon ça n'attire pas les foules :(
Y
Yo_ann
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 1 avril 2016
Version d'Excel : 2013

Message par Yo_ann » 8 avril 2016, 14:29

Je clos le sujet.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message