Discussion :

[subzero25]

Boniour,

Je cherche a récuperer les colonnes A F G H P Q U V W X Y EG EP, d'un excel fermé vers mon excel ouvert dans les colonne spécifié.
Mais mon code ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub importPlaf()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim titre As String
Dim wbk1 As Workbook
Dim wbk2 As Workbook
titre = "\\pysn41\_LSI\Applilsi\HEBERGE\bdd\APPLIS_PRY\PLAF_PYVV\Fichiers_utilisateurs\PLAF_LOG - XXlog.xlsx"
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(titre) ' jouvre le classeur (titre)
wbk1.Sheets(1).Range("A4").Value = wbk2.Sheets(1).Range("A6").Value
wbk1.Sheets(1).Range("B4").Value = wbk2.Sheets(1).Range("F6").Value
wbk1.Sheets(1).Range("C4").Value = wbk2.Sheets(1).Range("G6").Value
wbk1.Sheets(1).Range("D4").Value = wbk2.Sheets(1).Range("H6").Value
wbk1.Sheets(1).Range("E4").Value = wbk2.Sheets(1).Range("P6").Value
wbk1.Sheets(1).Range("F4").Value = wbk2.Sheets(1).Range("Q6").Value
wbk1.Sheets(1).Range("G4").Value = wbk2.Sheets(1).Range("U6").Value
wbk1.Sheets(1).Range("H4").Value = wbk2.Sheets(1).Range("V6").Value
wbk1.Sheets(1).Range("I4").Value = wbk2.Sheets(1).Range("W6").Value
wbk1.Sheets(1).Range("J4").Value = wbk2.Sheets(1).Range("X6").Value
wbk1.Sheets(1).Range("K4").Value = wbk2.Sheets(1).Range("Y6").Value
wbk1.Sheets(1).Range("L4").Value = wbk2.Sheets(1).Range("EG6").Value
wbk1.Sheets(1).Range("M4").Value = wbk2.Sheets(1).Range("EP6").Value
wbk2.Close
End Sub

Voici l'erreur affichée qui surlige la ligne en rouge dans le code :

[patricktoulon]

re

1. le fichier log se trouve sur un serveur?
2. est ce qu'il est bien ouvert?

si c'est le cas met un doevents ou une autre gestion d'attente pour lui laisser le temps de s'ouvrir correctement avant les copie de cells

encore un exemple de soucis d'accessecibilité avec 2016

[subzero25]

Oui le fichier se trouve bien sur un serveur.
Ducoup avec un wait sa copie bien mais je voudrais savoir comment copier la colonne entière à partir de A6 et la coller a partir de A4?

[patricktoulon]

bon donc si un wait suffit a régler ton probleme d'accessibilité alors ceci apres ton wait devrait suffir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With wbk2.Sheets(1): tablo = Array(.[A6].Value,.[F6].Value, .[G6].Value, .[H6].Value, .[P6].Value, .[Q6].Value, .[U6].Value,. [V6].Value, .[W6].Value, .[X6].Value,.[Y6].Value, .[EG6].Value, .[EP6].Value)
End With
with application:.screenupdating=false:.displayalerts=false:end with 
wbk2.Close
wbk1.Sheets(1).Range("A4").Resize(UBound(tablo), 1) = Application.Transpose(tablo)
End Sub

hophophop!!!
etdit :
reprends le j'ai apporté quelque modifs

[subzero25]

il y a un petit soucis ça transpose tout sur la premiere colonne.
De plus il ne prend que la première ligne saurais tu comment s'y prendre pour selectionné la colonne par exemple A de la ligne 6 jusqu'à la fin?

[patricktoulon]

puré je suis encore bien reveillé moi c'est pas grave on va faire avec
autant pour moi je me suis trompé sur le resize

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wbk1.Sheets(1).Range("A4").Resize(1,UBound(tablo)) = Application.Transpose(tablo)

la viellesse que veux tu
si ca deraille encore suprime le application.transpose met "=tablo" tout court