Soucis de code pour Windows.Activate

[L_S]

Bonjour,

Voici ma macro (Elle m'ouvre n'importe quel classeur ayant une extension .csv en .xls et me copie son contenu.

Mon problème est que je n'arrive pas à trouver de code pour englober n'importe quel non de fichier sur la ligne "Windows".

Sub Convertir_csv_xls()

ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls"
'Converti *.csv en *.xls

Range("A1:ZZ10000").Select
Selection.Copy
'Copie toutes les cellules de A1 à ZZ10000

Windows("ILIKO_coulissant_Cosy_melamine.csv.xls").Activate

Range("A1").Select
ActiveSheet.Paste
'Colle en A1

Range("A1").Select
'Le curseur revient en A1

End Sub

Je cherche la meme chose que ce code ci-après " Windows("ILIKO_coulissant_Cosy_melamine.csv.xls").Activate " mais qui s'adapterait à n'importe quel nom de fichier.

Merci d'avance

 

[Gorfael]

Re : Soucis de code pour Windows.Activate

Salut L_S et le forum
Utilises les balises de code !

Mon problème est que je n'arrive pas à trouver de code pour englober n'importe quel non de fichier sur la ligne "Windows".

Mon problème : je ne comprends pas ta question !
Vraisemblablement tu veux coller une plage constante A1:ZZ10000 sur un classeur. Pas sur une fenêtre !
Ce qui donnerai un code du style :

Sub Convertir_csv_xls()
dim F as Worksheet

ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls"
    'Converti *.csv en *.xls
    set F =WorkBooks("ILIKO_coulissant_Cosy_melamine.csv.xls").sheets(1)
'mettre dans la variable F la première feuille du classeur nommé

Range("A1:ZZ10000").Copy F.[A1]
    
WorkBooks("ILIKO_coulissant_Cosy_melamine.csv.xls").activate
    F.[A1].select
End Sub

Mais le défaut de donner un code, c'est qu'il n'explique pas ce qu'on veut en final. Il faudrait peut-être savoir comment tu veux trouver le nom (et la feuille) du fichier à utiliser.

Rappel : ni devin, ni télépathe sur ce site.
A+

 

[L_S]

Re : Soucis de code pour Windows.Activate

Concrètement, je souhaite

 

[L_S]

Re : Soucis de code pour Windows.Activate

Concrètement, je souhaite sur un classeur déja existant qui as une extension .csv:

l'enregistrer sous .xls (donc que son extension se modifie)

La difficulté est que je n'ai pas qu'un seul fichier mais une centaine, donc je souhaite que la macro s'adapte à n'importe quel nom de fichier.

Merci d'avance.

 

[Gorfael]

Re : Soucis de code pour Windows.Activate

Salut L_S et le forum
Petit rappel (outre ma signature) : ni télépathe, ni devin sur ce site (du moins, à ma connaissance) Et comme je n'utilise pas ton fichier, ce qui est tellement évident pour toi et complétement abscons pour moi ! La seule chose que je sais, c'est que tu as beaucoup de fichiers à traiter.
A+

 

[L_S]

Re : Soucis de code pour Windows.Activate

Mon fichier est en .csv à la base mais je l'ai envoyer en .xls car ce site ne prend pas en charge les fichier en .csv

Il te suffit juste de l'enregistrer sous .csv sur ton PC.

Merci d'avance.