Import de donné vers fichier Excel
Bonjour
J'ai fait le tour du Forum mais je ne trouve pas mon bonheure
Toutes les semaines j'ai une extraction qui est faite d'un logiciel interne.
j'ai reussi a convertir le fichier mais maintenant je doit importer CERTAINE donné dans un classeur.
Pour être plus clair je joint les deux fichiers Exemple.
le FICHIER export.xlsx(l'extraction des donnés)
et le Fichier Reception.xlsx (celui qui doit recevoir les donnés)
Dans le Fichier export j'ai indiquer les colonnes ou doivent allez les valeurs.
Je voudrais pouvoir faire cela automatiquement (a l'ouverture de Reception je selectionne le fichier a importer et les celulles sont copier et coller dans les bonnes colonnes.
je reste dispo si vous avez des questions.
Merc de votre aide
Re bonjour
J'ai un peu avancer dans le Fichier reception
Workbooks.Open Filename:= _
"C:\export.xlsx"
'colonne B
Range("G2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Range("B2").Select
ActiveSheet.Paste
ActiveWindow.WindowState = xlMaximized
Windows("export.xlsx").Activate
'colonne C
'Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlNormal
Range("E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Reception.xlsm").Activate
Range("C2").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Windows("export.xlsx").Close
Application.DisplayAlerts = True
ActiveWindow.WindowState = xlMaximized
Toutefois j'ai deux souci
1) comment faire pour ne pas ecraser les donner deja importer.
2) comment rendre ce code plus propre.
Merci de votre aide
Bonjour a tous
j'ai reussi a me debrouiller sur ce sujet
Sub test()
Dim Fichiers As Variant
Dim maLigne As Long
With Sheets("Feuil1")
If .Range("B1") <> "" Then
maLigne = .Range("B" & Rows.Count).End(xlUp).Row + 1
Else
maLigne = 1
End If
End With
'ouvir Fichier
ChDrive "C:" ' Choix du lecteur
ChDir "C:pilotage\2020" 'Choix du répertoire
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
If Nom_Fichier <> False Then
Workbooks.Open Filename:=Nom_Fichier
' COPIE COLONNE G vers B
Range("G2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("PiLOTAGE 2020 .xlsm").Activate
'coller
Range("B" & maLigne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=False
End sub
toutefois j'ai une question : Peut on selectionner un nombre precis de cellule ?
EXEMPLE: sur la Colonne A je selectionne 300 lignes
je voudrais pouvoir selectionner le même nombre de lignes en colonne C.
est ce faisable et si oui comment?
Merci de votre aide.