Discussion :

[sambrook]

Bonjour,

je veux renomer ma feuille et mon classeur qui ont le meme nom du genre data_2584685_ght_20122012.dat en "extraction"

et apres copier le contenu colonne par colonne sans utiliser des boucles dans un autre classeur "classur1" dans "feuil1"

Merci pour votre aide, je peine depuis que j'ai chnagé de version Excel de 2003 à 2010

j'avais ce code qui m'extract mes données sur le meme fichier que ma ma macro sur 2003 et depuis la migation il m'extract mes données dans un autre classeur

Public Sub ImporterFichier()
'Dim str_fichier_chemin As String
Dim date_user, nom_user, report As String

nom_user = "psa_tit"
date_user = "20091201"

report = Dir("\\appsef\COMMUN\*" & "*data_pv_" & nom_user & "_" & date_user & "_0600*")

full_name = "\\appsef\COMMUN\" & report

'Ouverture d'un fichier Excel
Workbooks.OpenText Filename:=full_name, Origin:=xlWindows, _
StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

With ActiveWorkbook
'MsgBox Workbooks("test").Sheets.count
.Sheets(1).Copy Before:=Workbooks("test").Sheets(1)
End With

End Sub

Merci pour votre aide

[Daniel.C]

Bonjour,

Un conseil, mets le code que tu postes entre balises de code (surligne le et appuie sur le bouton "#"). Modifie le code comme suit :

Code :

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

1
2
3
4
5
6
With ActiveWorkbook
'MsgBox Workbooks("test").Sheets.count
.Sheets(1).Copy Before:=Workbooks("test").Sheets(1)
.Sheets(1).Name = "Extraction"
.SaveAs "\\appsef\COMMUN\" & "Extraction", xlExcel8
End With

par contre :

et apres copier le contenu colonne par colonne sans utiliser des boucles

Pourquoi "colonne par colonne" ? et pourquoi "sans utiliser des boucles" ? C'est un défi technologique ?