Résultats de la recherche

Bonsoir, Connaisez-vous un code vba qui me permetrait de bypasser cet avertissement, plusieurs essayer, aucun ne fonctionne malheureusement. merci encore :)

Re : .value Merci à vous deux, oui tout à fait j'ai deja remarquer l'erreur, mais trop lâche pour la corriger dans tout les références :P (trop de copier coller

Bonsoir, Comment puis-je remplacer l'adresse couriel dans la macro suivante par cette valeur sans obtenir d'erreur dû au : " " Sheets("OUVETURE").Range("G15") 'envoi par mail If CheckBox1 = True Then ' Select the range of cells on the active worksheet...

Pouvez-vous m'aider à adapter la formule ci-dessous avec les paramètres suivants : le chemin d'enregistrement du pdf doit être : Sheets("X").Range("N21") & "\" le nom du pdf doit être : Format(Now() - 0, "dd_mmmm_YY") seul le feuille "x" doit etre enregister en PDF. le destinataire du...

Re : debutant exporter des donnees de calcul sous forme de tableaux pour suivit exporter où ? en PDF ?

Re : Pdf merci numero 1 !

Bonsoir, Actuellement j'utilise la macro suivante afin d'enregistrer un de mes onglet en pdf : 'PDF Dim Nomfichier As String, Chemin As String Nomfichier = Format(Now() - 0, "dd_mmmm_YY") Chemin = Sheets("X").Range("N21") & "\" Sheets("X").ExportAsFixedFormat Type:=xlTypePDF...

Bonjour, voilà la macro que je voudrais utiliser pour ouvrir un fichier PDF à partir d'un bouton. ThisWorkbook.FollowHyperlink "C:\DEV\leFichier.pdf" J'aimerais que la partie "leFicher" fasse référence au text dans la celule "Z1" de la feuille "X", c'est possible? *sachat que je vais...

Re : Erreur 402 J'AI REUSSI ! :cool: MERCI À VOUS !

Re : Erreur 402 ST007 FONCTIONNE TOUJOURS PAS.. Private Sub CommandButton1_Click() Sheets("X").Range("D5") = UserForm3.TextBox1 Sheets("X").Range("D6") = UserForm3.ComboBox1 UserForm3.Hide Sheets("OUVETURE").Select End Sub Private Sub...

Re : Erreur 402 Choisis ton nom, avec une combo box, et une date avec un textbox, qui vont apparaître sur le rapport. quand on clique sur Ok, on passe a l'ongle suivant, lui avec contenant le rapport à remplir.

Bonjour à tous, à l'ouverture de mon fichier, j'ai la suite suivante : Private Sub Workbook_Open() 'PERMET D'OUVRIR SHEET Sheets("GRIS").Select 'PERMET D'OUVRIR USERFORM3 UserForm3.Show End Sub Ensuite, je complete mon formulaire et je clique sur valider...

Re : checkbox le seul problèeme que j'ai, c'est que ma checkbox ne se "souvient" pas du choix, (coché ou non). Selon le parametre que je lui donne dans value, est elle soit toujours true ou toujours false.

Bonjour à tous, (J'y prend goût à ce forum magnifique!) Voila, quand je clique sur mon commandbouton2 dans on userform1, j'ai la suite suivante qui s'éxécute, (tout fonction numéro1!) 'envoi par mail Private Sub CommandButton2_Click() Workbooks("DEV_VERSION1_2015_DENYSF 2.xlsm").SendMail...

Re : Chemin d'accès se trouvant dans une celule ! oui, pardon j'ai bien vu ! 2 000 000 de fois merci, ça fonctionne numero 1 ! :)

Re : Chemin d'accès se trouvant dans une celule ! malheureusement ça ne fonctionne pas non plus.

Bonjour à tous, Voici ma première question sur ce forum: Jutilise le code suivant afin d'enregistrer mon fichier excel, en format pdf, avec comme nom, la date du jour, Dim Nomfichier As String, Chemin As String Nomfichier = Format(Now() - 1, "dd_mmmm_YY") Chemin =...