Incrémentation tableau Excel à partir d'un autre classeur
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
Bon ça n'attire pas les foules