Activer une fenêtre avec une macro et des variables
Philou73CH
-
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention -
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans un programme Excel 2010, j'importe des données d'un tableau qui se trouve dans un fichier A pour le mettre dans sur une feuille d'un fichier B.
Tout cela, je veux le faire automatiquement à l'aide d'une macro et surtout puisque les fichiers et nom de ceux-ci seront appeler à évoluer selon qui les utilisent, j'utilise pas directement les noms dans mes macros.
Cela me pose aucun problème pour ouvrir le programme ou je vais prendre les données avec la macro suivante :
'Pour liste téléphonique
Dim CheminTél As String, Tél As String
Tél = Sheets("Adresses Variables").Range("B5").Value
CheminTél = Sheets("Adresses Variables").Range("D5").Value
Workbooks.Open Filename:=CheminTél & Tél
Par contre quand je veux l'adapter pour revenir à mon dossier de base avec l'ordre :
Windows. Activate
Ma solution actuelle est la suivante mais me convient pas :
Windows("CentraleFAXTESTlistingpersonnel.xlsm").Activate
J'ai essayé cela mais sans succès :
Dim CheminFAX As String, FAX As String
FAX= Sheets("Adresses Variables").Range("B3").Value
CheminFAX = Sheets("Adresses Variables").Range("D3").Value
Windows.Activate Filename:=FAX
Merci encor une fois de votre aide qui m'a été si précieuse jusqu'à maintenant
Dans un programme Excel 2010, j'importe des données d'un tableau qui se trouve dans un fichier A pour le mettre dans sur une feuille d'un fichier B.
Tout cela, je veux le faire automatiquement à l'aide d'une macro et surtout puisque les fichiers et nom de ceux-ci seront appeler à évoluer selon qui les utilisent, j'utilise pas directement les noms dans mes macros.
Cela me pose aucun problème pour ouvrir le programme ou je vais prendre les données avec la macro suivante :
'Pour liste téléphonique
Dim CheminTél As String, Tél As String
Tél = Sheets("Adresses Variables").Range("B5").Value
CheminTél = Sheets("Adresses Variables").Range("D5").Value
Workbooks.Open Filename:=CheminTél & Tél
Par contre quand je veux l'adapter pour revenir à mon dossier de base avec l'ordre :
Windows. Activate
Ma solution actuelle est la suivante mais me convient pas :
Windows("CentraleFAXTESTlistingpersonnel.xlsm").Activate
J'ai essayé cela mais sans succès :
Dim CheminFAX As String, FAX As String
FAX= Sheets("Adresses Variables").Range("B3").Value
CheminFAX = Sheets("Adresses Variables").Range("D3").Value
Windows.Activate Filename:=FAX
Merci encor une fois de votre aide qui m'a été si précieuse jusqu'à maintenant
A voir également:
- Activer une fenêtre avec une macro et des variables
- Activer chromecast - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Activer office gratuitement - Accueil - Bureautique
- Comment activer windows 10 - Guide
- Cle pour activer windows 10 gratuitement - Guide