A voir également:
- Concatener nom d'un fichier appelé dans macro
- Fichier rar - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Ouvrir un fichier .bin - Guide
- Comment ouvrir un fichier docx ? - Guide
3 réponses
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
644
20 mars 2013 à 12:20
20 mars 2013 à 12:20
Bonjour,
Avec une syntaxe du type :
Nom_de_fichier = "M" & Format(Date, "mmyyyy") & "XTXTFFRJF.xls"
A+
Avec une syntaxe du type :
Nom_de_fichier = "M" & Format(Date, "mmyyyy") & "XTXTFFRJF.xls"
A+
Bonjour,
Voici comment j'ai réussi à m'en sortir :
Sub copypasteraw()
'
' open file "Mmmyyyy XTXTFFRJF.xls" and copy to "tool.xlsm"
'
'
Dim VariDate As String
VariDate = Sheet3.Cells(3, 2)
' Dans la case Sheet3.Cells(3, 2), l'utilisateur est invité à entrer la date au format Mmmyyyy .
Range("B13").Select
Workbooks.Open Filename:="\\ --nom de mon répertoire-- \" & VariDate & " XTXTFFRJF.xls"
[...]
et ça marche...
Comme je me suis 'un peu' énervée dessus, je voulais partager cette info.
L'aide de Pilas31 m'a aidé mais il ne faut pas oublier de déclarer la variable comme string...
Voici comment j'ai réussi à m'en sortir :
Sub copypasteraw()
'
' open file "Mmmyyyy XTXTFFRJF.xls" and copy to "tool.xlsm"
'
'
Dim VariDate As String
VariDate = Sheet3.Cells(3, 2)
' Dans la case Sheet3.Cells(3, 2), l'utilisateur est invité à entrer la date au format Mmmyyyy .
Range("B13").Select
Workbooks.Open Filename:="\\ --nom de mon répertoire-- \" & VariDate & " XTXTFFRJF.xls"
[...]
et ça marche...
Comme je me suis 'un peu' énervée dessus, je voulais partager cette info.
L'aide de Pilas31 m'a aidé mais il ne faut pas oublier de déclarer la variable comme string...