Bonjour,
Je vous explique:
(N.B.:
- Tous mes classeurs ont un seul et unique onglet
- Et le nom du classeur est identique au nom de l'onglet)
J'ai un classeur nommé "TOTO" en .xlm (soit TOTO.xlm) (avec son onglet "TOTO")
et qui via une macro, se modifie en .xls
Il se nomme donc après transformation en TOTO.xlm.xls
(Cf Macro ci-dessous)
Sub Convertir_xlm_xls()
ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls"
End Sub
(Pour info, cette macro s'adapte quelque soit le nom du classeur)
Jusque là, ça fonctionne (Le nouveau classeur se crée mais le contenu ne suit pas)
Je souhaite donc ensuite que le contenu de TOTO en xlm vienne se copier/coller sur TOTO en xls
J'ai donc trouvé la macro ci-dessous mais qui ne fonctionne que pour le fichier TOTO
Alors que je souhaiterais que cette macro s'adapte quelque soit le nom du fichier.
Sub Macro(1)
Sheets("TOTO").Select
Sheets("TOTO").Copy Before:=Workbooks( _
"TOTO.xlm.xls").Sheets(1)
Windows("TOTO.xlm").Activate
Range("A1").Select
End Sub
(N.B.:Il y-a un débogage que je n'arrive pas à contrer sur la 2ème et 3ème ligne)
Pouvez-vous me venir en aide ?
Très cordialement.
Je vous explique:
(N.B.:
- Tous mes classeurs ont un seul et unique onglet
- Et le nom du classeur est identique au nom de l'onglet)
J'ai un classeur nommé "TOTO" en .xlm (soit TOTO.xlm) (avec son onglet "TOTO")
et qui via une macro, se modifie en .xls
Il se nomme donc après transformation en TOTO.xlm.xls
(Cf Macro ci-dessous)
Sub Convertir_xlm_xls()
ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls"
End Sub
(Pour info, cette macro s'adapte quelque soit le nom du classeur)
Jusque là, ça fonctionne (Le nouveau classeur se crée mais le contenu ne suit pas)
Je souhaite donc ensuite que le contenu de TOTO en xlm vienne se copier/coller sur TOTO en xls
J'ai donc trouvé la macro ci-dessous mais qui ne fonctionne que pour le fichier TOTO
Alors que je souhaiterais que cette macro s'adapte quelque soit le nom du fichier.
Sub Macro(1)
Sheets("TOTO").Select
Sheets("TOTO").Copy Before:=Workbooks( _
"TOTO.xlm.xls").Sheets(1)
Windows("TOTO.xlm").Activate
Range("A1").Select
End Sub
(N.B.:Il y-a un débogage que je n'arrive pas à contrer sur la 2ème et 3ème ligne)
Pouvez-vous me venir en aide ?
Très cordialement.